快捷導(dǎo)航

R語(yǔ)言實(shí)現(xiàn)在循環(huán)中輸出圖片的操作

更新時(shí)間：2021年04月19日 14:14:31 作者：張琪Andrea-E

這篇文章主要介紹了R語(yǔ)言實(shí)現(xiàn)在循環(huán)中輸出圖片的操作，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧

今天在循環(huán)導(dǎo)出圖片時(shí)，遇到了一個(gè)問題：

使用R語(yǔ)言導(dǎo)出圖片的代碼：

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

但是若是將此代碼運(yùn)用到循環(huán)之中，則只會(huì)出來一張圖A.jpeg

想了好久原因，發(fā)現(xiàn)……..！?。?！

命名方法不對(duì)啊?。?！

只有一個(gè)名字！?。‘?dāng)然不行?。。?！

于是搜索如何循環(huán)命名…

找到了老朋友paste()

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

搞定！

補(bǔ)充：R語(yǔ)言循環(huán)作圖

我就廢話不多說了，大家還是直接看代碼吧~

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()

補(bǔ)充：R語(yǔ)言-循環(huán)產(chǎn)生變量名并賦值，應(yīng)用到 ggolot2 循環(huán)作圖

問題的起源來自，想要批量出數(shù)十張組合好的圖。

實(shí)現(xiàn)過程中，最大的問題是如何實(shí)現(xiàn)：循環(huán)產(chǎn)生變量名，并對(duì)其將ggplot的一長(zhǎng)段作圖代碼傳送給該變量名。

最終使用assign函數(shù)解決了

首先產(chǎn)生1000個(gè)字符串格式的備用變量名：

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

接下來，只需寫個(gè)循環(huán)即可。

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

以上為個(gè)人經(jīng)驗(yàn)，希望能給大家一個(gè)參考，也希望大家多多支持腳本之家。如有錯(cuò)誤或未考慮完全的地方，望不吝賜教。

您可能感興趣的文章:

相關(guān)文章

R語(yǔ)言行篩選的方法之filter函數(shù)詳解
最近工作中要處理一大批數(shù)據(jù),所以這篇文章主要給大家介紹了關(guān)于R語(yǔ)言行篩選的方法之filter函數(shù)的相關(guān)資料,文中通過實(shí)例代碼介紹的非常詳細(xì),需要的朋友可以參考下
2022-07-07
R語(yǔ)言ggplot2x軸順序設(shè)置自定義顏色的操作
這篇文章主要介紹了R語(yǔ)言ggplot2x軸順序設(shè)置自定義顏色的操作，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧
2021-04-04
R語(yǔ)言通過parallel包實(shí)現(xiàn)多線程運(yùn)行方式
這篇文章主要介紹了R語(yǔ)言通過parallel包實(shí)現(xiàn)多線程運(yùn)行方式，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧
2021-04-04
R語(yǔ)言數(shù)據(jù)框的合并實(shí)現(xiàn)示例
有時(shí)數(shù)據(jù)集來自多個(gè)地方,我們需要將兩個(gè)或多個(gè)數(shù)據(jù)集合并成一個(gè)數(shù)據(jù)集,本文主要介紹了R語(yǔ)言數(shù)據(jù)框的合并實(shí)現(xiàn)示例,具有一定的參考價(jià)值,感興趣的可以了解一下
2024-02-02
詳解R語(yǔ)言plot函數(shù)參數(shù)合集
這篇文章主要介紹了R語(yǔ)言plot函數(shù)參數(shù)合集,本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下
2021-03-03
解決R語(yǔ)言安裝時(shí)出現(xiàn)輯程包不存在的問題
這篇文章主要介紹了解決R語(yǔ)言安裝時(shí)出現(xiàn)輯程包不存在的問題，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧
2021-04-04
R語(yǔ)言讀取xls與xlsx格式文件過程
這篇文章主要為大家介紹了使用R語(yǔ)言讀取xls與xlsx格式文件的過程步驟，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步早日升職加薪
2021-11-11
R語(yǔ)言實(shí)現(xiàn)選取某一行的最大值
這篇文章主要介紹了R語(yǔ)言實(shí)現(xiàn)選取某一行的最大值，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧
2021-04-04
R語(yǔ)言讀取excel數(shù)據(jù)的方法(兩行命令)
這篇文章主要介紹了R語(yǔ)言讀取excel數(shù)據(jù)的方法(兩行命令),本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下
2021-03-03
詳解R語(yǔ)言中的PCA分析與可視化
這篇文章主要介紹了R語(yǔ)言中的PCA分析與可視化的相關(guān)資料,本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下
2021-03-03