为特定 ID 重新编码列中的观察值

Question

我有一个名为“调查”的数据集。在此，我有一行行的个人 ID，以及包含许多问题的列。我需要将 1 列中的值重新编码为 NA 并将观察结果移至另一列。

例如：

ID    Fruit    Vegetable
aaa   NA       grape 
bbb   NA       tomato
ccc   apple    NA
ddd   peach    NA

我想更改葡萄和番茄的观察，属于 ID aaa 和 bbb 以将它们放入水果列​​（调查受访者将它们放入错误的列）并将 NA 留在后面。

看起来像：

ID    Fruit    Vegetable
aaa   grape    NA 
bbb   tomato   NA
ccc   apple    NA
ddd   peach    NA

非常感谢

Answer 1

基本上，我们将使用 2 个条件来完成此操作。第一个将检查它是否为 NA 并在您要重新编码的名称列表中 (fct2recode)。如果它在 fct2recode 中，第二个将从第二列中删除它。

library(tidyverse)

df <- read_table("ID    Fruit    Vegetable
aaa   NA       grape 
bbb   NA       tomato
ccc   apple    NA
ddd   peach    NA")

fct2recode <- c("grape", "tomato")

df %>%
    mutate(Fruit = ifelse(is.na(Fruit) & Vegetable %in% fct2recode, 
                          Vegetable, Fruit),
           Vegetable = ifelse(Vegetable %in% fct2recode, NA, Vegetable))

结果：

# A tibble: 4 x 3
  ID    Fruit  Vegetable
  <chr> <chr>  <chr>    
1 aaa   grape  NA       
2 bbb   tomato NA       
3 ccc   apple  NA       
4 ddd   peach  NA   

我希望这种方法对您的问题足够通用。

编辑：

对于ID为“aaa”和“bbb”的特定目标obs，您可以将它们作为条件添加到ifelse：

df %>%
    mutate(Fruit = ifelse(ID %in% c("aaa", "bbb"), Vegetable, Fruit),
           Vegetable = ifelse(ID %in% c("aaa", "bbb", NA, Vegetable)))