Question

我想创建一个名为“Standard”的新列，作为三个测试结果的合成（我的数据集中有三个不同的列）。

如果所有三项测试均为正数，则该标准将被称为“强”。
如果三个测试中有两个为正，则该标准将被称为“中等”
如果只有一个测试是肯定的，那么该标准将被称为“Scanty”
如果没有一个测试是肯定的，标准将被称为“失败”。

我在数据集中有大约100条记录，我想在R中找到一种方法，而不必手动进行。我没有尝试任何东西，因为我不知道该尝试什么，我是R的新手。任何帮助或暗示都会非常感激。感谢。

数据集如下所示：

     ID   Test_1   Test_2   Test_3
     1   positive positive positive
     2   positive negative positive
     3   positive positive negative
     4   negative negative positive
     5   negative positive negative
     6   negative negative negative
     7   positive negative negative

以下是我期望最终数据集的样子：

     ID   Test_1   Test_2   Test_3   Standard
     1   positive positive positive   Strong
     2   positive negative positive   Medium
     3   positive positive negative   Medium
     4   negative negative positive   Scanty
     5   negative positive negative   Scanty
     6   negative negative negative   Failed
     7   positive negative negative   Scanty

Answer 1

这里有一个使用rowSums索引标准值向量的选项（注意它们必须按照正确的顺序排列）

idx <- rowSums(df[-1] == "positive") +1L
df$Standard <- c("Failed", "Scanty", "Medium", "Strong")[idx]

结果：

> df
  ID   Test_1   Test_2   Test_3 Standard
1  1 positive positive positive   Strong
2  2 positive negative positive   Medium
3  3 positive positive negative   Medium
4  4 negative negative positive   Scanty
5  5 negative positive negative   Scanty
6  6 negative negative negative   Failed
7  7 positive negative negative   Scanty

Answer 2

ifelse是一种方法

df$new <- apply(df[,-1], 1, function(i) length(i[i == 'positive']))
df$standard <- ifelse(df$new == 3, 'Strong', ifelse(df$new == 2, 'Medium', ifelse(df$new == 1, 'Scanty', 'Failed')))
df
#      ID   Test_1   Test_2   Test_3 new standard
#    1  1 positive positive positive   3   Strong
#    2  2 positive negative positive   2   Medium
#    3  3 positive positive negative   2   Medium
#    4  4 negative negative positive   1   Scanty
#    5  5 negative positive negative   1   Scanty
#    6  6 negative negative negative   0   Failed
#    7  7 positive negative negative   1   Scanty

Answer 3

您还可以使用包mutate中的plyr。它可以通过添加新列或替换现有列来改变数据框。

如何在数据集的现有列中的结果中创建新列（变量）

3 个答案: