Adding markers and display the tooltip in R

Question

The following R code creates a line plot with markers. I wish to create a plot such that when hover is performed on the marker, it gives the "digits" and "sepw" values in the tooltip. Also the marker should be bold. Please help.

 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

Here is a first solution for your problem:

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

A second solution is based on the text aesthetic:

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