Create pie chart

R/data.R

@@ -49,6 +49,40 @@ data_bar = function(x, y, series = NULL, type = 'bar') {
 
 }
 
+data_pie = function(x, y, series = NULL, type = 'pie') {
+  if (is.null(series)) {
+    xy=data.frame(name=x,value=y)
+    xy$name=as.character(xy$name)
+    data1=list()
+    for (i in 1:dim(xy)[1]){
+      data1[[i]]=list(name=xy[i,1],value=xy[i,2])
+    }
+    return(list(list(type = type,
+                     showScale = TRUE,
+                     showScaleText = TRUE,
+                     data = data1,
+                     itemStyle = list(
+                       normal = list(
+                         label = list(show = FALSE)
+                       ))
+                     )
+                )
+           )
+  }
+
+  xy = tapply(y, list(x, series), function(z) {
+    if (length(z) == 1) return(z)
+    stop('y must only have one value corresponding to each combination of x and series')
+  })
+  nms = colnames(xy)
+  obj = list()
+  for (i in seq_len(ncol(xy))) {
+    obj[[i]] = list(name = nms[i], type = type, data = unname(xy[, i]))
+  }
+  obj
+
+}
+
 data_line = function(x, y, series = NULL) {
   if (is.numeric(x)) {
     return(data_scatter(x, y, series, type = 'line'))

R/echart.R

@@ -63,16 +63,57 @@ echart.data.frame = function(
     x = x, y = y
   ), TOJSON_ARGS = list(pretty = TRUE))
 
+  params$tooltip = list(
+    trigger = 'item'
+  )
+  params$calculable=TRUE
+
+  params$toolbox = list(
+    show = TRUE,
+    feature = list(
+      restore = list(show = TRUE),
+      saveAsImage = list(show = TRUE)
+    )
+  )
   if (!is.null(series)) {
     params$legend = list(data = levels(as.factor(series)))
+
+  }
+  if (type=='bar'){
+    params$toolbox$feature$magicType = list(show = TRUE, type = c('bar', 'line'))
+  }
+
+  if (type=='pie'){
+
+    params$legend = list(
+      x = 'left',
+      data = x
+    )
+    params$toolbox = list(
+      show = TRUE,
+      feature = list(
+        restore = list(show = TRUE),
+        magicType = list(show = TRUE, type = c('pie', 'funnel')),
+        saveAsImage = list(show = TRUE)
+      )
+    )
+
   }
 
   chart = htmlwidgets::createWidget(
     'echarts', params, width = width, height = height, package = 'recharts',
     dependencies = getDependency(NULL)
   )
+  if (type=='pie'){
+    return(chart)
+  }
+
+    chart %>%
+      eAxis('x', name = xlab,splitLine = list(show = TRUE),axisLabel = list(show = TRUE),axisLine = list(show = TRUE)) %>%
+      eAxis('y', name = ylab,splitLine = list(show = TRUE),axisLabel = list(show = TRUE),axisLine = list(show = TRUE))
+
+
 
-  chart %>% eAxis('x', name = xlab) %>% eAxis('y', name = ylab)
 }
 
 #' @export

R/example.R

@@ -0,0 +1,43 @@
+pieEx1 = list(
+  title = list(
+    text = 'Test',
+    subtext = 'From d3.js',
+    x = 'right',
+    y = 'bottom'
+  ),
+  tooltip = list(
+    trigger = 'item'
+  ),
+  toolbox = list(
+    show = TRUE,
+    feature = list(
+      restore = list(show = TRUE),
+      magicType = list(show = TRUE, type = c('pie', 'funnel')),
+      saveAsImage = list(show = TRUE)
+    )
+  ),
+  legend = list(
+    x = 'left',
+    data = c('group1', 'group2', 'group3', 'group4')
+  ),
+  series = list(
+    list(
+      type = 'pie',
+      showScale = TRUE,
+      showScaleText = TRUE,
+      data = list(
+        list(name = 'group1',value=10),
+        list(name = 'group2',value=20),
+        list(name = 'group3',value=5),
+        list(name = 'group4',value=30)
+      ),
+      itemStyle = list(
+        normal = list(
+          label = list(show = FALSE)
+        )
+      )
+
+    )
+  )
+    )
+echart(pieEx1)