r - 有谁知道为什么饼图在使用 par 函数在 R 中的第四行之后缩小？

Question

我创建了一个包含四行两列饼图的图（一列用于案例，另一列用于控制）。代码复制如下。一旦我从 par(mfrow= c(3,2)) 转到 par(mfrow = c(4,2))，饼图就会缩小到难以阅读的大小。如果有 1-3 行，饼图就可以了。任何人有任何解决方案？谢谢大家。

#Plot with Pie Chart
par(mfrow= c(4,2))
pie(A, col=colsA, labels=pielabelsA)
pie(B,col=colsB, labels=pielabelsB)
pie(C, col = colsA, labels = pielabelsC)
pie(D, col = colsB, labels = pielabelsD)
pie(E, col = colsE, labels = pielabelsE)
pie(F, col = colsF, labels = pielabelsF)
pie(G, col = colsG, labels = pielabelsG)
pie(H, col = colsH, labels = pielabelsH)


#Pie Chart Data
A <- c(255, 26)
percentlabelsA <- round(100*A/sum(A), 2)
pielabelsA <- paste(percentlabelsA, "%", sep="")
colsA <- c("blue", "yellow")

B <- c(374,10)
percentlabelsB <- round(100*B/sum(B), 2)
pielabelsB <- paste(percentlabelsB, "%", sep="")
colsB <- c("red", "yellow")


C <- c(231, 25)
percentlabelsC <- round(100*C/sum(C), 2)
pielabelsC<- paste(percentlabelsC, "%", sep="")
colsC <- c("blue", "yellow")

D <- c(504, 37)
percentlabelsD <- round(100*D/sum(D), 2)
pielabelsD<- paste(percentlabelsD, "%", sep="")
colsD <- c("red", "yellow")

E <- c(50, 2)
percentlabelsE <- round(100*E/sum(E), 2)
pielabelsE <- paste(percentlabelsE, "%", sep="")
colsE <- c("blue", "yellow")

F <- c(506,14)
percentlabelsF <- round(100*F/sum(F), 2)
pielabelsF <- paste(percentlabelsF, "%", sep="")
colsF <- c("red", "yellow")

G <- c(26, 1)
percentlabelsG <- round(100*G/sum(G), 2)
pielabelsG <- paste(percentlabelsG, "%", sep="")
colsG <- c("blue", "yellow")

H <- c(530,15)
percentlabelsH <- round(100*H/sum(H), 2)
pielabelsH <- paste(percentlabelsH, "%", sep="")
colsH <- c("red", "yellow")

标签： rpie-chartpar