3D 饼图：图例太大

Question

传说的问题太大了。 当我更改cex的数量时，字体太小而盒子仍然很大。 我希望盒子和测试可以匹配。它们不会太小和太大。

table <- data.frame(num = c(90, 26, 28, 39, 98),
                            countries = c("India","Sri Lanka","Nepal","Bhutan", "China"))
label <-paste(table[,1],"%",sep="")
pie3D(table$num, labels = label, main = "Chart",radius = 1, explode = 0)
par(xpd = TRUE)
legend(1, 0.7, legend = table$countries, cex=0.7, yjust=0.6, xjust = -0.1, 
       fill = heat.colors(length(table$num)))    

Answer 1

您可以使用图像的点pointsize或分辨率（ width和height ）。 比你还要适应labelcex 。

bmp("plot.bmp", height=600, width=800, pointsize = 15)

pie3D(table$num,labels=label,main="Chart",radius = 1,explode = 0, labelcex=1)
par(xpd=TRUE)
legend(1,0.7,legend=table$countries,cex=0.7,yjust=0.2, xjust = -0.1,
       fill = heat.colors(length(table$num)))  

dev.off()