我正在使用以下数据和代码来创建 3D 绘图,但 axes3d
y 轴的命令是重复标签。我需要做什么不同的事情才能让 y 轴仅显示 ylabels
中的文本列表?
这是我的数据
"V2" "V3" "V4" "V5" "V6" "V7" "V8" "V9" "V10" "V11" "V12"
"A" 0.04 0 -0.12 -0.11 0.07 -0.1 -0.64 -0.41 -0.33 -0.23 0.11
"B" 0.04 0 -0.11 -0.08 0.08 -0.37 -0.52 -0.34 -0.33 -0.23 0.09
"C" 0.03 -0.06 -0.13 -0.13 0 -0.12 0.14 0.01 -0.12 -0.02 0.12
"D" 0.07 -0.06 -0.13 -0.12 -0.03 -0.12 0.15 0 -0.14 -0.07 0.16
这是代码
open3d()
yred <- colorRampPalette(c("blue","red"))
# par3d(windowRect=c(100,100,700,700),zoom=1.25)
pm <- persp3d(z=t(d), col=rep(rep(yred(nrow(d)/1),each=1), each=(ncol(d)-1)),
axes=F, xlab="", ylab="", zlab="", box=T)
axes3d("z", pos=c(0,1,0))
ylabels <- row.names(d)
axis3d("y", nticks=length(ylabels), labels=ylabels)
最佳答案
我不知道为什么,但这有效:
open3d()
yred <- colorRampPalette(c("blue","red"))
# par3d(windowRect=c(100,100,700,700),zoom=1.25)
pm <- persp3d(z=t(d), col=rep(rep(yred(nrow(d)/1),each=1), each=(ncol(d)-1)),
axes=F, xlab="", ylab="", zlab="", box=T)
axes3d("z", pos=c(0,1,0))
ylabels <- rownames(d)
axis3d("y", at=seq(0,1, length = length(ylabels)), labels=ylabels, nticks=4)
关于r - 如何使用axis3d 设置y 轴标签?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7123950/