一直以來畫分面圖都有一個(gè)小小的缺陷，如圖1所示不能消除分面之間的間距，今天終于發(fā)現(xiàn)原來可以通過panel.spacing函數(shù)來調(diào)整間距，強(qiáng)迫癥終于得到了滿足

library(tidyverse)
ToothGrowth$dose <- as.factor(ToothGrowth$dose)
head(ToothGrowth)

p <- ggplot(ToothGrowth,aes(dose,len,fill=dose)) +
  geom_bar(stat="identity",width = 0.5)+
  ggtitle("Plot of length by dose")+
  theme(plot.title = element_text(hjust = 0.5))+
  xlab("supp")+ylab("len")+labs(fill = "lenge")

p + theme_test()+ 
  theme(plot.title = element_text(hjust = 0.5))+
  facet_grid(. ~ supp)

p + theme_test()+ 
  theme(plot.title = element_text(hjust = 0.5))+
  facet_grid(dose ~ supp)

p + theme_test()+ 
  theme(plot.title = element_text(hjust = 0.5))+
  facet_grid(. ~ supp)+
  theme(panel.spacing.x = unit(0, "cm"))+
  theme(panel.spacing.y = unit(0, "cm"))

p + theme_test()+ 
  theme(plot.title = element_text(hjust = 0.5))+
  facet_grid(dose ~ supp)+
  theme(panel.spacing.x = unit(0, "cm"))+
  theme(panel.spacing.y = unit(0, "cm"))