根据存储的函数绘制多个图表

Question

在 R 中，我正在尝试根据存储的函数绘制多个图表（我对使用 R 进行编程非常陌生，所以这可能并不完全有意义）。基本上，我创建了一些图表并将它们存储在一个可以轻松使用新数据运行的函数中。我想保留该功能，同时添加在一次渲染中渲染多个图表的能力。我希望它以这样的方式结束http://www.statmethods.net/advgraphs/images/layout1.jpg

我已经运行了下面的代码，但它只是生成了每个图形的多个实例（或用新的渲染替换每个图形）。

所以我的问题是：我做错了什么？有谁知道我如何使用以下代码和函数生成四个图表以放置在一个视图中（如上面的链接）？非常感谢任何帮助。

注意：第二段代码有两个兄弟。我还有一个饼图我没​​有包含，但是在下面的代码中提到了。

这是我一直在使用的代码：

attach(ES)
par=(mfrow=c(2,2))
plot=(mapFunctionRead())
plot=(mapFunctionSkim())
plot=(mapFunctionDelete())
plot=(pieChart())

这是一个示例函数：

mapFunctionRead<-function(){
# draw world map
map(database="world", bg="#d4d5d1", fill = TRUE, col="#ffffff",myborder = 0)

################# For Read ####################
# Draw circles
symbols(mtReadLong, mtReadLat, circles=rep(1, length(mtReadLong)), inches=0.005, add=TRUE)

# assign numerical value that's based on the amount of time read
radiusRead<-sqrt(mtReadSec/pi)

# draw circles with fill and border
symbols(mtReadLong, mtReadLat, bg="#4173a5", fg="#5589c7", lwd=0.5, circles=radiusRead, inches=0.05, add=TRUE)
}
################# Displays data on world map for SKIM ###################### 
mapFunctionSkim<-function(){
 # draw world map
 map(database="world", bg="#d4d5d1", fill = TRUE, col="#ffffff",myborder = 0)

################# For Skim ####################
# Draw circles
symbols(mtSkimLong, mtSkimLat, circles=rep(1, length(mtSkimLong)), inches=0.005, add=TRUE)

# assign numerical value that's based on the amount of time read
radiusSkim<-sqrt(mtSkimSec/pi)

# draw circles with fill and border
symbols(mtSkimLong, mtSkimLat, bg="#ead57d", fg="#ead57d", lwd=0.5, circles=radiusSkim, inches=0.05, add=TRUE)
}

################# Displays data on world map for DELETE ###################### 
mapFunctionDelete<-function(){
# draw world map
map(database="world", bg="#d4d5d1", fill = TRUE, col="#ffffff",myborder = 0)

################# For Delete ####################
# Draw circles
symbols(mtDeleteLong, mtDeleteLat, circles=rep(1, length(mtDeleteLong)), inches=0.005, add=TRUE)

# assign numerical value that's based on the amount of time read
radiusDelete<-sqrt(mtDeleteSec/pi)

# draw circles with fill and border
symbols(mtDeleteLong, mtDeleteLat, bg="#77223c", fg="#9c1b3e", lwd=0.5, circles=radiusDelete, inches=0.05, add=TRUE)
}

Answer 1

我同意@MrFlick 的观点。您可能想考虑为您的地图函数提供参数。例如。

     
    library(maps)
    mfunc <- function(x,y){
    map(database = x, bg = y)
    }
    mfunc(x = "world", y = "#d4d5d1")

然后，一旦定义了所有映射函数，您就可以使用 par(mfrow = c(a,b))。但是仅根据您提供的信息，我不确定您想要什么。祝你好运。