如果一个案例具有缺失值而另一个变量具有观察值，如何在 R 中创建一个返回 1 的新变量？

Question

我有两个包含缺失数据的变量loon 和profstat。为了更好地了解丢失和需要估算的数据，我想在数据框中创建一个附加变量 problem，如果 loon 丢失和 profstat 将返回每个案例 1观察到，否则0。我生成了以下代码，它只给了我输出x[] = 1。这个问题有什么解决办法吗？

 {
  problem <- dim(length(t))
  for (i in 1:nrow(dflapopofficial))
  {
    if (is.na(dflapopofficial$loon[i])==TRUE & is.na(dflapopofficial$profstat[i])==FALSE) {  
      dflapopofficial$problem[i]=1
    } else {
      dflapopofficial$problem[i]=0
    }
    return(problem)
  }

Answer 1

这里有一些可以改进的地方：

1. 请记住，R 中的许多操作都是矢量化的。在进行逻辑检查等时，您不需要遍历向量中的每个元素。
2. is.na(some_condition) == TRUE 与 is.na(some_condition) 相同，is.na(some_condition) == FALSE 与 !is.na(some_condition) 相同
3. 如果您想在数据框中写入一个新列，并且您要引用该数据框中的多个变量，使用 within 可以为您节省大量输入 - 特别是当您的数据框名称很长时
4. 您正在返回 problem，但在您的循环中，您正在写入 dflapipofficial$problem，这是一个不同的变量。
5. 如果要写入 1 和 0，可以使用 +(logical_vector) 将逻辑隐式转换为数字

将所有这些放在一起，您可以用一行替换整个循环：

within(dflapopofficial, problem <- +(is.na(loon) & !is.na(profstat)))

记住将结果存储到数据框或副本中，例如

df <- within(dflapopofficial, problem <- +(is.na(loon) & !is.na(profstat)))

所以df 只是 dflapopofficial 的一个 vopy 与您的额外列。