8

たとえば、ポイントの ggplot が与えられた場合、特定のポイントが対応するデータの行をどのように見つけますか?

サンプルプロット:

library(ggplot2)
(p <- ggplot(mtcars, aes(mpg, wt)) +
    geom_point() +
    facet_wrap(~ gear)
)

grid.ls+でポイントを含むグロブを取得できますgrid.get。

grob_names <- grid.ls(print = FALSE)$name
point_grob_names <- grob_names[grepl("point", grob_names)]
point_grobs <- lapply(point_grob_names, grid.get)

この最後の変数には、xy 座標やポイントサイズなどの詳細が含まれています (試してみてください) が、各ポイントが対応するunclass(point_grobs[[1]])データの行を取得する方法は明らかではありません。mtcars

なぜ私がこれを行うのかについてのkohskeの質問に答えるgridSVGために、インタラクティブな散布図を作成するために使用しています。ポイントの上にマウスを移動すると、コンテキスト情報が表示されます。mtcars の例では、車の名前またはデータ フレームのその行のその他の値を含むツールチップを表示できます。

これまでの私のハックなアイデアは、id列を非表示のテキスト ラベルとして含めることです。

mtcars$id <- seq_len(nrow(mtcars))
p + geom_text(aes(label = id), colour = NA)

次に、ポイント グロブからテキスト グロブまでグロブのツリーをトラバースし、ラベルによってインデックス付けされたデータセットの行を表示します。

これは扱いにくく、あまり一般化できません。idポイント グロブ内に値を格納する方法があれば、よりクリーンになります。

4

1 に答える 1

7

このスクリプトは、ポイントにインタラクティブに注釈を付けることができる SVG ファイルを生成します。

library(ggplot2)
library(gridSVG)

geom_point2 <- function (...) GeomPoint2$new(...)
GeomPoint2 <- proto(GeomPoint, {
  objname <- "point2"
  draw <- function(., data, scales, coordinates, na.rm = FALSE, ...) {
   data <- remove_missing(data, na.rm, c("x", "y", "size", "shape"), 
        name = "geom_point")
    if (empty(data)) 
        return(zeroGrob())
    name <- paste(.$my_name(), data$PANEL[1], sep = ".")
    with(coordinates$transform(data, scales), ggname(name,
        pointsGrob(x, y, size = unit(size, "mm"), pch = shape, 
            gp = gpar(col = alpha(colour, alpha), fill = fill, label = label,
                fontsize = size * .pt))))
  }}
  )

p <- ggplot(mtcars, aes(mpg, wt, label = rownames(mtcars))) + geom_point2() + facet_wrap(~ gear)
print(p)

grob_names <- grid.ls(print = FALSE)$name
point_grob_names <- sort(grob_names[grepl("point", grob_names)])
point_grobs_labels <- lapply(point_grob_names, function(x) grid.get(x)$gp$label)

library(rjson)
jlabel <- toJSON(point_grobs_labels)

grid.text("value", 0.05, 0.05, just = c(0, 0), name = "text_place", gp = gpar(col = "red"))

script <- '
var txt = null;
function f() {
    var id = this.id.match(/geom_point2.([0-9]+)\\.points.*\\.([0-9]+)$/);
    txt.textContent = label[id[1]-1][id[2]-1];
}

window.addEventListener("load",function(){
    var es = document.getElementsByTagName("circle");
    for (i=0; i<es.length; ++i) es[i].addEventListener("mouseover", f, false);

    txt = (document.getElementById("text_place").getElementsByTagName("tspan"))[0];

},false);
'

grid.script(script = script)
grid.script(script = paste("var label = ", jlabel))

gridToSVG()

SVGファイルをアップロードできる場所をいくつか知っていますか?

于 2012-01-23T19:33:22.373 に答える