R中的莱迪思包:是否可以开发交互式"散点图/网络"？

Question

我正在开发一个交互式散点图,以便当用户滚动数据点时,会显示一个标签.但是,我还想在某些数据点之间添加边.

我成功地使用几个库开发了交互式散点图,包括grid,gridSVG,lattice和adegraphics.以下是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")

生成的.svg文件完成了我的目标 - 除了我还希望添加某些非交互式边缘.我尝试通过在定义边缘和要映射的坐标之后合并adegraphics库中的adeg.panel.edges方法来完成此操作.所以,基本上我之前的xplot(...)函数被替换为:

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)))

这似乎只是简单地删除了由原始xyplot制作的交互式散点图,并简单地输出静态边缘和坐标图像.

我试图按照(http://finzi.psych.upenn.edu/library/adegraphics/html/adeg.panel.nb.html)中的例子进行操作.具体来说,这个例子:

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)})

我有点不知道如何解决这个问题,特别是当我模仿示例代码时.任何建议都非常感谢!

Answer 1

如果您尝试生成的是网络的节点链接图，则替代解决方案是将数据强制转换为对象network并使用该ndtv包为您的网络生成 svg/htmlwidget 交互式图。该ndtv软件包专为动态网络而设计，但也将为静态网络生成交互式绘图。

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

更多详细信息请参见教程http://statnet.csde.washington.edu/workshops/SUNBELT/current/ndtv/ndtv-d3_vignette.html

然而，这根本不使用网格/点阵图形