由于增加了数字，图例是半透明的。

Question

在图例中有很长的文字。在我添加数字后，这段文字有一半是可见的，我的代码。

library(plotrix)
x <- c(16.6, 8.3, 11.7, 10.6,38.5,14.3)
lbls <- paste(x,"%") 
labels <- c("TEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXT", "TEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXT", "TEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXT", 
            "TEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXT", "TEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXT",
            "TEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXT")
colors<-c("#F69646","#B70000","#002060","#553C75","#632523","#00B0EF")
pie3D(x, labels=lbls,explode=0.1, height=0.05,  main='TEXTTEXTTEXTTEXTTEXTTEXT', col=colors)
legend(0.75,1.1, labels, cex = 0.46,fill = colors)

Answer 1

你需要调整一些图例的参数，尤其是 xjust 和 adj:

pie3D(x, labels = lbls, explode = 0.1, height = 0.05, 
      main = 'TEXTTEXTTEXTTEXTTEXTTEXT', col = colors, mar = c(2, 4, 4, 4))
legend(0.75, 0.7, labels, cex = 0.46, fill = colors, xjust = 0.16, 
       inset = 0, adj = c(1, 0))

Answer 2

我补充如下：

par(xpd=TRUE)

表里如一