Question

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

我使用几个库（包括grid，gridSVG，lattice和adegraphics）成功开发了交互式散点图。以下是MWE：

IHttpRequest

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

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

这似乎只是删除了原始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(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)))

我对如何解决这个问题感到有点不知所措，特别是当我模仿示例代码时。非常感谢任何建议！

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

中有更详细的内容

但是，这根本不使用网格/点阵图形

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

1 个答案: