R语言：scatterplot3d（绘制三维散…

以前早闻R语言的强大，却没有时间去深入的了解。最近在做毕业论文时，需要画一些简单的二维图，但是坐标点太多，用Excel作图不太合适，于是就试着用R语言作图。下载了几个教程，感觉R语言已经包含了很多基础库，很方便也很简单。

下面是用R语言绘制三维散点图的方法，并举出两个示例。

1）安装

在R语言提供的console里面输入如下命令安装scatterplot3d：

source("http://bioconductor.org/biocLite.R")

biocLite("scatterplot3d")

2）调用

通过如下的命令加载scatterplot3d库

library("scatterplot3d")

3）示例

示例1：编写R脚本，文件名为exp1.R，exp1.R中添加如下脚本
#
example 1

library("scatterplot3d")
z
<- seq(-10, 10, 0.01)
x
<- cos(z)
y
<- sin(z)

scatterplot3d(x, y, z, highlight.3d=TRUE, col.axis="blue",
col.grid="lightblue",

main="scatterplot3d - 1", pch=20)

在R的console运行如下命令，其中"D:\\R\\exp1.R"为脚本文件的绝对目录：

source("D:\\R\\exp1.R")

效果图：





示例2：编写R脚本，文件名为exp2.R，exp2.R中添加如下脚本

# Example 2:
library("scatterplot3d")
my.mat = matrix(runif(25), nrow = 5)
dimnames(my.mat) = list(LETTERS[1:5], letters[11:15])
s3d.dat = data.frame(columns = c(col(my.mat)),rows =
c(row(my.mat)), value = c(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 = "3D barplot")

在R的console运行如下命令，其中"D:\\R\\exp2.R"为脚本文件的绝对目录：

source("D:\\R\\exp2.R")

效果图：




附：R语言的比较好学习资料：掌握点R语言

内容来自 http://blog.163.com/bioinfor_cnu/blog/static/194462237201210732153993/