我需要坚持进行此转换，需要帮助。
我有一个长数据框，其中包含模拟数据（即10k模拟）以及其他功能。
我想将此长数据帧转换为宽数据帧，但希望每个模拟都放在单独的行中。
我尝试了从长到宽的默认转换方法，但是它们使每个模拟都具有新功能（但是我希望每个模拟都在新行中）
虚拟数据集：
name1 <- c('frame1','frame1','frame1','frame1','frame1','frame1','frame1','frame1','frmae1','frame1',
'frame2','frame2','frame2','frame2','frame2','frame2','frame2','frame2','frmae2','frame2')
name2 <- c('arch','conf','f.time.c','f.rev.c','sim1.f','sim1.val','sim2.f','¨sim2.val','sim3.f','sim3-val',
'arch','conf','f.time.c','f.rev.c','sim1.f','sim1.val','sim2.f','¨sim2.val','sim3.f','sim3.val')
value <- c('x86','cust','100','20','-a -b -c=10','150','-d -e=1 -f -z -x','40','-r -e -f -r','89',
'x24','default','500','2','-a1 -b34 -c=12','99','-a -e','100','-e -z ','120')
df = data.frame(name1,name2,value)
数据集如下所示：
name1 name2 value
1 frame1 arch x86
2 frame1 conf cust
3 frame1 f.time.c 100
4 frame1 f.rev.c 20
5 frame1 sim1.f -a -b -c=10
6 frame1 sim1.val 150
7 frame1 sim2.f -d -e=1 -f -z -x
8 frame1 sim2.val 40
9 frmae1 sim3.f -r -e -f -r
10 frame1 sim3.val 89
-------------- Simulation for frame 1 end here
11 frame2 arch x24
12 frame2 conf default
13 frame2 f.time.c 500
14 frame2 f.rev.c 2
15 frame2 sim1.f -a1 -b34 -c=12
16 frame2 sim1.val 99
17 frame2 sim2.f -a -e
18 frame2 sim2.val 100
19 frmae2 sim3.f -e -z
20 frame2 sim3.val 120
我想将其转换为这样的数据帧：（具有针对不同sim卡的功能重复）
frame arch conf f.time.c f.rev.c sim_number sim.f vale
1 frame1 x86 cust 100 20 sim1 -a -b -c=10 150
2 frame1 x86 cust 100 20 sim2 -d -e=1 -f -z -x 40
3 frame1 x86 cust 100 20 sim3 -r -e -f -r 89
4 frame2 x24 default 500 2 sim1 -a1 -b34 -c=12 99
5 frame2 x24 default 500 2 sim2 -a -e 100
6 frame2 x24 default 500 2 sim3 -e -z 120
最佳答案
您可以结合使用data.table的dcast和melt函数。
基于整个name2列，使用基于value列的值转换为宽格式。
使用以sim开头的列（例如sim1.f和sim1.val）融化为更长的格式
library(data.table)
## cast to wide format
df_wide <- dcast(setDT(df), name1 ~ name2, value.var = "value")
## melt back a selection of columns
melt(df_wide,
measure.vars = patterns("\\.f$", "\\.val$"),
variable.name = "sim_number",
value.name = c("sim.f", "value")
)
#> name1 arch conf f.rev.c f.time.c sim_number sim.f value
#> 1: frame1 x86 cust 20 100 1 -a -b -c=10 150
#> 2: frame2 x24 default 2 500 1 -a1 -b34 -c=12 99
#> 3: frame1 x86 cust 20 100 2 -d -e=1 -f -z -x 40
#> 4: frame2 x24 default 2 500 2 -a -e 100
#> 5: frame1 x86 cust 20 100 3 -r -e -f -r 89
#> 6: frame2 x24 default 2 500 3 -e -z 120
数据
df <- structure(list(name1 = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("frame1",
"frame2"), class = "factor"), name2 = structure(c(1L, 2L, 4L,
3L, 5L, 6L, 7L, 8L, 9L, 10L, 1L, 2L, 4L, 3L, 5L, 6L, 7L, 8L,
9L, 10L), .Label = c("arch", "conf", "f.rev.c", "f.time.c", "sim1.f",
"sim1.val", "sim2.f", "sim2.val", "sim3.f", "sim3.val"), class = "factor"),
value = structure(c(19L, 16L, 7L, 11L, 1L, 9L, 4L, 12L, 6L,
14L, 18L, 17L, 13L, 10L, 3L, 15L, 2L, 7L, 5L, 8L), .Label = c("-a -b -c=10",
"-a -e", "-a1 -b34 -c=12", "-d -e=1 -f -z -x", "-e -z ",
"-r -e -f -r", "100", "120", "150", "2", "20", "40", "500",
"89", "99", "cust", "default", "x24", "x86"), class = "factor")), class = "data.frame", row.names = c(NA,
-20L))
注意：在原始数据中，我分别用'sim2.val'和'frmae2'和'frmae1'分别用'frame2'和'frame1'替换了“¨sim2.val”。
关于r - 带有选定列的长到宽数据框，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/57055676/