我不确定我是否正确制定了标题/问题。也许我的一个问题是我的词汇中缺少术语。抱歉。但是试试吧:
我有数据(本例中为sleep
)我将其描述为三维数据。也许一个真正的统计学家不会这样做?
我想我想将多个二维图绘制成三维图。我想并排绘制它们。如果我错了,请纠正我。
我的问题是,只有一行。
有两组。我想要每组一行。我认为与type='h'
相同的数据给出了更好的描述:
你能想象这两行吗?我在这个概念中缺少什么? 我们可以使用另一个绘图库进行打印/发布。目前对我而言并不重要。也许我总是在错误的地方?
这是代码:
require('mise')
require('scatterplot3d')
mise() # clear the workspace
# example data
print(sleep)
scatterplot3d(x=sleep$ID,
x.ticklabs=levels(sleep$ID),
y=sleep$group,
y.ticklabs=levels(sleep$group),
lab = c(length(unique(sleep$ID)), 1),
z=sleep$extra,
type='o')
和数据
extra group ID
1 0.7 1 1
2 -1.6 1 2
3 -0.2 1 3
4 -1.2 1 4
5 -0.1 1 5
6 3.4 1 6
7 3.7 1 7
8 0.8 1 8
9 0.0 1 9
10 2.0 1 10
11 1.9 2 1
12 0.8 2 2
13 1.1 2 3
14 0.1 2 4
15 -0.1 2 5
16 4.4 2 6
17 5.5 2 7
18 1.6 2 8
19 4.6 2 9
20 3.4 2 10
答案 0 :(得分:1)
您可以分两步手动添加这些行:
# Store the plot in rr
rr <- scatterplot3d(x=as.numeric(sleep$ID),
x.ticklabs=levels(sleep$ID),
y=sleep$group,
y.ticklabs=levels(sleep$group),
z=sleep$extra)
# find all that belong to group one
idx = sleep$group == 1
# add the first line
rr$points3d(x = sleep$ID[idx], y = rep(1, each = sum(idx)), z = sleep$extra[idx], type = 'l', col = 'red')
# add the second line
rr$points3d(x = sleep$ID[!idx], y = rep(2, each = sum(!idx)), z = sleep$extra[!idx], type = 'l', col = 'blue')
所以要添加色带而不是线条,事情会有所改变。特别是,使用polygon
函数绘制色带。但是,此功能仅处理2D坐标,因此我们需要使用函数rr$xyz.convert
将3D坐标转换为2D坐标。
rr <- scatterplot3d(x=sleep$ID,
x.ticklabs=levels(sleep$ID),
y=sleep$group,
y.ticklabs=levels(sleep$group),
z=sleep$extra)
idx = sleep$group == 1
# draw first group
mat = matrix(c(rep(sleep$ID[idx], 2),
rep(c(1, 1.05), each = sum(idx)), # 1.05 determines width
rep(sleep$extra[idx], 2)), ncol = 3)
ll = rr$xyz.convert(mat)
polygon(x = ll$x[c(1:10, 20:11)],
y = ll$y[c(1:10, 20:11)], col = 'red')
# draw second group
mat = matrix(c(rep(sleep$ID[!idx], 2),
rep(c(2, 1.95), each = sum(!idx)), # 1.95 determines width
rep(sleep$extra[!idx], 2)), ncol = 3)
ll = rr$xyz.convert(mat)
polygon(x = ll$x[c(1:10, 20:11)],
y = ll$y[c(1:10, 20:11)], col = 'blue')