Question

我试图让D的scatterplot3d包在Beaker Notebook中渲染，但无法让它工作。我可以无错误地运行代码，但不显示图形。将scatterplot3d输出设置为变量并打印变量得到：

输入：

data(iris)  
test <- scatterplot3d(iris[,1:3])
test

输出：

$xyz.convert
function (x, y = NULL, z = NULL) 
{
xyz <- xyz.coords(x, y, z)
if (angle > 2) {
    temp <- xyz$x
    xyz$x <- xyz$y
    xyz$y <- temp
}
y <- (xyz$y - y.add)/y.scal
return(list(x = xyz$x/x.scal + yx.f * y, y = xyz$z/z.scal + 
    yz.f * y))
}
<environment: 0x00000000048f8830>

$points3d
function (x, y = NULL, z = NULL, type = "p", ...) 
{
xyz <- xyz.coords(x, y, z)
if (angle > 2) {
    temp <- xyz$x
    xyz$x <- xyz$y
    xyz$y <- temp
}
y2 <- (xyz$y - y.add)/y.scal
x <- xyz$x/x.scal + yx.f * y2
y <- xyz$z/z.scal + yz.f * y2
mem.par <- par(mar = mar, usr = usr)
on.exit(par(mem.par))
if (type == "h") {
    y2 <- z.min + yz.f * y2
    segments(x, y, x, y2, ...)
    points(x, y, type = "p", ...)
}
else points(x, y, type = type, ...)
}
<environment: 0x00000000048f8830>

$plane3d
function (Intercept, x.coef = NULL, y.coef = NULL, lty = "dashed", 
lty.box = NULL, ...) 
{
if (!is.atomic(Intercept) && !is.null(coef(Intercept))) 
    Intercept <- coef(Intercept)
if (is.null(lty.box)) 
    lty.box <- lty
if (is.null(x.coef) && length(Intercept) == 3) {
    x.coef <- Intercept[if (angle > 2) 
        3
    else 2]
    y.coef <- Intercept[if (angle > 2) 
        2
    else 3]
    Intercept <- Intercept[1]
}
mem.par <- par(mar = mar, usr = usr)
on.exit(par(mem.par))
x <- x.min:x.max
ltya <- c(lty.box, rep(lty, length(x) - 2), lty.box)
x.coef <- x.coef * x.scal
z1 <- (Intercept + x * x.coef + y.add * y.coef)/z.scal
z2 <- (Intercept + x * x.coef + (y.max * y.scal + y.add) * 
    y.coef)/z.scal
segments(x, z1, x + y.max * yx.f, z2 + yz.f * y.max, lty = ltya, 
    ...)
y <- 0:y.max
ltya <- c(lty.box, rep(lty, length(y) - 2), lty.box)
y.coef <- (y * y.scal + y.add) * y.coef
z1 <- (Intercept + x.min * x.coef + y.coef)/z.scal
z2 <- (Intercept + x.max * x.coef + y.coef)/z.scal
segments(x.min + y * yx.f, z1 + y * yz.f, x.max + y * yx.f, 
    z2 + y * yz.f, lty = ltya, ...)
}
<environment: 0x00000000048f8830>

$box3d
function (...) 
{
mem.par <- par(mar = mar, usr = usr)
on.exit(par(mem.par))
lines(c(x.min, x.max), c(z.max, z.max), ...)
lines(c(0, y.max * yx.f) + x.max, c(0, y.max * yz.f) + z.max, 
    ...)
lines(c(0, y.max * yx.f) + x.min, c(0, y.max * yz.f) + z.max, 
    ...)
lines(c(x.max, x.max), c(z.min, z.max), ...)
lines(c(x.min, x.min), c(z.min, z.max), ...)
lines(c(x.min, x.max), c(z.min, z.min), ...)
}
<environment: 0x00000000048f8830>

我不确定Beaker笔记本电脑是否可以使用此功能，但我想在此处查看是否有任何提示。

谢谢，
-pH +

Answer 1

它对我有用，只需确保加载了库：https://pub.beakernotebook.com/#/publications/312f12ee-1619-11e6-8e18-afd4bf712b6e

Answer 2

想出来。作为我的代码的一部分，我正在更改R的工作目录，以便通过以下方式更轻松地从我的项目文件夹中提取数据文件：

setwd("C:/Users/macle/Desktop/UPC Masters/Semester 1/CN/MAI-CN/Final Project")

看起来在某个地方，这会破坏scatterplot3d在Beaker Notebook中显示输出的能力。

我只是使用绝对路径来加载我需要的文件，这已经解决了我的问题。

@spot感谢您指出我正确的方向并确认问题已经结束，而不是Beaker的限制。

聚苯乙烯。我喜欢与Beaker合作，感谢开发这么棒的工具。

Beaker Notebook中的R-scatterplot3d渲染

2 个答案: