添加标记并在R中显示工具提示

Question

以下R代码创建带标记的折线图。我希望创建一个图表，当在标记上执行悬停时，它会给出＆＃34;数字＆＃34;和＆＃34; sepw＆＃34;工具提示中的值。标记也应该是粗体。请帮忙。

 digits = 1:150
 sep = iris$Sepal.Length
 sepw = iris$Sepal.Width
 plot_f1 <-  ggplot(iris, aes(x = digits)) + 
 geom_line(aes(y = sep, color = "red", label = sepw )) + geom_point(y = sep)
 plot_f1 = ggplotly(plot_f1)
 plot_f1

Answer 1

以下是您问题的第一个解决方案：

library(ggplot2)
library(plotly)

digits = 1:150
sep = iris$Sepal.Length
sepw = iris$Sepal.Width
plot_f1 <-  ggplot(iris, aes(x=digits, y=sep, label=sepw)) + 
            geom_line(color="red") + geom_point()
plot_f1 <- ggplotly(plot_f1, tooltip=c("x","label"))
plot_f1

第二种解决方案基于text美学：

plot_f2 <-  ggplot(data=iris, aes(x=digits, y=sep, group=1, 
                   text=paste("Sepw =",sepw,"<br />Digits =",digits))) + 
            geom_line(color="red") + geom_point()
plot_f2 <- ggplotly(plot_f2, tooltip="text")
plot_f2