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

在映射函数中迭代应用ggplot函数

purrr tidyverse ggplot2 r

Joe · 技术社区 · 8 年前

library(tidyverse)

mtcars %>% 
  select(wt, disp, hp) %>% 
  map(., function(x)
    ggplot(aes(x = x)) + geom_histogram()
)

我可以用for循环(h/t)来完成这项任务,但我正试图在tidyverse中做同样的事情。

foo <- function(df) {
  nm <- names(df)
  for (i in seq_along(nm)) {
print(
  ggplot(df, aes_string(x = nm[i])) + 
  geom_histogram()) 
  }
}

mtcars %>% 
  select(wt, disp, hp) %>% 
  foo(.)

2 回复 | 直到 8 年前

acylam 8 年前

类似的方法也可以:

library(purrr)
library(dplyr)
mtcars %>% 
  select(wt, disp, hp) %>% 
  names() %>%
  map(~ggplot(mtcars, aes_string(x = .)) + geom_histogram())

mtcars %>% 
  select(wt, disp, hp) %>% 
  {map2(list(.), names(.), ~ ggplot(.x, aes_string(x = .y)) + geom_histogram())}

CPak 8 年前

purrr::map ,您可以融化数据帧,然后根据变量名将其拆分为数据帧列表

library(reshape2)
library(dplyr)
library(ggplot2)
library(purrr)

melt(mtcars) %>%
  split(.$variable) %>%
  map(., ~ggplot(.x, aes(x=value)) + 
            geom_histogram())

您也可以使用 ggplot2::facet_wrap 一次就把它们全部标出来

library(reshape2)
library(dplyr)
library(ggplot2)

melt(mtcars) %>% 
  ggplot(., aes(x=value, label=variable)) + 
  geom_histogram() + 
  facet_wrap(~variable, nrow=ncol(mtcars))

推荐文章

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

4 年前

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

4 年前

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

4 年前

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

4 年前

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

4 年前

chrischi · R Purrr-系数最高

8 年前

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

8 年前

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

8 年前

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

8 年前

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

8 年前