如何将ggplot2应用于数据框中的每一行

Question

我想将ggplot2 可视化编码为函数，然后在数据帧的每一行上使用apply 函数（我想使用apply 来避免for 循环，建议here .)

数据：

library(ggplot2)
point1 <- c(1,2)
point2 <- c(2,2)

points <-as.data.frame(rbind(point1,point2))

我将points 保存为数据框，它在ggplot2 中运行良好：

ggplot(data = points) +
    geom_point(aes(x = points[, 1], y = points[, 2])) +
    xlim(-3, 3) +
    ylim(-3, 3) +
    theme_bw()

但这并不是我真正想要的情节：我想要两个情节，每个情节都有一个点。

现在我构建了一个循环遍历数据框行的函数：

plot_data <- function(data) {
  ggplot(data) +
    geom_point(aes(x = data[, 1], y = data[, 2])) +
    xlim(-3, 3) +
    ylim(-3, 3) +
    theme_bw()
}

我创建了一个列表来存储图：

myplots <- list()

这是对apply 的调用，在this suggestion 之后：

myplots <- apply(points, 1, plot_data)

但我收到以下错误：

#> Error: `data` must be a data frame, or other object coercible by `fortify()`, 
not a numeric vector

但我的数据是一个数据框。

这是因为：“apply() 将尝试将 data.frame 转换为矩阵（请参阅帮助文档）。如果由于混合数据类型而无法正常转换，我不太确定会产生什么结果" 正如我提到的对the answer 的评论中所指出的那样？

不过，如果我在调用 apply 后检查数据类，数据仍然是一个数据框：

class(points)
#> [1] "data.frame"

^{由reprex package (v0.3.0) 于 2021-04-09 创建}

Answer 1

正如评论中Gregor Thomas 所建议的那样：

library(ggplot2)
point1 <- c(1, 2)
point2 <- c(2, 2)

points <- as.data.frame(rbind(point1, point2))

plot_data <- function(data) {
  ggplot(data) +
    geom_point(aes(x = data[, 1], y = data[, 2])) +
    xlim(-3, 3) +
    ylim(-3, 3) +
    theme_bw()
}
myplots <- list()
myplots <- lapply(1:nrow(points), function(i) plot_data(points[i, ]))
myplots
#> [[1]]

#> 
#> [[2]]

^{由reprex package (v0.3.0) 于 2021-04-09 创建}