变换data.frame列表来data.frame

Question

我想

   Loc      Time(h) 
    Paris, Luxembourg      10,15 
Paris, Lyon, Berlin     9,12,11 

改造这个data.frame这种

Loc    Time(h) 
Paris    10 
Luxembourg  15 
Paris    9 
Lyon    12 
Berlin   11 

Answer 1

假设在你的数据帧中的每个条目是一个字符串，你上面说的形式，你可以做以下

#notice the space in ", " for the first line 
newLoc<-sapply(df$Loc, function(entry) {unlist(strsplit(entry,", ", fixed=TRUE))}) 
#and the lack there of in the second 
newTime<-sapply(df$`Time(h)`, function(entry) {unlist(strsplit(entry, ",", fixed=TRUE))}) 

我想我们还需要扁平化的结果

dim(newLoc)<-NULL 
dim(newTime)<-NULL 

然后合并回一个DF

data.frame(cbind(Loc=newLoc, `Time(h)`=newTime)) 

Answer 2

你可以使用阿难Mahto的cSplit function，只要你有data.table安装。

如果dat是您的数据，

devtools::source_gist(11380733) 
cSplit(dat, c("Loc", "Time"), direction = "long") 
#   Loc Time 
# 1:  Paris 10 
# 2: Luxembourg 15 
# 3:  Paris 9 
# 4:  Lyon 12 
# 5:  Berlin 11