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/