我尝试循环使用 mutate 和 fct_recode 函数来重新编码此问题,但没有成功。有没有办法解决这个问题,无论是 tidyverse 还是其他方式?抱歉啰嗦了 - 我想尽可能清楚。
set.seed(2021)
df <- tibble(
a1 = factor(ifelse(sign(rnorm(30))==-1, 0, 1), labels = c("", "Yes")),
a2 = factor(ifelse(sign(rnorm(30))==-1, 0, 1), labels = c("", "Yes")),
b1 = factor(ifelse(sign(rnorm(30))==-1, 0, 1), labels = c("", "Yes")),
b2 = factor(ifelse(sign(rnorm(30))==-1, 0, 1), labels = c("", "Yes")),
d1 = gl(2, 15, labels = c("Males", "Females")),
d2 = factor(ifelse(sign(rnorm(30))==-1, 0, 1), labels = c("Python", "R"))
)
df %>% count(a1)
# Replace "" with No
myvars <- c("a1", "a2", "b1", "b2")
df %>% mutate(a1 = factor(if_else(a1 == "", "No",
as.character(a1))),
a2 = factor(if_else(a1 == "", "No",
as.character(a1))),
b1= factor(if_else(b1== "", "No",
as.character(b1))))
#---- Attempt one (forloop)
# Desire for all the variables
for (i in myvars){
df <- df %>%
mutate(i = factor(if_else(i == "", "No",
as.character(i))))
}
df %>% count(a1) # No replacement
最佳答案
tidyverse
有自己的“循环”函数。
要将函数应用于多列,您可以使用across
。
library(dplyr)
df <- df %>% mutate(across(all_of(myvars),
~factor(if_else(. == "", "No", as.character(.)))))
df %>% count(a1)
# a1 n
# <fct> <int>
#1 No 12
#2 Yes 18
关于r - 有没有办法在 tidyverse 生态系统中使用循环?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/66900216/