我有一个子图如下
mydata <- data.frame(side1=rep(LETTERS[1:3],3,each=9),side2=rep(LETTERS[1:3],9,each=3),widget=rep(c("X","Y","Z"),9*3),size=rep(1/3,9*3),strength=runif(27,-1,1))
ggplot(mydata, aes(x="",y = size, fill = strength, width = widget)) +
geom_bar(width = 1) +
facet_grid(side1 ~ side2) +
scale_x_discrete("",breaks=NULL) +
coord_polar("y") + scale_fill_gradient2() +
scale_y_continuous("",breaks=NULL)+
theme(panel.grid=element_blank(),panel.border=element_blank())
我想减少每个子图之间的空间以及它们的大小。因为我在制作 100x100 子图之后。因此,彼此靠近以及尺寸非常重要。