使用 map() 创建绘图列表

Question

我有一个函数，它接受一个数据集，过滤给定元素，并创建一个图。我想取一个向量并使用 map 过滤向量的每个元素并创建一个图。应用map(vector, function) 不起作用-我收到警告

“较长的对象长度不是较短对象长度的倍数”。

假设我有这个基于 babynames 数据集的数据框 names。

names <- babynames%>%
  pivot_wider(names_from = sex, values_from = n, values_fill=0) %>%
  group_by(year,name) %>%
  summarize(Female=sum(F), Male=sum(M))  %>%
  mutate(percent = Female/(Male+Female)*100)

and a vector made up of `"Ollie"`, `"Verna"`, and `"Ava"`. I want a graph for each of `Ollie`, `Verna`, and `Ava`.

fun_name <- function(name_1) {
    names %>%
    filter(name==name_1) %>%
    ggplot(aes(x=year, y=percent)) +
    geom_line()
}

map(vector, fun_name)

我现在特别遇到的问题是所有图表都合并为一个。

Answer 1

你可以试试：

library(tidyverse)
library(babynames)

vector <- c("Ollie", "Verna", "Ava")

fun_name <- function(name_1) {
  names %>%
    filter(name==name_1) %>%
    ggplot(aes(x=year, y=percent)) +
    geom_line()
}

plot_list <- map(vector, fun_name)
length(plot_list)
#[1] 3

各个地块位于plot_list[[1]]、plot_list[[2]] 等中。