传说的问题太大了。 当我改变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)))
答案 0 :(得分: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()