ggplot2 在 lapply() 循环内打印两次

Question

当创建一组两个图形时，在 lapply 循环内打印将在 RStudio Plots Panel 中打印两次。

x=1:7
y=1:7
df1 = data.frame(x=x,y=y)
x=10:70
y=10:70
df2 = data.frame(x=x,y=y)
db <- list(df1, df2)

# Given a data frame, the function below creates a graph
create.graph <- function (df){
  p <- ggplot(df,aes(x,y))+geom_point()
  # here goes other stuff, such as ggsave()
  return (p)
}

# collect.graph is a list of generated graphs
collect.graph <- lapply(db,create.graph)

# Finally, lapply prints the list of collected graphs
lapply(collect.graph,print)

代码工作正常，但它在 RStudio 中生成了两组图形，而不是只生成一组。

如何避免这种行为？

Answer 1

对象被打印两次是因为一个输出来自lapply，另一个来自print。检查

lapply(1:5, print)

#[1] 1
#[1] 2
#[1] 3
#[1] 4
#[1] 5
#[[1]]
#[1] 1

#[[2]]
#[1] 2

#[[3]]
#[1] 3

#[[4]]
#[1] 4

#[[5]]
#[1] 5

这里，1-5 的第一部分来自print，而列表中的 1-5 的下一部分来自lapply。

来自?lapply

lapply 返回一个与 X 长度相同的列表，其中每个元素是对 X 的相应元素应用 FUN 的结果。

因此，当您应用lapply 时，它会返回显示的相同对象，并且由于FUN 参数是print，它会将该函数应用于lapply 中的每个对象，从而将其打印两次。

@www 建议的解决方法是在控制台中使用print(collect.graph) 或仅使用collect.graph 仅打印一次。