Question

我在ggplot中制作了一些图表，无法确定如何在不指定x和y位置的情况下绘制图形文本。

假设我正在制作这样的图表。

sp <- ggplot(mpg, aes(hwy, cty, label = "sometext"))+
    geom_point()

我想在每个图表中以相同的方式添加要打印的标签。调用以下内容只需在提供给aes的每个x，y值处打印文本。

sp + geom_text()

我可以操纵提供给geom_text()的xy数据，以确保文本保持在图形之间相同的相对位置，但是没有简单的方法来调用默认位置，如“top”，“bottom”等等？即sp + geom_text(position="top")。

Answer 1

geom_text想要根据您的数据集绘制标签。听起来您正在寻找为您的情节添加单个文本，在这种情况下，annotate是更好的选择。要强制标签出现在同一位置而不管图中的单位，您可以利用Inf值：

sp <- ggplot(mpg, aes(hwy, cty, label = "sometext"))+
  geom_point() +
  annotate(geom = 'text', label = 'sometext', x = -Inf, y = Inf, hjust = 0, vjust = 1)
print(sp)

Answer 2

我避免像瘟疫一样annotate，只为data使用空数据框geom_text参数：

ggplot(mpg, aes(hwy, cty, label = "sometext"))+
  geom_point() +
  geom_text(data=data.frame(), aes(label = 'sometext', x = -Inf, y = Inf),
            hjust = 0, vjust = 1)

Answer 3

使用无穷大的解决方案很好，绝对是最简单的选择。

但是，如果您想要更多地控制标签的位置（例如，如果您希望它们居中，或者您希望轴线和注释之间有更多空间），则可以使用{{1}的一些数学运算}和min()你的情节标题在顶部，底部，右侧或左侧创建居中的标题。下面的代码有点冗长，但如果绘图中的值发生变化，仍会正确放置标签。另外，要复制到其他图表，您不需要手动计算值，只需更改x和y变量的名称。

max()

Answer 4

编写包装器当然是可能的，但单元和对齐的定义方式使其相当冗长，

library(ggplot2)

qplot(1,1) + 
  annotation_compass('testN') + 
  annotation_compass('testE','E') + 
  annotation_compass('testSW','SW') + 
  annotation_compass('testW','W')

annotation_compass <- function(label,
                               position = c('N','NE','E','SE','S','SW','W','NW'),
                               padding = grid::unit(c(0.5,0.5),"line"), ...){
  position <- match.arg(position)
  x <- switch (position,
    N = 0.5,
    NE = 1,
    E = 1,
    SE = 1,
    S = 0.5, 
    SW = 0,
    W = 0, 
    NW = 0
  )
  y <- switch (position,
               N = 1,
               NE = 1,
               E = 0.5,
               SE = 0,
               S = 0, 
               SW = 0,
               W = 0.5, 
               NW = 1
  )
  hjust <- switch (position,
               N = 0.5,
               NE = 1,
               E = 1,
               SE = 1,
               S = 0.5, 
               SW = 0,
               W = 0, 
               NW = 0
  )
  vjust <- switch (position,
               N = 1,
               NE = 1,
               E = 0.5,
               SE = 0,
               S = 0, 
               SW = 0,
               W = 0.5, 
               NW = 1
  )
  f1 <- switch (position,
                   N = 0,
                   NE = -1,
                   E = -1,
                   SE = -1,
                   S = 0, 
                   SW = 1,
                   W = 1, 
                   NW = 1
  )
  f2 <- switch (position,
                   N = -1,
                   NE = -1,
                   E = 0,
                   SE = 1,
                   S = 1, 
                   SW = 1,
                   W = 0, 
                   NW = -1
  )
  annotation_custom(grid::textGrob(label, 
                                   x=grid::unit(x,"npc") + f1*padding[1] , 
                                   y=grid::unit(y,"npc") + f2*padding[2],
                                   hjust=hjust,vjust=vjust, ...))
}

Answer 5

在ggpmisc::geom_text_npc中，x和y的位置以npc单位（0-1）给出。但是，位置也可以指定为“单词”：

d = data.frame(x = rep(c("left", "center", "right"), each = 3),
               y = rep(c("bottom", "middle", "top"), 3))
d$lab = with(d, paste0(x, "-", y))
d
#        x      y           lab
# 1   left bottom   left-bottom
# 2   left middle   left-middle
# 3   left    top      left-top
# 4 center bottom center-bottom
# 5 center middle center-middle
# 6 center    top    center-top
# 7  right bottom  right-bottom
# 8  right middle  right-middle
# 9  right    top     right-top

ggplot(d) +
  geom_text_npc(aes(npcx = x.chr, npcy = y.chr, label = lab))

ggplot2通过常规的“top”，“bottom”，“left”，“right”，“center”指定geom_text位置

5 个答案: