在两个轴上注释 ggplot2：文本不断改变位置

Question

我试图用一些文本来注释我的绘图的两个轴，但是当我这样做时，我无法按照我的意愿定位文本。通过在一个轴上添加新文本，另一个轴上的文本会错位。

如何处理？

这里有一个例子来说明我的问题：


set.seed(1234)
x <- rnorm(50, 5, 2)
y <- x + 1 + rnorm(50)
data <- cbind.data.frame(x,y)

#Create a plot in which I annotate in one axis (it works great)

plot <- ggplot(data = data, aes(x, y))+ 
  geom_point() +
  geom_hline(yintercept=median(data$x, na.rm = T), color = 'red') +
  geom_vline(xintercept=median(data$y, na.rm = T), color = 'red') +
  labs(y="Label y", x = "Label x") +
  geom_smooth(method=lm, na.rm = TRUE, fullrange= TRUE,
              aes(group=1),colour="black") +
  theme_bw() +
  theme(axis.title.y = element_text(margin = margin(t = 0, r = 30, b = 0, l = 0))) +
  theme(axis.title.x = element_text(margin = margin(t = 30, r = 0, b = 0, l = 0))) +
  annotate("text", x = 9, y = -3, label = "Helpful Text2") +
  annotate("text", x = 0.5, y = -3, label = "Helpful Text1") +
  coord_cartesian(ylim = c(0, 15), clip = "off")

#Trying to add annotation to the second axis (it alters the axis of the plot, thereby misplacing the annotation I have done prior)
plot + annotate("text", x = 0, y = 8.5, label = "Helpful Text3", angle = 90) +
  annotate("text", x = 0, y = 2, label = "Helpful Text4", angle = 90) +
  coord_cartesian(xlim = c(1, 9), clip = "off")

想法？

Answer 1

你可以试试：

plot + annotate("text", x = -1, y = 14, label = "Helpful Text3", angle = 90) +
  annotate("text", x = -1, y = 0, label = "Helpful Text4", angle = 90) +
  coord_cartesian(ylim = c(0, 15), xlim = c(0, 10), clip = "off")

只需确保在定义绘图时在 geom_smooth 中设置 fullrange = FALSE。

在两个轴上注释 ggplot2：文本不断改变位置

Annotate ggplot2 across both axis: text keeps changing position

r

annotate

ggplot2