在 R 中从列表创建多个饼图

我想一次创建多个饼图，我有一个名称列表：

 [1]   361   456   745   858  1294  1297  2360  2872  3034  5118  5189...

因此第一个饼图应标记为“361”，依此类推。

然后我有几个列表，其中每个饼图都有值

[1] 102  99 107  30   2   8  24  16  57 117 ...
[1] 1 1 2 1 0 0 0 1 1 2 ...
[1] 4 2 2 1 3 0 0 1 1 2 ...

因此，对于“361”，第一个元素是 102，第二个元素是 1，第三个元素是 4。总数是 107。

我想一次性制作所有图表。

实现这一点的一种方法是设置par("mfrow")。我还稍微调整了边距，以消除图表周围一些不需要的空白。

par(mfrow=c(2,5), mar=rep(0, 4), oma=rep(0,4))
for(i in 1:length(names)) {
    pie(df[i, ][df[i,] > 0], labels=(1:3)[df[i,] > 0])
    title(names[i], line = -3) }

Data

## data
names = c(361, 456, 745, 858, 1294, 1297, 2360, 2872, 3034, 5118, 5189)
x = c(102,  99, 107,  30,   2,   8,  24,  16,  57, 117)
y = c(1, 1, 2, 1, 0, 0, 0, 1, 1, 2)
z = c(4, 2, 2, 1, 3, 0, 0, 1, 1, 2)
df = data.frame(x,y,z)