在R中,我尝试使用以下代码绘制3D散点图:
library(scatterplot3d)
mtcars$pcolor[mtcars$cyl==4] <- "red"
mtcars$pcolor[mtcars$cyl==6] <- "blue"
mtcars$pcolor[mtcars$cyl==8] <- "darkgreen"
with(mtcars, {
s3d <- scatterplot3d(disp, wt, mpg,
color=pcolor, pch=19,
type="h", lty.hplot=2,
scale.y=.75,
main="3D",
xlab="Displacement",
ylab="Weight",
zlab="Miles")
s3d.coords <- s3d$xyz.convert(disp, wt, mpg)
text(s3d.coords$x, s3d.coords$y,
labels=row.names(mtcars),
pos=4, cex=.5)
legend("topleft", inset=.05,
bty="n", cex=.5,
title="Number of Cylinders",
c("4", "6", "8"), fill=c("red", "blue", "darkgreen"))
})
但现在我要打破y轴(重量)。我知道库axis.break
中有plotrix
,但如何将其与scatterplot3d
结合使用?
答案 0 :(得分:0)
我不确定这是可能的。根据包文档,&#34;一些par参数在这里不适用,例如,许多用于轴计算。&#34;
可以通过调整刻度线标签来实现,如Scatterplot3d软件包的作者的回答所示,但这并不能移动实际的点数。 http://r.789695.n4.nabble.com/scatterplot3d-customise-axes-td4554528.html
最后,我发现这些类型的显示很难解释。考虑格点图方法。