R - Mapply功能创建和PDF绘图/ ggplots

Question

我对R相当陌生，希望有人能够在下面的代码中向我解释2件事。

1. 为什么我需要双括号{{围绕剧情让它录制剧情才能重播呢？然后在replayPlot中需要双方括号[[。
2. 为什么我不可以在mapply中使用$表示法？它在它之外工作。在适当的R工作中使用$是不是很糟糕？

我的真实代码大得多，所以认为最好能让应用程序工作。

library(ggplot2) 
library(gridExtra) 

TDSF <- data.frame(Graduation=sample(1950:2010, 30,replace=TRUE), 
        Donation=sample(10:50000, 30,replace=TRUE), 
        Start.Year=sample(1950:2010,30,replace=TRUE), 
        State=sample(state.abb,30,replace=TRUE)) 
TDSF$Graduation <- as.numeric(as.character(TDSF$Graduation)) 
TDSF$Start <- as.numeric(as.character(TDSF$Start)) 

plots2 <- mapply(function(nm,df.year,df.bracket_5,df.bracket_10) list(
    {{plot(-1:1,-1:1,type="n",xaxt="n",yaxt="n",ann=FALSE)+ 
     text(0,0,paste("Analysis by",nm,"Year"),cex=2) 
    recordPlot()}}, 
    {ggplot(data=TDSF, aes_(x=as.name(nm))) + geom_histogram(color="red",binwidth = 1,boundary=-.01)}, 
    {ggplot(data=TDSF, aes_(x=as.name(nm))) + geom_histogram(color="red",binwidth = 5,boundary=-.01)} 
),c("Graduation","Start"),SIMPLIFY = FALSE) 

replayPlot(plots2$Graduation[[1]]) #use $ notation 
do.call(grid.arrange,plots2$Graduation[2:3])`#use $ notation 

mapply(function(nm) 
    {pdf(file=paste(nm,"test.pdf")) 
    replayPlot(plots2[[nm]][[1]]) #use [[]][[]] 
    do.call(grid.arrange,c(plots2[[nm]][2:3],ncol=1)) #use [[]][[]] 
    dev.off()} 
,c("Graduation","Start")) 

Answer 1

让我重新格式化您的代码位：

library(ggplot2) 
library(gridExtra) 
TDSF <- data.frame(Graduation=sample(1950:2010, 30,replace=TRUE), 
        Donation=sample(10:50000, 30,replace=TRUE), 
        Start.Year=sample(1950:2010,30,replace=TRUE), 
        State=sample(state.abb,30,replace=TRUE)) 
TDSF$Graduation <- as.numeric(as.character(TDSF$Graduation)) 
TDSF$Start <- as.numeric(as.character(TDSF$Start)) 

plots2 <- mapply(function(nm,df.year,df.bracket_5,df.bracket_10) list(
    {plot(-1:1,-1:1,type="n",xaxt="n",yaxt="n",ann=FALSE)+ 
     text(0,0,paste("Analysis by",nm,"Year"),cex=2) 
    recordPlot()}, 
    {ggplot(data=TDSF, aes_(x=as.name(nm))) + geom_histogram(color="red",binwidth = 1,boundary=-.01)}, 
    {ggplot(data=TDSF, aes_(x=as.name(nm))) + geom_histogram(color="red",binwidth = 5,boundary=-.01)} 
),c("Graduation","Start"),SIMPLIFY = FALSE) 

plots2 

replayPlot(plots2$Graduation[[1]]) #use $ notation 
n <- length(plots2) 
nCol <- floor(sqrt(n)) 
do.call("grid.arrange",c(plots2$Graduation[2:3], ncol=nCol)) #use $ notation 


replay <- function(nm) { 
    pdf(file = paste(nm,"test.pdf")) 
    replayPlot(plots2[[nm]][[1]]) #use [[]][[]] 
    do.call(grid.arrange,c(plots2[[nm]][2:3],ncol = 1)) #use [[]][[]] 
    dev.off() 
} 

mapply(replay ,c("Graduation","Start")) 

1. 你并不需要双括号

双用方括号按顺序访问元素。 plots2是一个相对复杂的结构，并有访问它的元素很多方面

plots2$Graduation[[1]] is equivalent to plots2[[1]][[1]] for example 

是不相关的mapply，但你可以在功能重播看到（我已经添加了$ ）它是由于在运行时对nm变量的R解释造成的。 nm是一个变量，你不能使用$ nm的图（你将不得不使用一些eval函数让R理解你真正的意思）