2

我有一个包含两列的数据框：PathGroupStage、ClinGroupStage。我想创建一个选择更高阶段的新列 OutputStage。

阶段有效值：I，IA，IB，II，IIA，IIB，III，IIIA，IIIB，IIIC，IV，IVA，IVB，IVC，未知。

  • 如果两个阶段都有值，则使用最高的，例如 IIIB > IIIA > III
  • 如果一个缺失而另一个有价值，则使用有价值的那个
  • 如果两者都丢失或未知，则 .= 未知

如何比较两列中的非数字值导出 OutputStage 变量？我想我需要考虑水平，但我将如何比较不同列之间的因素？

这是示例数据集：

   PathGroupStage       ClinGroupStage
1              II                 <NA>
2               I                   IA
3             IVB                  IVB
4            IIIA Unknown/Not Reported
5               I                  III
6              II                 <NA>
7            IIIA                  IIB
8              II                   II
9            <NA>                 <NA>
10           IIIB Unknown/Not Reported

 df <- structure(list(PathGroupStage = c("II", "I", "IVB", "IIIA", "I", 
    "II", "IIIA", "II", NA, "IIIB"), ClinGroupStage = c(NA, "IA", 
    "IVB", "Unknown/Not Reported", "III", NA, "IIB", "II", NA, "Unknown/Not Reported"
    )), row.names = c(NA, 10L), class = "data.frame")
4

2 回答 2

3

一种选择可能是：

stages <- c("Unknown/Not Reported", "I", "IA", "IB", "II", "IIA", "IIB", "III", "IIIA", "IIIB", "IIIC" ,"IV", "IVA", "IVB", "IVC")

df %>%
    mutate(across(everything(), ~ factor(., levels = stages, ordered = TRUE)),
           OutputStage = pmax(PathGroupStage, ClinGroupStage, na.rm = TRUE))

   PathGroupStage       ClinGroupStage OutputStage
1              II                 <NA>          II
2               I                   IA          IA
3             IVB                  IVB         IVB
4            IIIA Unknown/Not Reported        IIIA
5               I                  III         III
6              II                 <NA>          II
7            IIIA                  IIB        IIIA
8              II                   II          II
9            <NA>                 <NA>        <NA>
10           IIIB Unknown/Not Reported        IIIB
于 2021-11-24T16:02:04.120 回答
0 
df <- structure(
    list(
        PathGroupStage = c("II", "I", "IVB", "IIIA", "I", "II", "IIIA", "II", NA, "IIIB"),
        ClinGroupStage = c(NA, "IA", "IVB", "Unknown/Not Reported", "III", NA, "IIB", "II", NA, "Unknown/Not Reported")
    ),
    row.names = c(NA, 10L), class = "data.frame"
) 

# The variables are not yet factors as far as R is concerned as you can 
# see from the tibble print method
df %>% as_tibble()

stages <- c("I", "IA", "IB", "II", "IIA", "IIB", "III", "IIIA", "IIIB", "IIIC" ,"IV", "IVA", "IVB", "IVC", "Unknown/Not Reported")

df %>%
    as_tibble() %>%
    dplyr::mutate(
        # if we make them ordered factors then they now have values you can do a mathematical operation on
        PathGroupStage = factor(PathGroupStage, levels = stages, ordered = TRUE),
        ClinGroupStage = factor(ClinGroupStage, levels = stages, ordered = TRUE),
        # case when is like a more general if_else() with multiple conditions
        # of the form: logical test ~ result if true
        OutputStage = case_when(
            (is.na(ClinGroupStage) | ClinGroupStage == "Unknown/Not Reported") & 
            (is.na(PathGroupStage) | PathGroupStage == "Unknown/Not Reported") ~ 
                factor("Unknown/Not Reported", levels = stages, ordered = TRUE),
            is.na(PathGroupStage) ~ ClinGroupStage,
            is.na(ClinGroupStage) ~ PathGroupStage,
            PathGroupStage >= ClinGroupStage ~ PathGroupStage,
            ClinGroupStage >= PathGroupStage ~ ClinGroupStage
        )
    )
于 2021-11-24T16:12:28.687 回答