Question

使用ggplot2和coord_polar创建构面图时，我的x轴标签会非常接近，有时会被面板的边框切断。

因此，我希望增加与绘图本身相邻的空白（在面板边框内）。以下示例使用mtcars来显示我正在创建的绘图类型。

到目前为止，我对margin的所有测试都增加了整个图表（包含所有面板）的空白，而不是单个面板。有没有办法实现这个目标？

library(ggplot2)

cars <- c(rep("ford",8),rep("vauxhall",8),rep("renault",8),rep("tesla",8))
mtcars <- cbind(mtcars,cars)

#plot
ggplot(data=mtcars, aes(x=cars,y=mpg)) +
  geom_bar(stat="identity", fill = "darkgrey", colour = NA, alpha = 0.75) +
  theme_bw() +
  theme(axis.text=element_text(size=8),
        axis.text.x=element_text(size=12, margin = margin(t= 50)),
        axis.title=element_text(size=14,face="bold"),
        strip.text.x = element_text(size=12, face="bold"),
        strip.text.y = element_text(size=12, face="bold"),
        panel.spacing = unit(1, "lines")) +
  xlab("") +
  coord_polar(start=-0.4) +
  facet_grid(gear ~ am, scales = "free") 

ggsave("C:/Sandbox/myplot.png",plot = last_plot(), width = 130, height = 177, units = "mm", dpi = 900)

将空白缓冲区添加到构面图

0 个答案: