相关疑难解决方法(0)

我想以交互方式在ggplot中标记点,以便鼠标悬停在一个点上显示标签.

我在努力适应中给出的回答这个问题,使其工作在GGPLOT2的最新版本.受ggplot谷歌小组评论的影响,在这里,我使用最新版本的geom-point-.r作为模板,在各个地方的gp参数中添加了一个"标签"字段.然后我从kohske的答案中复制了剩下的代码.但它不起作用 - 结果svg中没有任何标签,我无法弄清楚原因.

我注意到所有内容point_grobs_labels都是null,当我看到时grid.get(point_grob_names[1])$gp,没有标签字段......

library(ggplot2)
library(gridSVG)
library(proto)
library(rjson)

geom_point2 <- function (mapping = NULL, data = NULL, stat = "identity", 
                         position = "identity",
                         na.rm = FALSE, ...) {
  ggplot2:::GeomPoint$new(mapping = mapping, data = data, stat = stat, 
                          position = position, 
                          na.rm = na.rm, ...)
}

GeomPoint2 <- proto(ggplot2:::Geom, {
  objname <- "point"

  draw_groups <- function(., ...) .$draw(...)
  draw <- function(., data, scales, coordinates, na.rm = FALSE, ...) {    
    data <- remove_missing(data, …