R語言在可視化方面的地位是毋庸置疑的，但是呢相對于MatalabR語言在三維圖形的展示上存在一定的劣勢。當然，作為大眾的免費軟件，指定不服，很多人為此也基于R語言開發了一些相應的三維圖的繪制包，像rgl，gg3D，plot3D，scatterplot3d等，我們今天就介紹一下其中的scatterplot3d。

包的安裝就不贅述了:

install.packages(“scatterplot3d”)

接下來我們看下它里面的函數，其實這個包就一個函數scatterplot3d。

其中主要的參數：

Xlim,ylim,zlim 主要是標注坐標軸范圍的。

Color主要指的每個點的顏色，如果不分組那就直接一個顏色就看可以，如果顏色分組，那需要標注每一個樣本的顏色。

Type 主要是設置點繪制形式，p-點；h-柱子；l-線，就是將所有點連起來。

Lwd 主要是設置豎線的粗細。

接下來我們就看下包自帶的五個例子:

1. 基礎的函數三維圖繪制：

zq(-10, 10, 0.01) xcos(z) ysin(z) scatterplot3d(x, y, z, col.axis="blue", col.grid="lightblue", main="scatterplot3d - 1",pch=20)

2. 單純的點的三維圖繪制：

temp q(-pi, 0, length = 50) x1, ycos(temp) %*% t( zsin(temp) %*% t( scatterplot3d(x, y, z, col.axis="blue",col.grid="lightblue", main="scatterplot3d - 2", pch=20)

3. 對于不同的分組的數據的多顏色賦值：

temp q(-pi, 0, length = 50) x1, ycos(temp) %*% t( z10 * c( color "green", temp q(-10, 10, 0.01) xx, yy, z color "red", scatterplot3d(x, y, z, color, pch=20, zlim=c(-2, 10),main="scatterplot3d - 3")

4. 添加豎線的三維圖的繪制：

my.mat 25), nrow= dimnames(my.mat) list(LETTERS[ my.mat # the matrix we want to plot ...

如果不是x,y,z格式的輸入數據也可以參考下面的data.frame進行數據的整體輸入

s3d.dat <- data.frame(cols=as.vector(col(my.mat)),rows=as.vector(row(my.mat)), value=as.vector(my.mat)) scatterplot3d(s3d.dat,type="h", lwd=5, pch=" ",x.ticklabs=colnames(my.mat),y.ticklabs=rownames(my.mat), color=grey(25:1/40), main="scatterplot3d -4")

5. 如何添加擬合的平面圖：

data(trees) s3d"h", highlight. angle=55, scale.y=0.7, pch=16, main="scatterplot3d - 5") #Now adding some points to the "scatterplot3d" s3d$points3d(seq(10,20,2), seq(85,60,-5), seq(60,10,-10),col="blue", type="h", pch=16) #Now adding a regression plane to the "scatterplot3d" attach(trees) my.lm s3d$plane3d(my.lm, lty.box = "solid")

s3d$plane3d(my.lm, lty.box ="solid",col="green")

再高級點還可以直接設置平面的填充顏色：

s3d$plane3d(my.lm, lty.box ="solid",col="green",draw_polygon = T)

并且能夠修改平面的顏色：

當然，擬合的平面的顏色也是可以進行修改的：需要在s3d$plane3d子函數中進行設置；至此基本的此包的所有功能基本掌握。其他的美觀度那就需要自己去體會了。

歡迎大家學習交流！

總結

以上是生活随笔為你收集整理的r语言三维柱状图_R语言三维图的绘制的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。