导读

饼图可以展示整体中各个部分占整体的比例。利用label，col，border可分别调整pie图的标签、饼颜色、边颜色。如果输入数据是矩阵，即需要绘制很多个指数的饼图，可以使用for循环快速批量画图，这是一般基于图形界面的画图软件做不到的。下面是以上参数的使用方法。

一、模拟输入数据

set.seed(1995)  
# 随机种子

data=matrix(abs(round(rnorm(20, mean=20, sd=5))), 5, 4)  
# 随机正整数，5行，4列

colnames(data)=paste("C", 1:4, sep=".")  
# 列名

rownames(data)=paste("R", 1:5, sep=".")  
# 行名

data  # 查看数据，如下：

    C.1 C.2 C.3 C.4
R.1  25  18  20  20
R.2  18  20  19   8
R.3  21  20  21  13
R.4  22  19  25   7
R.5  28  28  13  20

二、画一个饼图

以第一列为绘图输入画一个饼图。

pdf("pie1.pdf")

pie(data[,1])

dev.off()

打开pie1.pdf，绘图结果如下：

图片.png

三、配色

使用RColorBrewer包的brewer.pal函数设置配色方案为"Set3"。"Set3"能给相邻单元绘上对比鲜明的颜色。
关键参数：
border="white" # 边界线条设为白色
col=brewer.pal(5, "Set3") # 5种颜色，Set3方案

library(RColorBrewer)

pdf("pie2.pdf")

pie(data[,1], border="white", col=brewer.pal(5, "Set3"))

dev.off()

打开pie2.pdf，绘图结果如下：

图片.png

四、定制标签

关键参数：
data[,1]/sum(data[,1] # 计算每个占总比
round(xx, 1) # 保留一位小数
rownames(data) # 取行名
paste(xx, "(", percent, "% )") # 字符粘贴

pdf("pie3.pdf")

percent <- round(data[,1]/sum(data[,1])*100, 1)
# 计算比例，保留一位小数
label <- paste(rownames(data), "(", percent, "% )")
# 定制标签
pie(data[,1], border="white", col=brewer.pal(5, "Set3"), label=label)

dev.off()

打开pie3.pdf，绘图结果如下：

图片.png

五、画多个饼图

使用for循环将多个饼图画到一个pdf文件中。
关键参数：
length(data[1,]) # 计算列数作为for循环数
main=colnames(data)[i] # 以列名命名每个pie

pdf("pie4.pdf")

for(i in 1:length(data[1,]))
{
    percent <- round(data[,i]/sum(data[,i])*100, 1)
    # 计算比例，保留一位小数
    label <- paste(rownames(data), "(", percent, "% )")
    # 定制标签
    pie(data[,i], border="white", col=brewer.pal(5, "Set3"), label=label, main=colnames(data)[i])
}

dev.off()

打开pie4.pdf，绘图结果如下：

图片.png
图片.png
图片.png
图片.png