R语言 实现在循环中输出图片的操作
短信预约 -IT技能 免费直播动态提醒
今天在循环导出图片时,遇到了一个问题:
使用R语言导出图片的代码:
setwd("E://R")
jpeg(file="A.jpeg")
print(plot(PEO$X, PEO$Y, pch=PEO$S))
dev.off()
但是若是将此代码运用到循环之中,则只会出来一张图A.jpeg
想了好久原因,发现……..!!!!
命名方法不对啊!!!
只有一个名字!!!当然不行啊!!!
于是搜索如何循环命名…
找到了老朋友paste()
yourfilename=paste("A",i,".jpeg",sep="")
jpeg(file=yourfilename)
搞定!
补充:R语言 循环作图
我就废话不多说了,大家还是直接看代码吧~
setwd("C:\\Users\\Administrator\\Desktop\\pic")
# Plot separate ggplot figures in a loop.
library(ggplot2)
# Make list of variable names to loop over.
var_list = combn(names(iris)[1:3], 2, simplify=FALSE)
# Make plots.
plot_list = list()
for (i in 1:3) {
p = ggplot(iris, aes_string(x=var_list[[i]][1], y=var_list[[i]][2])) +
geom_point(size=3, aes(colour=Species))
plot_list[[i]] = p
}
# Save plots to tiff. Makes a separate file for each plot.
for (i in 1:3) {
file_name = paste("iris_plot_", i, ".tiff", sep="")
tiff(file_name)
print(plot_list[[i]])
dev.off()
}
# Another option: create pdf where each page is a separate plot.
pdf("plots.pdf")
for (i in 1:3) {
print(plot_list[[i]])
}
dev.off()
补充:R语言-循环产生变量名并赋值,应用到 ggolot2 循环作图
问题的起源来自,想要批量出数十张组合好的图。
实现过程中,最大的问题是如何实现:循环产生变量名,并对其将ggplot的一长段作图代码传送给该变量名。
最终使用assign函数解决了
首先产生1000个字符串格式的备用变量名:
p <- c(paste0('p',1:1000))
接下来,只需写个循环即可。
for (i in 1:1000) {
assign(p[i],ggplot(dat,aes(x=x,y=y))
}
以上为个人经验,希望能给大家一个参考,也希望大家多多支持编程网。如有错误或未考虑完全的地方,望不吝赐教。
免责声明:
① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的,并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据,供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。
② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341