R ggplot2标记位置未居中

发布于12月29日

我想 for each 绘图添加一个标记，理想情况下，该标记应该放置在x轴的顶部和中心位置，以下是示例:

ggplot2::ggplot(mtcars) +
  ggplot2::geom_point(ggplot2::aes(mpg, wt)) +
  ggplot2::geom_smooth(ggplot2::aes(mpg, wt)) +
  ggplot2::scale_y_continuous(labels = function(x) paste0(x, " very very long label")) +
  ggplot2::labs(tag = "A", x = "mpg", y = "wt") +
  ggplot2::theme(plot.tag.position = "top")

The out put looks like this:

我注意到，当y轴标签非常长时，标记似乎位于整个面板的中心，而不是x轴的中心.我该怎么修好它？

推荐答案

如果你不打算使用映射到数据的facet，你可以用一个固定的值来创建一个假的facet，并使用strip.background theme元素来设置它的样式:

ggplot(mtcars) +
  geom_point(aes(mpg, wt)) +
  geom_smooth(aes(mpg, wt)) +
  scale_y_continuous(labels = function(x) paste0(x, " very very long label")) +
  facet_wrap(~ "A") +
  labs(x = "mpg", y = "wt") +
  theme(strip.background = element_rect(fill = "white"))

可能更好的 Select 是添加一个没有标签和断点的辅助x轴，并通过将theme上的axis.line.x.top设置为element_blank()来删除线:

ggplot(mtcars) +
  geom_point(aes(mpg, wt)) +
  geom_smooth(aes(mpg, wt)) +
  scale_y_continuous(labels = function(x) paste0(x, " very very long label")) +
  ###
  scale_x_continuous(sec.axis = dup_axis(name = "A", labels = NULL, breaks = NULL)) +
  ###
  labs(x = "mpg", y = "wt") +
  theme(axis.line.x.top = element_blank())