R：将facet_grid对齐到网格顶部

如何解决R：将facet_grid对齐到网格顶部

我正在努力尝试在R中格式化绘图的facet_grid。这是我的代码的可复制示例，其中包含可从R（ToothGrowth）中的数据集获取的数据。

library(ggplot2)

df <- ToothGrowth

bp <- ggplot(df,aes(x=dose,y=len,group=dose)) +
             geom_Boxplot(aes(fill=dose)) +   
             facet_grid(supp ~ .) + 
             theme_minimal(base_size = 16) +   
             theme(legend.position = "none",axis.title.x = element_blank(),axis.title.y = element_blank(),axis.ticks = element_blank(),panel.grid.major.x = element_line(size = 0.25,colour = "grey80"),strip.text = element_text(size = 22,face = "bold"))

bp

使用代码我获得了第一张图片：

我想将facet_grid的标签与网格图例的顶部对齐，如第二幅图所示：

谢谢。

解决方法

在您的绘图代码中添加以下内容：

theme(strip.text.y=element_text(hjust=0))

如果要旋转标签，可以执行以下操作：

theme(strip.text.y=element_text(vjust=1,angle=0))

（是的，vjust与hjust令人困惑）

p1 = bp + theme(strip.text.y=element_text(hjust=0))
p2 = bp + theme(strip.text.y=element_text(vjust=1,angle=0))