代码之家 › 专栏 › 技术社区 › ViSa

如何在r中获取map函数中的每个向量/列名?

purrr tidyverse ggplot2 r

ViSa · 技术社区 · 5 年前

plotting function 去看 counts all factors 属于 each factor column

东风

install.packages("gapminder")
library(gapminder)

gapminder %>% head()

########### output ###############

country continent   year    lifeExp pop gdpPercap
<fct>   <fct>   <int>   <dbl>   <int>   <dbl>
Afghanistan Asia    1952    28.801  8425333 779.4453
Afghanistan Asia    1957    30.332  9240934 820.8530
Afghanistan Asia    1962    31.997  10267083    853.1007
Afghanistan Asia    1967    34.020  11537966    836.1971
Afghanistan Asia    1972    36.088  13079460    739.9811
Afghanistan Asia    1977    38.438  14880372    786.1134

发行 :我无法在下面的代码中获取列名称作为图表标题:

gapminder %>% 
  select_if(is.factor) %>% 

  map(function(feature) {
    count(data.frame(x = feature), x) %>% 

  ggplot(aes(x = x, y = n)) +
  geom_col() +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 90)) +

  # issue here in getting column name as chart title
  labs(title = colnames(feature))

  # labs(title = colnames(x))
  })

这看起来是个小问题,但无法找出如何为每个图表获取相应的列名

2 回复 | 直到 5 年前

Ronak Shah 5 年前

你可以用 imap 而不是 map 这将使您能够访问列名和值。

library(tidyverse)

list_plot <- gapminder %>% 
              select(where(is.factor)) %>%
              imap(function(feature_value, feature_name) {
                count(data.frame(x = feature_value), x) %>% 
                ggplot(aes(x = x, y = n)) +
                geom_col() +
                theme_minimal() +
                theme(axis.text.x = element_text(angle = 90)) +
                labs(title = feature_name)
              })

Duck 5 年前

library(gapminder)
library(tidyverse)
#Code
gapminder %>% 
  select_if(is.factor) %>%
  pivot_longer(everything()) %>%
  group_by(name,value) %>%
  summarise(N=n()) %>%
  ggplot(aes(x = value, y = N)) +
  geom_col(fill='purple',color='black') +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 90)) +
  facet_wrap(.~name,nrow = 1,scales = 'free')

输出:

推荐文章

MCP_infiltrator · 在“tible”中添加一列,给出其列表位置

3 年前

sbac · 如何对R中数据帧的几列应用统计测试

3 年前

John-Henry · 使用“purrr::map”将“lm”对象循环到“broom::tidy”`

3 年前

deschen · 将列乘以向量的tidyverse解决方案

3 年前

Nuller · 无法对嵌套数据中的列进行子集设置。框架

3 年前

chrischi · R Purrr-系数最高

7 年前

Richard Herron · 从purr的pmap()调用var()返回NA

7 年前

Davide Lorino · 嵌套数据帧上的函数向量算法

7 年前

âÊÊá¸á¸½á¸ · 如何使用purrr从两个元素的列表中提取元素?

7 年前

andrew_reece · map\u dfr:填充。具有字符串标签的id列,而不是没有字符串标签的索引。x已命名

7 年前