r - 使用名称列添加行

Question

是否可以使用列名创建两行？我需要将 DX 与 SX 分开并创建新行，在分开之后我想通过添加一列来维护信息 DX 或 SX。有些列是通用的，在本例中为 X。相反，Num 是键

a = read.table(text="
Num X STDX ABDX XBDX STSX ABSX XBSX 
12   3   9    5   3   11   3   7   
13   35  24   1   7   18   2   8   
14   35  24   1   7   18   2   8   
15   10  1    5   16 -10   5   3   ",h=T)

b= read.table(text="Num X   ST   AB   XB DX/SX
12   3   9    5   3  DX 
12   3   11   3   7  SX 
13   35  24   1   7  DX
13   35  18   2   8  SX
14   35  24   1   7  DX
14   35   18  2   8  SX
15   10  1    5   16 DX
15  10 -10   5   3   SX",h=T)

我的想法是将数据和加入后分开，但它很重。我试过这段代码:

c <- sapply(c("DX", "SX",""),
       function(x) a[endsWith(names(a),x)],
       simplify = FALSE)

但问题是 x 和 Num，因为我想在同一个数据库中包含 DX 和 SX。

Answer 1

肯定有更优雅和紧凑的方法，但这里有一个示例，说明如何通过简单的重命名和行绑定(bind)来实现此目的:

a = read.table(text="
Num X STDX ABDX XBDX STSX ABSX XBSX 
12   3   9    5   3   11   3   7   
13   35  24   1   7   18   2   8   
14   35  24   1   7   18   2   8   
15   10  1    5   16 -10   5   3   ",h=T)

library(dplyr)
library(stringr)

dx <- a %>% 
  select(1,2,ends_with("DX")) %>% 
  rename_with(~ str_remove(.x, "DX$"), .cols = -c(1:2)) %>% 
  mutate(`DX/SX` = "DX" )
dx
#>   Num  X ST AB XB DX/SX
#> 1  12  3  9  5  3    DX
#> 2  13 35 24  1  7    DX
#> 3  14 35 24  1  7    DX
#> 4  15 10  1  5 16    DX

sx <- a %>% 
  select(1,2,ends_with("SX")) %>% 
  rename_with(~ str_remove(.x, "SX$"), .cols = -c(1:2)) %>% 
  mutate(`DX/SX` = "SX" )
sx
#>   Num  X  ST AB XB DX/SX
#> 1  12  3  11  3  7    SX
#> 2  13 35  18  2  8    SX
#> 3  14 35  18  2  8    SX
#> 4  15 10 -10  5  3    SX

bind_rows(dx,sx) %>% 
  arrange(Num)
#>   Num  X  ST AB XB DX/SX
#> 1  12  3   9  5  3    DX
#> 2  12  3  11  3  7    SX
#> 3  13 35  24  1  7    DX
#> 4  13 35  18  2  8    SX
#> 5  14 35  24  1  7    DX
#> 6  14 35  18  2  8    SX
#> 7  15 10   1  5 16    DX
#> 8  15 10 -10  5  3    SX

^{创建于 2022-10-12 reprex v2.0.2}