我正在使用多个数据集(调查波),其中包括我以以下方式提取的相同变量。
首先,我创建一个函数来选择相关变量:
files <- list.files(path = getwd())
tmp <- map(files, read_stata)
extractColumns <- function(x){
select(x, "var1", "var2", "var3", "var4", "var5", "wt")
}
然后,我将该函数应用于所有数据集:
df <- map(tmp,extractColumns) %>% bind_rows()
然而,"wt“变量(权重)在调查的某些迭代中并不存在。因此,我得到以下错误:
Error: Can't subset columns that don't exist.
x Column `wt` doesn't exist.
Run `rlang::last_error()` to see where the error occurred.
因为这个变量并不包含在所有的wave中,所以我希望代码为没有这个变量的wave创建一个变量"wt“,并给这些wave中的所有受访者一个值1。
发布于 2021-07-21 10:35:11
我觉得你需要dplyr::any_of
myvars <- c("var1", "var2", "var3", "var4", "var5", "wt")
extractColumns <- function(x){
select(x, any_of(myvars))
}
https://stackoverflow.com/questions/68467274
复制