ggplot2：更改 facet_grid 图中的 strip.text 位置

Question

您可以在绘图区域内设置图例的位置，例如

... + theme(legend.justification=c(1,0), legend.position=c(1,0))

是否有类似的简单方法来更改条带文本的位置（或分组图中的因子水平）

library(reshape2); library(ggplot2)

sp <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + geom_point() +
  facet_grid(. ~ sex)

sp

( http://www.cookbook-r.com/Graphs/Facets_%28ggplot2%29/ )

在格子中，我会使用类似 strip.text = levels(dat$Y)[panel.number()] 和 panel.text(...) 之类的东西，但也可能有更清洁的方法......

谢谢，克里斯托夫

Answer 1

这是一种方法：

ggplot(tips, aes(x = total_bill, y = tip / total_bill)) +
  geom_point() +
  facet_grid(. ~ sex) +
  geom_text(aes(label = sex), x = Inf, y = Inf, hjust = 1.5, vjust = 1.5) +
  theme(
      strip.background = element_blank(),
            strip.text = element_blank()
  )

但是，这并没有移动strip.text ，而是添加了一个geom_text元素并关闭了strip.background和strip.text ，但我认为它实现了预期的结果。

Answer 2

轻微除了@JasonAizkalns是添加check_overlap = T在选项geom_text ，以避免多个相同标签的叠加。

  ggplot(tips, aes(x = total_bill, y = tip / total_bill)) +
  geom_point() +
  facet_grid(. ~ sex) +
  geom_text(aes(label = sex), x = Inf, y = Inf, hjust = 1.5, vjust = 1.5, check_overlap = TRUE) +
  theme(
      strip.background = element_blank(),
            strip.text = element_blank()
  )