R ggplot2 有交互选项吗？

Question

我想将一些数据放入散点图中，当我滚动图表上的点时，我希望弹出一个气泡并提供一些识别信息。

例如，如果我有一个包含学生姓名、高度和体重的数据框，我想分别在 x 轴和 y 轴上绘制高度和体重。然后，当我将鼠标悬停在绘图上的单个点时，会弹出一个带有学生姓名的气泡。

在基本的 plot() 中使用了一个有点类似的函数，称为 identify() 但它需要单击该点，并且在我离开后不会消失重点。

这是一个示例 df 和绘图/识别代码:

> dput(df1)
structure(list(id = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), var1 = c(0.469521932071075, 
0.077109789242968, 0.076340542640537, 0.461061101639643, 0.347079795086756, 
0.425340321380645, 0.738443679409102, 0.00931701785884798, 0.267918228404596, 
0.722170797875151), var2 = c(0.265150599181652, 0.557858553016558, 
0.715832461370155, 0.186717337928712, 0.626156869810075, 0.1359783844091, 
0.67408229294233, 0.528320853365585, 0.241800826275721, 0.80992470192723
), names = c("jim", "nancy", "suzy", "mark", "alex", "jen", "luz", 
"jeff", "paula", "amir")), .Names = c("id", "var1", "var2", "names"
), row.names = c(NA, -10L), class = "data.frame")

plot(df1$var1, df1$var2);grid()
identify(df1$var1, df1$var2, labels = df1$names)

这是点击几个点后的示例:

有什么建议吗？

Answer 1

TeachingDemos 包中的 HTKidentify 和 HWidentify 函数允许创建散点图，并在将鼠标悬停在数据点上时弹出信息，当您移动到新点时，信息就会消失。第一个需要 Tk，第二个仅适用于 Windows，并且都不使用 ggplot2(但两者都是纯 R 代码，因此您可能会找到一种方法来修改它们以与 ggplot2 或其他扩展一起使用)。