geom_text / geom_label 与 bquote 功能

Question

我的数据：

dat <- data_frame(x = c(1,2,3,4,5,6), y = c(2,2,2,6,2,2))

我想在点 (x=4,y=6) 旁边显示这个表达式：

expression <- bquote(paste(frac(a[z], b[z]), " = ", .(dat[which.max(dat$y),"y"] %>% as.numeric())))

但是，当我将这个表达式与 ggplot 一起使用时：

ggplot() + 
  geom_point(data = dat, aes(x = x, y = y)) + 
  geom_label(data = dat[which.max(dat$y),], aes(x = x, y = y, label = expression))

我收到此错误消息：

Error: Aesthetics must be either length 1 or the same as the data (1): label

Answer 1

您可以使用以下代码（保留您对数据和表达式的定义）：

与您的问题无关，但是：最好在 ggplot 调用中定义 aesthetics 并在后续函数调用中重用它。如果需要，您可以覆盖定义，如下面 geom_label

中所做的那样

ggplot(data = dat, aes(x = x, y = y)) + 
  geom_point() + 
  geom_label(data = dat[4,], label = deparse(expression), parse = TRUE, 
             hjust = 0, nudge_x = .1)

hjust和nudge_x用于相对于点定位标签。人们可能会争辩说也可以使用 nudge_y 来获得图片中的整个标签。

生成此图：

请告诉我这是否是您想要的。

geom_text / geom_label 与 bquote 功能

geom_text / geom_label with the bquote function

r

ggplot2

geom-text