Gitterpaket in R: Ist es möglich, ein interaktives "Streudiagramm/Netzwerk" zu entwickeln?

Question

Ich entwickle ein interaktives Streudiagramm, so dass beim Überfahren eines Datenpunkts durch einen Benutzer eine Beschriftung angezeigt wird. Ich möchte jedoch auch Kanten zwischen bestimmten Datenpunkten hinzufügen.

Ich bin erfolgreich bei der Entwicklung der interaktiven Streudiagramm mit mehreren Bibliotheken, einschließlich Gitter, GitterSVG, Gitter und adegraphics. Nachfolgend finden Sie eine MWE:

library(grid) 
library(gridSVG) 
library(lattice) 
library(adegraphics) 

x = rnorm(10) 
y = rnorm(10) 
dat = data.frame(label = letters[1:10], x, y) 

customPanel2 <- function(x, y, ...) { 
    for (j in 1:nrow(dat)) { 
    grid.circle(x[j], y[j], r = unit(.5, "mm"), 
       default.unit = "native", 
       name = paste("point", j, sep = ".")) 
    } 
} 

xyplot(y ~ x, panel = customPanel2, xlab = "x variable", ylab=NULL, scales=list(tck = c(1,0), y=list(at=NULL))) 

for (i in 1:nrow(dat)) { 
    grid.text(as.character(dat$label)[i], x = 0.1, y = 0.01, just = c("left", "bottom"), name = paste("label", i, sep = "."), gp = gpar(fontface = "bold.italic")) 
} 

for (i in 1:nrow(dat)) { 
    grid.garnish(paste("point", i, sep = "."), onmouseover = paste('highlight("', i, '.1.1")', sep = ""), onmouseout = paste('dim("', i, '.1.1")', sep = "")) 
    grid.garnish(paste("label", i, sep = "."), visibility = "hidden") 
} 

grid.script(filename = "aqm.js", inline = TRUE) 
grid.export("interactiveScat.svg") 

Die resultierende SVG-Datei alles erreicht, denn ich bin mit dem Ziel - außer, dass ich möchte auch bestimmte nicht-interaktive Kanten hinzuzufügen. Ich habe versucht, dies zu tun, indem ich die adeg.panel.edges-Methode aus der adegraphics-Bibliothek einbezog, nachdem ich die Kanten und die zu kartierenden Koordinaten definiert hatte. Also, im Grunde meine xplot (...) Funktion aus, bevor dich mit Fassung:

edges = matrix(c(1, 2, 3, 2, 4, 1, 3, 4), byrow = TRUE, ncol = 2) 
coords <- matrix(c(x[1], y[1], x[2], y[2], x[3], y[3], x[4], y[4]), byrow = TRUE, ncol = 2) 

xyplot(y ~ x, panel = function(customPanel2){adeg.panel.edges(edges, coords, lty = 1:4, cex = 5)}, xlab = "x variable", ylab=NULL, scales=list(tck = c(1,0), y=list(at=NULL))) 

Es scheint, dass dies einfach die interaktive Scatterplot aus dem ursprünglichen xyplot gemacht löscht, und gibt einfach den statischen Rand und Bildkoordinaten.

Ich habe versucht, das Beispiel zu folgen, wie in (http://finzi.psych.upenn.edu/library/adegraphics/html/adeg.panel.nb.html) gesehen. Insbesondere in diesem Beispiel:

edges <- matrix(c(1, 2, 3, 2, 4, 1, 3, 4), byrow = TRUE, ncol = 2) 
coords <- matrix(c(0, 1, 1, 0, 0, -1, -1, 0), byrow = TRUE, ncol = 2) 
xyplot(coords[,2] ~ coords[,1], 
    panel = function(...){adeg.panel.edges(edges, coords, lty = 1:4, cex = 5)}) 

Ich bin ein bisschen mit einem Verlust, wie dieses Problem zu beheben, vor allem weil ich den Beispielcode am nachahmt. Irgendwelche Vorschläge werden sehr geschätzt!

Answer 1

Wenn Sie ein Knoten-Link-Diagramm eines Netzwerks erstellen möchten, besteht eine alternative Lösung darin, Ihre Daten in ein network Objekt zu konvertieren und das Paket ndtv zu verwenden, um interaktive Diagramme für Ihr Netzwerk zu generieren. Das Paket ndtv ist für dynamische Netzwerke konzipiert, generiert aber auch interaktive Diagramme für statische Netze.

library(ndtv) 
data(emon) # load a list of example networks 
render.d3movie(emon[[5]]) # render network 5 in the browser 

Viel mehr Details sind im Tutorial http://statnet.csde.washington.edu/workshops/SUNBELT/current/ndtv/ndtv-d3_vignette.html

jedoch dieses Raster/Gitter Grafiken nicht an allen Danke