R通过data.frames列表映射并更改列类型

Question

我对 R 很陌生，有点绝望，因为我已经研究这个问题很长一段时间了。

我有一个数据框列表

df1 <- data.frame(na = c("bla", "foo", "bar", "baz"), tmp = c(1,2,5,6), tf = c(2.2, 3.4, 5.6, 7.7))
df2 <- data.frame(na2 = c("blu", "oof", "bar", "baz"), tmp = c(7,8,9,10), tf = c(1.1, 3.3, 2.5, 5.7))

listy <- list(df1, df2)

我要做的就是将列表中数据框的每一列更改为字符。 我试过了

listy %>% map(., ~ mutate(.x, across(everything(), as.character(.)))) -> listy2

listy %>% mutate(across(everything(.,), as.numeric())) -> listy2 listy2<- map(listy, ~.x %>% mutate(across(everything(.x), as.numeric(.,))))

但它不起作用。错误在哪里。任何帮助表示赞赏。提前非常感谢！

Answer 1

您非常接近 - 使用 across 时，您可以通过函数（不带 ()）或使用 ~ 的 purrr 样式公式：

library(tidyverse)

df1 <- data.frame(na = c("bla", "foo", "bar", "baz"), tmp = c(1,2,5,6), tf = c(2.2, 3.4, 5.6, 7.7))
df2 <- data.frame(na2 = c("blu", "oof", "bar", "baz"), tmp = c(7,8,9,10), tf = c(1.1, 3.3, 2.5, 5.7))

listy <- list(df1, df2)

listy_2 <- listy %>% map(~ mutate(.x, across(everything(), as.character))) 
# or
listy_3 <- listy %>% map(~ mutate(.x, across(everything(), ~as.character(.x)))) 

listy[[1]]$tmp
#> [1] 1 2 5 6

listy_2[[1]]$tmp
#> [1] "1" "2" "5" "6"

listy_3[[1]]$tmp
#> [1] "1" "2" "5" "6"

^{由reprex package (v1.0.0) 于 2021 年 4 月 22 日创建}

Answer 2

虽然问题被标记为purrr，但这是一个基本的 R 解决方案。

listy <- Map(function(x) {x[] <- lapply(x, as.character); x}, listy)

str(listy)
#List of 2
# $ :'data.frame':  4 obs. of  3 variables:
#  ..$ na : chr [1:4] "bla" "foo" "bar" "baz"
#  ..$ tmp: chr [1:4] "1" "2" "5" "6"
#  ..$ tf : chr [1:4] "2.2" "3.4" "5.6" "7.7"
# $ :'data.frame':  4 obs. of  3 variables:
#  ..$ na2: chr [1:4] "blu" "oof" "bar" "baz"
#  ..$ tmp: chr [1:4] "7" "8" "9" "10"
#  ..$ tf : chr [1:4] "1.1" "3.3" "2.5" "5.7"