使用因素：将两个函数放入 dplyr

Question

我只是在寻找一种更简洁的方法来获取以下数据的输出：

library(dplyr)
librray(gapminder)

gapminder$continent %>% class() 
gapminder$continent %>% nlevels()
gapminder$continent %>% levels()
gapminder$continent %>% str()

它看起来有点重复，所以我想用 dplyr 将它合并成一行，所以我尝试了以下操作：

gapminder$continent %>% class() %>% nlevels() %>% levels() %>% str()
#AND
gapminder %>% summarise_at(vars(continent), list(class = class, nlevels = nlevels,levels= levels))

当然，这些都行不通。我不确定如何获得输出。当我想绘制变化因素时会出现类似的问题：

gapminder$continent = gapminder$continent %>%
  fct_relevel( "Oceania", "Europe")

gapminder %>%
  ggplot() +
  geom_bar(aes(fct_relevel( continent,"Africa", "Oceania"))) +
  coord_flip()+
  theme_bw() +
  labs(color = "country")

我可以将它们组合在一起吗？

Answer 1

如果我们想应用一组函数，将其包装在 list

library(gapminder)
library(purrr)
library(dplyr)
map(list(class, nlevels, levels, str), ~ 
       gapminder %>%
         pull(continent) %>% 
         .x())

使用因素：将两个函数放入 dplyr

Working with factors: put two function into dplyr

r

factors

dplyr