如何調整繪圖圖例中兩列之間的間距？

Question

我想將餅圖的圖例作為單個圖（每頁6個圖形-5個圖，1個圖例）。 現在，我很難調整兩列之間的間距。

我使用了以下代碼（通過嘗試和錯誤）：

 #Colors
 colors=c("blue","green","yellow","orange","red","purple","pink","grey")

 legtext <- c("G","G*E","E","Source","Source*E",
 "Table*E","Table*Block*E","Residual Error") 

 #Code for chart
 pie3D(#data for pie
 rooting1,
 #specify labels vector
 #labels=labels,
 #specify labels size
 labelcex=0.9,
 #how much different pies go from each other
 explode=0.1,
 #height of chart
 height=0.1,
 #Main title
 theta=pi/3,
 #Colors
 col=colors
 )

 #Code for legend
 xcoords <- c(0.9,1,1.1,1.2)
 secondvector <- (1:length(legtext))-1
 textwidths <- xcoords/secondvector # this works for all but the first element
 textwidths[1] <- 0

legend(-1, 0.9,ncol=2,
   c("G","G*E","E","Source","Source*E","Table*E","Table*Block*E","Residual Error"), 
   cex = 0.8, 
   fill = colors,
   text.width=textwidths)

我得到的圖是：我想刪除垂直線，如果可能，請刪除圖表的其余部分，因為我只想顯示圖例。

我得到的傳說：

有誰能夠幫助我？

Answer 1

將bty="n"添加到圖例：

legend(-1, 0.9,ncol=2,
   c("G","G*E","E","Source","Source*E","Table*E","Table*Block*E","Residual Error"), 
   cex = 0.8, 
   fill = colors,
   text.width=textwidths,
   bty="n")

至於另一個問題-如何擺脫圖表本身，這將需要一些擺弄。 基本上，您可以做一個空圖表，但要調整xlim和ylim以及邊距，以便為圖例留出足夠的空間：

par(mar=c(0.1,0.1,0.1,0.1))  # you don't need large margins
# but maybe you need more than 0.1
plot(NA, xlim=c(-1,1), ylim=c(-1,1), axes=FALSE, xlab="", ylab="")
# this makes an empty plot
# you may need to change xlim and ylim (or the x and y of your legend)
# ... so that the legend would start from the left/upper corner