首先,请从下载我的数据集,然后执行以下脚本内容,以获得几个散点图:
# read data and attach it
survey <- read.table("survey_oss.csv", header=TRUE)
attach(survey)
# plot for inhabitants
png("scatterINHABT.png")
plot(INHABT, OSSADP, xlab="Inhabitants", ylab="Adoption of OSS", las=1)
abline(lm(OSSADP~
我想要实现的是,在rgl中显示一个3D图形,将它旋转到我想要显示的视图中,然后保存到一个文件中。我知道我可以用这样的rgl.snapshot函数来完成这个任务:
library(rgl)
x <- runif(20)
y <- runif(20)
z <- runif(20)
plot3d(x, y, z)
rgl.snapshot("rgl.snapshot.png")
问题是,rgl.snapshot在屏幕分辨率中生成一个文件,因此分辨率不够高,不足以打印。我无法影响文件保存的分辨率。一般来说,如果我能够以向量格式保存文件,比如pdf或svg,那就更好了
我是R编程的新手,所以如果我看起来很天真,我会提前道歉。我希望能够对我的3D数据进行一些主成分分析。我读到"pca3d“函数很好用,但我需要下载"rgl”库。当我使用install.packages时,它会问:
install.packages("rgl")
There is a binary version available but the source version is later:
binary source needs_compilation
rgl 0.95.1201 0.95.1367 TRUE
D
在创建自己的3D散点图之前,我正在尝试按照教程here进行操作。 # library
library(rgl)
options(rgl.printRglwidget = TRUE)
# This is to output a rgl plot in a rmarkdown document. Note that you must add webgl=TRUE, results='hide' in the chunck header
library(knitr)
knit_hooks$set(webgl = hook_webgl)
# Data: the iris data