为行的子集创建两个变量中的新变量

Question

我需要从两个旧变量的 value>中创建一个新变量（var_new）（var_old_1; var_old_2），但在这两种情况下，仅对于行的一个子集。

让我解释一下：

1. 我有一个索引变量，指示患者代码；称为“患者代码”（H01，H02，H03 ...）

2. 我需要创建一个新变量。 “ var_new”

3. 必须从var_old_1或var_old_2分配新变量“ var_new”的值。

   。

因此

（H01，H02，H04）var_new == var_old_1 对于（H03，H05）var_new == var_old_2

dertaborcode	var_old_1	var_old_2	var_new
H01	1.1	1.1	2.1 1.1
H02	1.2 1.2	2.2	1.2 1.2
H03	1.3	1.3 2.3	2.3 2.3
H04	1.4 1.4	2.4 2.4 1.4	1.4
H05	1.5 1.5 2.5	2.5 2.5	2.5

这只是一个示例。在我的数据集中，我要处理300行，我需要在此方案之后创建32个新变量。因此，一个好的代码将有所帮助。

Answer 1

也许有以下内容？

patientcode_old1 <- c("H01", "H02", "H04")
patientcode_old2 <- c("H03", "H05")

result <- df %>%
  mutate(Var_new = case_when(
          patientcode %in% patientcode_old1 ~ Var_Old_1,
          patientcode %in% patientcode_old2 ~ Var_Old_2,
          TRUE ~ NA_real_
          )
        )

然而，如果您需要以这种方式创建32个新变量，您的描述听起来好像您需要进行大量手动预订？也许想想是否需要创建这些VAR的方式背后有任何规律性。否则，我看不到如何避免进一步的手动努力。