将空白附加到命名列表r

Question

我有一个试图解码调查数据的抄本。不幸的是，在该调查数据中，有时存在空白值和NA，这些空白值和NA在抄本中未表示。我尝试解决此问题的第一个想法是追加编解码器，以便每个问题列表都具有空格和NA的占位符，以便在解码时仍可以传递这些值。我想创建一个类似

的函数

blanks<-function(df,question){  
    df[[question]][[" "]]<-"blank"  
}

这样一来，我可以对法典中的每个列表执行lapply并添加名为“”的值“ blank”。所以不是它

codex$question1  
$'0'  
[1] "No"  
$'1'  
[1] "Yes"

我们可以看一下

codex$question1  
$'0'  
[1] "No"  
$'1'  
[1] "Yes"  
$' '  
[1] " "

然后，我将对NA和其他任何我遇到的问题执行相同的过程。显然这是行不通的，所以我希望有一种方法可以使它工作。这可能不是解决问题的最佳方法，因此，如果有更好的方法可以解决此问题，我也将接受答案。

Answer 1

我们可以使用append在列表中添加一个元素：

list1 <- list(`0` = "No", `1` = "Yes")
append(list1, list(` ` = " "))

输出：

$`0`
[1] "No"

$`1`
[1] "Yes"

$` `
[1] " "

我建议不要将您的列表元素命名为空白。将其命名为blank或遵循标准命名约定的名称。