在 ggplot2 facet_grid 中旋转切换的构面标签

发布于11月08日

我想使用facet_grid在彼此上方绘制一些条形图:

library(ggplot2)

df <- group_by(mpg, manufacturer) %>%
  summarise(cty = mean(cty), hwy = mean(hwy)) %>%
  ungroup()

df <- melt(df, id.vars = "manufacturer")

ggplot() +
  geom_bar(data =df, aes(x = variable, y = value), stat = "identity") +
  facet_grid(manufacturer ~ ., switch = "y")

我使用ggplot2::facet_grid()的switch参数让刻面标签显示在y轴上，而不是每个刻面的顶部.问题是，镶嵌面标签是垂直绘制的，因此会被裁剪.有没有办法水平绘制刻面标签？到目前为止，我发现的所有问题都只与旋转x轴标签有关，而不是面标签.

推荐答案

你只需要加上theme()，并在strip.text.y.left中指定Angular .

library(tidyverse)
library(reshape2)

df <- group_by(mpg, manufacturer) %>%
  summarise(cty = mean(cty), hwy = mean(hwy)) %>%
  ungroup()

df <- melt(df, id.vars = "manufacturer")

ggplot() +
  geom_bar(data =df, aes(x = variable, y = value), stat = "identity") +
  facet_grid(manufacturer ~ ., switch = "y")+
  theme(strip.text.y.left = element_text(angle = 0))