Question

我有一个与各种小部件相关的冗长的操作数据集（op＃）和时间{tm＃）。遗憾的是，操作没有特定的顺序，因此在第一次操作或第80次操作中可能会发生喷涂操作。每个操作都具有在右侧列中完成该操作所需的相关时间。我想组织数据，以便每列都是唯一的操作名称，列中的值是完成该操作所需的相关时间。

# sample data frame
df = data.frame(widget = c("widget 1", "widget 2", "widget 3", "widget 4"),
            op1 = c("paint", "weld", "frame", "weld"),
            tm1 = c(20, 24, 14, 40),
            op2 = c("weld", "coat", "weld", "paint"),
            tm2 = c(10, 20, 50, 30))

print(df)
>      part   op1 tm1   op2 tm2  
> 1 widget1 paint  20  weld  10
> 2 widget2  weld  24  coat  20
> 3 widget3 frame  14  weld  50
> 4 widget4  weld  40 paint  30

我正在尝试将数据框重组为......

>      part  paint  weld  coat  frame 
> 1 widget1     20    10  NULL   NULL
> 2 widget2   NULL    24    20   NULL
> 3 widget3   NULL    50  NULL     14
> 4 widget4     30    40  NULL   NULL

有什么建议吗？

Answer 1

尝试：

If `df1` is the dataset

names(df1)[grep("^op|^tm",names(df1))] <- gsub("([[:alpha:]]+)(\\d+)", "\\1_\\2",   names(df1)[grep("^op|^tm", names(df1))])
 df2 <- reshape(df1, idvar="widget", varying= grep("^op|^tm",names(df1)), sep="_", direction="long")
 library(reshape2)
 dcast(df2, widget~op, value.var="tm")[,c(1,3:5,2)]
 #      widget paint weld coat frame
 #1 widget 1    20   10   NA    NA
 #2 widget 2    NA   24   20    NA
 #3 widget 3    NA   50   NA    14  ##looks like you have 50 instead of 60 as shown in the expected
 #4 widget 4    30   40   NA    NA

我使用了grep和gsub的组合来修改这些列的名称（tm，op），以便在它们之间存在分隔_常用字符和相应的数字使您可以轻松使用reshape
重新整理为更长格式后，使用dcast

R：将描述性列和相关值组合成矩阵形式

1 个答案: