r - 使用 R 中的 ggplotly() 绘制图中点旁边的标签

Question

我想知道是否有一种方法可以在 ggplotly() 图中的点旁边放置标签。如果我在ggplot()中使用geom_text或geom_text_repel，结果就可以了。但如果我调用 ggplotly()，我就看不到我创建的标签了。

例如:

require(ggplot)
require(plotly)
x <- c("01/01/2007","04/03/2008","28/11/2008","13/06/2009")
y <- c(25, 50, 75, 100)
x <- as.Date(x, "%d/%m/%Y")
labels <- c("observer1", "observer2", "observer3", "observer4")
x_lab <- "date"
y_lab <- "score"
mydata <- as.data.frame(cbind(x,y))
ggplot(mydata, aes(x=x, y=y)) +
  geom_point() +
  geom_line(col="blue")
ggplotly()

我希望“标签”出现在点旁边，但我找不到方法来做到这一点。

预先感谢您的任何建议。

Answer 1

我知道你知道这个错误不会发生在ggplot2中，它发生在plotly中，因为plotly的功能与 ggplot2 有很大不同。并非 ggplot2 包中的所有函数都可以传递给plotly。 但是，如果您仍然因为 plotly 的附加功能而对其着迷，我强烈建议您使用 plot_ly() 函数来创建绘图，而不是 ggplot() .

我在下面为您提供了一个良好的开端:

require(ggplot)
require(plotly)
x <- c("01/01/2007","04/03/2008","28/11/2008","13/06/2009")
y <- c(25, 50, 75, 100)
x <- as.Date(x, "%d/%m/%Y")
labels <- c("observer1", "observer2", "observer3", "observer4")
x_lab <- "date"
y_lab <- "score"
mydata <- as.data.frame(cbind(x,y))
plot_ly(mydata, x = ~x, y = ~y, type = 'scatter', mode = 'markers',
             marker = list(size = 10)) %>%
  add_annotations(x = mydata$x,
                  y = mydata$y,
                  text = labels)

此图的输出位于此链接中 Graph Output from plot_ly function