将当前数据框重塑为另一个数据框并创建新列（连接）

Question

我有附加的数据框（here），我需要将其调整为以下所示的格式

基本上，我想将每个traet组（LA，RA，BiA）与NP治疗组进行比较，并创建一个在Studlab和治疗臂之间连接的列。

我尝试使用之前回答的问题（here）来解决此问题，但我没有。 任何建议将不胜感激。

Answer 1

如果没有数据样本并且不知道2Total和Group2.event的确切来源，将很难为您提供帮助。但是基础应该是这样的：

df %>% 
 gather(treat2:treat4, key = "key", value = "tmp_compare_groupe") %>% 
 mutate(Compare_Groups = paste0("NP_", tmp_compare_groupe), 
        2nd.Total = case_when(tmp_compare_groupe == "LA" ~ LA,
                              tmp_compare_groupe == "RA" ~ RA,
                              tmp_compare_groupe == "BIA" ~ BIA,
                               ))

我不知道Group2.event来自何处。计算完所有列后，您必须选择所需的列。