mutate_at() 在 R 中使用 to_label() 作为其函数抛出错误答案

【问题标题】：mutate_at() throwing an error with to_label() as its function in Rmutate_at() 在 R 中使用 to_label() 作为其函数抛出错误
【发布时间】：2020-07-30 23:37:06
【问题描述】：

我正在关注this data cleaning instruction，但截至this line（如下所示），我收到以下错误：Error: Problem with mutate() input l5cathol。

我错过了什么吗？

library(tidyverse)
library(haven)
library(sjmisc)
library(googledrive)

googledrive::drive_download('https://drive.google.com/file/d/124WOY4iBXxv_9eBXsoHJVUzX98x2sxYy/view?usp=sharing','test.por',overwrite=T)
dta <- haven::read_por('test.por')

names(dta) <- tolower(names(dta))

# Convert variables of interest to character/numeric
vars_chrs <- c("childid","l5cathol","l5public","r5race","w3povrty","w3daded","w3momed","w3inccat","p5fstamp")

vars_nums <- c("w3momscr", "w3dadscr","p5numpla","p5hmage","p5hdage","c5r2mtsc")

dta <- dta %>%
  mutate_at(vars(one_of(vars_chrs)), funs(as.character(to_label(.)))) %>%  ##** @@ HERE throws error !!!
  mutate_at(vars(one_of(vars_nums)), funs(as.numeric(as.character(to_label(.)))))

【问题讨论】：

你能用dput显示数据行吗
我是通过下载得到的。这是一个大数据
请检查所有列是否存在lapply(dta[1:3, vars_chrs], function(x) as.character(to_label(x)))
即我得到的列名是大写的colnames(dta) %>% head [1] "CHILDID" "PARENTID" "S5_ST_ID" "S5_ID" "T5_ID" "D5T_ID"

标签： r dataframe csv tidyverse

【解决方案1】：

使用dplyr 1.0.0，使用across，它正在工作

library(dplyr) # 1.0.0
library(sjmisc)
library(haven)
dta %>% 
   mutate(across(vars_chrs, ~ as.character(to_label(.))), 
   across(vars_nums, ~ as.numeric(as.character(to_label(.)))))
# A tibble: 15,305 x 3,225
#  CHILDID PARENTID S5_ST_ID S5_ID T5_ID D5T_ID   A5_T_ID B5_T_ID T5_T_ID L5_S_ID S5_S_ID K5_S_ID D5_T_ID  E5_T_ID  U5_S_ID  F5NOTEND
#   <chr>   <chr>    <chr>    <chr> <chr> <chr+lb> <chr>   <chr>   <chr>   <chr>   <chr>   <chr>   <chr+lb> <chr+lb> <chr+lb> <dbl+lb>
# 1 000100… 0001002P 6005     6005  "600… -2 [SUP… "6005T… "6005T… "6005T… "6005"  "6005"  "6005"  -2 [SUP… -2 [SUP… -2 [SUP… 0 [FALS…
# 2 000100… 0001003P 9997     9997  ""    -2 [SUP… ""      ""      ""      ""      ""      ""      -2 [SUP… -2 [SUP… -2 [SUP… 0 [FALS…
# 3 000100… 0001004P 6009     6009  "600… -2 [SUP… "6009T… "6009T… "6009T… "6009"  "6009"  "6009"  -2 [SUP… -2 [SUP… -2 [SUP… 0 [FALS…
# 4 000100… 0001005P 7197     7197  "719… -2 [SUP… "7197T… "7197T… "7197T… "7197"  "7197"  "7197"  -2 [SUP… -2 [SUP… -2 [SUP… 0 [FALS…
# 5 000100… 0001006P 6026     6026  "602… -2 [SUP… "6026T… "6026T… "6026T… "6026"  "6026"  "6026"  -2 [SUP… -2 [SUP… -2 [SUP… 0 [FALS…
# 6 000100… 0001007P 6027     6027  ""    -2 [SUP… ""      ""      ""      ""      ""      ""      -2 [SUP… -2 [SUP… -2 [SUP… 0 [FALS…
# 7 000100… 0001008P 9997     9997  ""    -2 [SUP… ""      ""      ""      ""      ""      ""      -2 [SUP… -2 [SUP… -2 [SUP… 0 [FALS…
# 8 000100… 0001009P 5569     5569  "556… -2 [SUP… "5569T… "5569T… "5569T… "5569"  ""      "5569"  -2 [SUP… -2 [SUP… -2 [SUP… 0 [FALS…
# 9 000101… 0001010P 0002     0002  "000… -2 [SUP… "0002T… "0002T… "0002T… "0002"  "0002"  "0002"  -2 [SUP… -2 [SUP… -2 [SUP… 0 [FALS…
#10 000101… 0001011P 0007     0007  "000… -2 [SUP… "0007T… "0007T… "0007T… "0007"  "0007"  "0007"  -2 [SUP… -2 [SUP… -2 [SUP… 0 [FALS…

数据

googledrive::drive_download('https://drive.google.com/file/d/124WOY4iBXxv_9eBXsoHJVUzX98x2sxYy/view?usp=sharing','test.por',overwrite=T)
dta <- haven::read_por('test.por')

names(dta) <- tolower(names(dta))

# Convert variables of interest to character/numeric
vars_chrs <- c("childid","l5cathol","l5public","r5race","w3povrty","w3daded","w3momed","w3inccat","p5fstamp")

vars_nums <- c("w3momscr", "w3dadscr","p5numpla","p5hmage","p5hdage","c5r2mtsc")

【讨论】：

@rnorouzian 我使用了您的确切代码，它正在工作。甚至mutate_at 也在为我工作并发出警告
我正在使用dplyr 1.0.0
@rnorouzian 我在您的帖子中使用了完全相同的代码。之前我说过我必须登录谷歌帐户并使用 googledrive 命令进行身份验证
阿伦，你的 R 版本是多少？我的是R version 4.0.0
我在 Mac 上使用 R 4.0.2