一直以來(lái)畫(huà)分面圖都有一個(gè)小小的缺陷仔拟，如圖1所示不能消除分面之間的間距，今天終于發(fā)現(xiàn)原來(lái)可以通過(guò)panel.spacing函數(shù)來(lái)調(diào)整間距荸实，強(qiáng)迫癥終于得到了滿(mǎn)足
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"))
