R语言绘制三维图

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

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

1）安装

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

source("https://www.360docs.net/doc/754028978.html,/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语言

内容来自https://www.360docs.net/doc/754028978.html,/bioinfor_cnu/blog/static/194462237201210732153993/