绘图导航
  • 基础绘图
  • 高级绘图
  • 微生物
  • 转录组

R语言|绘制三维散点图

 二维码 6
作者:图图来源:图图云平台

以下是scatterplot3d、Plot3D、rgl包绘制三维散点图的小示例。


Iris数据集



scatterplot3d包绘制三维散点图


#scatterplot3d 包,详情 ?scatterplot3dlibrary(scatterplot3d)attach(iris)#绘图scatterplot3d(Sepal.Length, Sepal.Width, Petal.Length)



Plot3D 包绘制三维散点图

library(plot3D)attach(iris)#绘图with(iris, scatter3D(x = Sepal.Length, y = Sepal.Width, z = Petal.Length,                     pch = 21, cex = 1.5,col="grey",bg="#F348004E",                     xlab = "Sepal.Length",                     ylab = "Sepal.Width",                     zlab = "Petal.Length",                      ticktype = "detailed",bty = "f",box = TRUE,                     theta = 60, phi = 20, d=3,                     colkey = FALSE))


rgl包绘制三维散点图


library(rgl)attach(iris)#颜色mycolors <- c('#6181BD4E', '#F348004E', '#64A10E4E"')data$color <- mycolors[ as.numeric(Species) ]# 绘图plot3d(    x=Sepal.Length, y=Sepal.Width, z=Petal.Length,    col = rep(c('#6181BD4E', '#F348004E', '#64A10E4E'),    c(8, 8, 8)), size = 50,type = 's',    radius = .1,   xlab="Sepal Length", ylab="Sepal Width", zlab="Petal Length")




“作图帮”微信公众号同步更新

作图帮二维码.jpg


可添加下方微信进入【生信作图交流群】,群内免费分享绘图代码与示例数据

公司二维码.png

推荐使用谷歌浏览器点击下载