原文来自:https://zhuanlan.zhihu.com/p/476603927
1. 模拟数据
df <- data.frame(
event = c("A3SS","A5SS","SE","RI","MXE"),
count = c(10, 24, 40, 17, 9))
2. 加载包
if(!require("echarts4r")) BiocManager::install("echarts4r",update = F,ask = F)
library(echarts4r)
library(dplyr)
3. 画图
df %>%
e_chart(event) %>%
e_pie(count, radius = c("30%", "60%"),
timeline = T,legend =F,name="Event and Percent") %>%
e_labels(
position = "outside",
labelLine = list(length = 30),
formatter = "{a|{a}}{abg|}\n{hr|}\n {b|{b}:}{c} {per|{d}%}",
backgroundColor = "#F6F8FC",
borderColor = "#8C8D8E",
borderWidth = 1,
borderRadius = 4,
rich = list(
a = list(
color = "#6E7079",
lineHeight = 22,
align = "center"
),
hr = list(
borderColor = "#8C8D8E",
width = "100%",
borderWidth = 1,
height = 0
),
b = list(
color = "#4C5058",
fontSize = 14,
fontWeight = "bold",
lineHeight = 33
),
per = list(
color = "#fff",
backgroundColor = "#4C5058",
padding = c(3, 4),
borderRadius = 4)))%>%
e_toolbox_feature(feature = c("saveAsImage")) #在Plots右上角添加了个下载png按钮
image.png
4. 函数详解
e_pie(e,serie,name=NULL,legend=TRUE,rm_x=TRUE,rm_y=TRUE,...)
其中e为数据集;serie为绘图的数据类别;name 为标签的名字,在添加文本外框时有用;legend 是否保留图例;rm_x 与rm_y是否去除;radius设置甜甜圈图的内圈大小和整个甜甜圈图的大小。
网友评论