Question

当我在一个需要许多相似情节的项目中工作时，我发现自己重写了非常相似的ggplot2代码行 - 稍作调整。由于大量重复通常意味着我做错了（并且令人讨厌并且容易出错）我正在寻找一种更合理的工作流程来处理ggplot2。

绘图之间相同的图层可以保存到变量中并通过此变量调用：

library(ggplot2)
myPoints <- geom_point(data = mtcars, aes(disp,mpg, size = qsec, colour = cyl))

ggplot() +
  myPoints

但是，如果我想用包含相同列的不同数据集重新创建相同的绘图呢？如果我使用一个数据集，这将很简单（在初始ggplot() - 命令中调用）。但我至少有两个数据集，并希望使用相同的样式重新创建相同的图，但只是切换输入数据。

# Creating a second dataset for the plot:
rectangle <- data.frame(minx= c(100,200),maxx= c(150,300),miny= c(15,30),maxy= c(18,32))

# Saving it to a layer:
myRectangles <- geom_rect(data = rectangle,aes(xmin=minx,xmax=maxx,ymin=miny,ymax=maxy))

# This creates my first plot with all data
ggplot() +
  myPoints +
  myRectangles

现在我将创建一些新数据：

mtcars_new <- mtcars[1:16,]
rectangle_new <- data.frame(xmin = c(100,200),xmax = c(150,300),ymin = c(15,30),ymax = c(18,32))

我现在想通过简单地将新数据集传递给以下几行来重新创建第一个图：

  ggplot() +
    myPoints +   # <- pass "mtcars_new" to this layer
    myRectangles # <- pass "rectangle_new" to this layer

我希望我能澄清一下我的目标是什么，我已经在这个例子中付出了很多的思考。

Answer 1

通常使用函数式语言时的解决方案是使用函数！

myPoints <- function(data)
    geom_point(data = data, aes(disp,mpg, size = qsec, colour = cyl))
myRectangles <- function(data) 
    geom_rect(data = data, aes(xmin=minx,xmax=maxx,ymin=miny,ymax=maxy))

ggplot() +
  myPoints(mtcars) +
  myRectangles(rectangle)

ggplot() +
  myPoints(mtcars_new) +
  myRectangles(rectangle_new)

您还可以为对象指定美学并重复使用

aes_point <- aes(disp,mpg, size = qsec, colour = cyl)
aes_rect <- aes(xmin=minx, xmax=maxx, ymin=miny, ymax=maxy)

ggplot() +
  geom_point(aes_point, data=mtcars) +
  geom_rect(aes_rect, data=rectangle)

Answer 2

我认为最简单的解决方案是创建绘图功能。在线：

myplot_fun <- function(my_data_points, my_data_rect){
   p <- ggplot()
   p <- p + geom_point(data = my_data_points, aes(......), .....)
   p <- p + geom_rect(data = my_data_rect, aes(......), .....)
   print(p)  # if you want to immediately plot, and not "store" 
   return(p) # if you want to "store" the plot for later use
 }

然后，您可以使用您希望从主脚本或控制台获得的任何数据来调用它：

p1 <- myplot_fun(mydata_point1, mydata_rec1)
....
....
p2 <- myplot_fun(mydata_point1, mydata_rec2)

HTH！

ggplot2：每层传递新的数据参数以减少代码冗余

2 个答案: