我目前正在創建具有GGPLOT2地塊爲乳膠文件,發現GGPLOT2增加了許多不必要的邊距:如何刪除利潤率GGPLOT2圖表
- 塗成紅色的
plot.background=element_rect(fill="red")
:- 左邊的小邊距
- 圖像和圖例之間的小邊距
- 塗紫用Photoshop:左側
- 緣和右
- 1px的利潤率在底部
哪些是需要更多的規則,以消除這些利潤?谷歌所有這些配置選項真的很困難。這是我的實際圖表:
library(ggplot2)
library(scales)
label <- c("A", "B", "C", "D")
value <- c(61, 26, 9, 4)
values <- data.frame(label, value)
myplot <- ggplot(values, aes(x = "", y=value, fill=label))
myplot <- myplot + theme(legend.position="bottom")
myplot <- myplot + labs(fill="")
myplot <- myplot + geom_bar(stat="identity", width=1)
myplot <- myplot + geom_text(
aes(x=1.3, y=value/2+c(0, cumsum(value)[-length(value)])),
label=percent(value/100),
size=2
)
myplot <- myplot + coord_polar(theta="y")
myplot <- myplot + theme(plot.background=element_rect(fill="red"))
myplot <- myplot + theme(
plot.margin=unit(c(0,0,0,0), "mm"),
legend.margin=unit(0, "mm"),
axis.title=element_blank(),
axis.ticks=element_blank()
)
ggsave("pie.pdf")
Dupe? [刪除'ggplot2'中的繪圖邊距](http://stackoverflow.com/a/17791455/903061)表示'labs(x = NULL,y = NULL)'也是需要的。 – Gregor
然而,它似乎並沒有起到什麼作用,至少與紅色區域沒有關係。 – Gregor
爲什麼不移動''myplot < - myplot +主題(plot.background = element_rect(fill =「red」))? –