R语言：pie3D绘制三维饼图

导读：

前面画过二维饼图：R语言：pie绘制饼图，这次用plotrix包pie3D函数画三维的。

官网：pie3D: Display a 3D pie chart

1 输入数据

2 画图

library(plotrix)

color = read.table("group_color.list", comment.char="")
colors = color[,1][1:23]

data = read.table("data.txt", header=T, sep="\t")
pieval <- data$num/sum(data$num)
pielabels <- paste(data$code, "(", data$num, ")")

pdf("pie3d_test.pdf")
par(family = "serif")
pie3D(pieval, explode=0.1, labels=pielabels, col=colors, labelcex=0.8)
dev.off()

explode 刀口大小
label 标签向量
col 颜色向量
labelcex 标签大小

pdf("pie3d_2_test.pdf")
par(family = "serif")
pie3D(pieval,labels=pielabels, col=colors, labelcex=0.7)
dev.off()

3 画图例

platte = data$color
names(platte) = data$code

result = 
ggplot(data, aes(x=x, y=num, color=code)) +
  geom_point(pch=15, size=3) +
  theme(text=element_text(family="serif")) +
  labs(color="Class:") +
  theme(legend.title=element_text(face="bold", size=rel(2)), 
        legend.text=element_text(size=rel(1.1)),
        legend.key=element_rect(fill="transparent")) +
  guides(color=guide_legend(ncol=1)) +
  scale_color_manual(values = platte)

ggsave(result, filename="legend_test.pdf", width=14, height=7)