服务器之家

服务器之家 > 正文

R语言 实现在循环中输出图片的操作

时间:2022-01-10 15:32     来源/作者:张琪Andrea-E

今天在循环导出图片时,遇到了一个问题:

使用R语言导出图片的代码:

?
1
2
3
4
setwd("E://R")
jpeg(file="A.jpeg")
print(plot(PEO$X, PEO$Y, pch=PEO$S))
dev.off()

但是若是将此代码运用到循环之中,则只会出来一张图A.jpeg

想了好久原因,发现……..!!!!

命名方法不对啊!!!

只有一个名字!!!当然不行啊!!!

于是搜索如何循环命名…

找到了老朋友paste()

?
1
2
yourfilename=paste("A",i,".jpeg",sep="")
jpeg(file=yourfilename)

搞定!

补充:R语言 循环作图

我就废话不多说了,大家还是直接看代码吧~

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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个字符串格式的备用变量名:

?
1
p <- c(paste0('p',1:1000))

接下来,只需写个循环即可。

?
1
2
3
for (i in 1:1000) {
  assign(p[i],ggplot(dat,aes(x=x,y=y))
}

以上为个人经验,希望能给大家一个参考,也希望大家多多支持服务器之家。如有错误或未考虑完全的地方,望不吝赐教。

原文链接:https://blog.csdn.net/sinat_41805381/article/details/80064486

标签:

相关文章

热门资讯

蜘蛛侠3英雄无归3正片免费播放 蜘蛛侠3在线观看免费高清完整
蜘蛛侠3英雄无归3正片免费播放 蜘蛛侠3在线观看免费高清完整 2021-08-24
yue是什么意思 网络流行语yue了是什么梗
yue是什么意思 网络流行语yue了是什么梗 2020-10-11
背刺什么意思 网络词语背刺是什么梗
背刺什么意思 网络词语背刺是什么梗 2020-05-22
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
2021年耽改剧名单 2021要播出的59部耽改剧列表
2021年耽改剧名单 2021要播出的59部耽改剧列表 2021-03-05
返回顶部