我有一个数据框,其中包含许多嵌套的子数据框,我想对每个嵌套的子数据框应用dplyr::select函数。以下是一个示例: library(tidyverse) mtcars %>% group_by(cyl) %>% nest %>% mutate(data2 ...
有没有一种方法可以自动为由purrr:map返回的列表命名? 例如,我经常运行这样的代码。 fn <- function(x) { paste0(x, "_") } l <- map(LETTERS, fn) names(l) <- LETTERS 我希望正在自动化的...
我如何只使用purrr包从嵌套列表中提取元素? 在这种情况下,我想在拆分数据框之后获得截距向量。 我已经使用lapply()完成了所需的内容,但我想仅使用purrr包功能。 library(purrr) mtcars %>% split(.$cyl) %>% map( ~lm...
我觉得在tidyverse中可能有比使用for-loop更好的方法。从一个标准的tibble/dataframe开始,创建一个列表,其中列表元素的名称是一列(group_by?)的唯一值,而列表元素则是另一列的所有值。 my_data <- tibble(list_names = ...
假设我有一个tibble。 library(tidyverse) tib <- as.tibble(list(record = c(1:10), gender = as.factor(sample(c("M", "F"), 10, rep...
在基于R的环境中,我会做如下操作: d <- data.frame(a = 1:4, b = 4:1, c = 2:5) apply(d, 1, which.max) 使用dplyr我可以做到以下操作: library(dplyr) d %>% mutate(u = pur...
我还在逐渐熟悉 purrr ,现在遇到一个我认为应该很简单的问题,但我不知道怎么做。我想要做的就是将下面的日期时间转换为日期格式并使用 as.Date()。这是一个数据框列表。一直在尝试中,但还没有找到可行的方法...感谢任何帮助。 df <- data.frame(Date = se...
在这个例子中,我想对数据集中的每个字符变量应用count()函数。 library(dplyr) library(purrr) nycflights13::flights %>% select_if(is.character) %>% map(., coun...