我有一个包含 717 个唯一行的数据框，我现在要做的是，假设引用 ID 和加入 MeSH ID 不同，在下面创建新行，我将引用 ID 移动到与加入 MeSH ID 相同的列中，像我一样删除引用 MeSH ID 列，但保持行中的所有其他数据相同。因此，如果表中的一行当前看起来像这样:

我希望最终产品看起来像这样:

(总共有25列，但为了简单起见，我只显示了一些。)

一如既往，非常感谢任何帮助!

最佳答案

df <- read.table(header = T, text = "Disease    Joining_Mesh_ID Company Mode_of_Action  Reference_MeSH_ID
'Acute Myeloid Leukemia'    D015470 Gilead  'CD3 agonist'   D007951")

library(tidyverse)
df %>% pivot_longer(ends_with('_ID'), names_to = NULL, values_to = 'Mesh_ID')

#> # A tibble: 2 x 4
#>   Disease                Company Mode_of_Action Mesh_ID
#>   <chr>                  <chr>   <chr>          <chr>  
#> 1 Acute Myeloid Leukemia Gilead  CD3 agonist    D015470
#> 2 Acute Myeloid Leukemia Gilead  CD3 agonist    D007951

^{由 reprex package 创建于 2021-07-04 (v2.0.0)}

https://stackoverflow.com/questions/68245375/