使用 purrr::map 迭代多个列表

Question

下面是我的数据

library(gapminder)
library(tidyverse)
lst <- unique(gapminder$continent)
ylst = c(2007, 1952)
map2_dfr(lst,ylst, ~gapminder %>% filter(continent == .x & year == .y) %>% 
          arrange(desc(gdpPercap))
        %>% slice(1) %>% select(continent, country,gdpPercap,year))

数据是来自 R 库“gapminder”的 gapminder 数据。

我想使用 purrr 找到每个大陆每年 gdpPercap 最高的国家/地区。

但是，这段代码给了我一个错误，即我的两个列表的长度不同 当长度不同时，迭代两个列表的映射语法是什么？ 我应该如何使用它来修复代码并实现我的目标？

Answer 1

我会通过分组和嵌套来做到这一点：

gapminder %>% 
  filter(year %in% ylst) %>% 
  group_by(continent, year) %>% 
  nest() %>% 
  mutate(data=map(data, ~top_n(., 1, gdpPercap))) %>% 
  unnest(c(data)) %>% 
  select(continent, country,gdpPercap,year)