导读:
前面画过二维饼图: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)

网友评论