'（ABC）' 到 '（ab）和（BC）' 在data.frame

我有这种形式的一个data.frame：'（ABC）' 到 '（ab）和（BC）' 在data.frame

sequence support 
1  a-b  0.6 
2  b-c  0.6 
3  a-c  0.6 
4 a-b-c  1.0 
5  a-d  0.6

，我可以改造这个以下内容：

1 2 3 support 
1 a b <NA>  0.6 
2 b c <NA>  0.6 
3 a c <NA>  1.0 
4 a b c  0.6 
5 a d <NA>  1.0

我需要改造上表中是这样的：

1 2 support 
1 a b  0.6 
2 b c  0.6 
3 a d  1.0

更具体地说，我想画一个热平衡图。

所以我必须将第一个data.table转换为'start node'和'end node'的形式。

例如，绘制序列 'A-B-C' 和 'a-d'，我需要以下data.frame：

start end 
    a b 
    b c 
    a d

我怎样才能做到这一点？

来源

2016-07-19 tshan

这是不明确的预期输出。对于第一个输出，'library（splitstackshape）; cSplit（df，“sequence”，“ - ”）' – akrun

我将第一个data.table转换为问题中的第二个。我期望的是问题中的第三个data.table。再次感谢@akrun。 – tshan

为什么'c'行不在输出中？ – akrun

我们可以尝试

library(splitstackshape) 
i1 <- grepl("-[^-]+-", df$sequence) 
df$sequence[i1] <- sub("-[^-]+", "", df$sequence[i1]) 
res <- cSplit(df[!(duplicated(df$sequence)|duplicated(df$sequence, 
       fromLast=TRUE)),], "sequence", "-") 
res[, 2:3, with = FALSE] 
# sequence_1 sequence_2 
#1:   a   b 
#2:   b   c 
#3:   a   d

来源

2016-07-19 07:10:25 akrun

使用strsplit和应用：

# data 
df1 <- read.table(text = "sequence support 
1  a-b  0.6 
2  b-c  0.6 
3  a-c  0.6 
4 a-b-c  1.0 
5  a-d  0.6", header = TRUE, as.is = TRUE) 

# result - input for sankey 
datSankey <- 
    do.call(rbind, 
      apply(df1, 1, function(i){ 
      x <- unlist(strsplit(i[1], "-")) 
      cbind.data.frame(
       From = x[1:length(x) - 1], 
       To = x[2:(length(x))], 
       Weight = as.numeric(i[2]), 
       deparse.level = 0) 
      }) 
) 

#    From To Weight 
# 1    a b 0.6 
# 2    b c 0.6 
# 3    a c 0.6 
# 4.sequence1 a b 1.0 
# 4.sequence2 b c 1.0 
# 5    a d 0.6 

# plot 
library(googleVis) 
plot(gvisSankey(datSankey, 
       from = "From", to = "To", weight = "Weight"))

来源

2016-07-19 07:18:27 zx8754

'（ABC）' 到 '（ab）和（BC）' 在data.frame

回答

相关问题