데이터 프레임을 정규화하는 관용적 인 방법이 있습니까?

Question

질문은 다음과 같습니다 : 우리는 데이터에 대한 비정상적인 형태의 csv 파일을 가지고 있습니다. R은 거대하고, 나는 확실히 짧은 해결책을 놓치고있다.

을 감안할 때 우리가 그것을 읽고 아래의 양식의 dataframe 얻을 파일 :

id  file topic proportion 
0 file1.txt  0  0.01 
1 file2.txt  0  0.01 
1 file2.txt  1  0.03 

우리가 일정을이 dataframe이 점을 변환 할 수있는 간단한 방법이 있나요

# id, file, topic, proportion, [topic, proportion]* 
0,file1.txt,0,0.01 
1,file2.txt,0,0.01,1,0.03 

을 열 수? 주제 - 비율 쌍의 수는 정의되지 않으며 매우 클 수 있습니다. 고맙습니다!

Answer 1

한 가지 방법이 있습니다. 나는 data가 .csv 파일로 저장 파일의 경로를 포함한다고 가정

library(plyr) 

df  = read.csv(data) 
names  = c("id","file","topic","proportion") 
extractDF = function(u) setNames(df[,c(1,2,u,u+1)], names) 

newDF = ldply(seq(3,length(df)-1,by=2), extractDF) 

newDF[complete.cases(newDF),] 

# id  file topic proportion 
#1 0 file1.txt  0  0.01 
#2 1 file2.txt  0  0.01 
#4 1 file2.txt  1  0.03 

데이터는 다음과 같다을 csv 형식으로 저장 :

# id, file, topic, proportion, [topic, proportion]* 
0,file1.txt,0,0.01 
1,file2.txt,0,0.01,1,0.03 

Answer 2

당신은 내 "splitstackshape"패키지에서 merged.stack을 시도 할 수 있습니다. 이것이 당신의 시작 데이터입니다 가정하면

.... 당신이해야 할 단지 것

mydf <- read.table(
    text = "id, file, topic, proportion, topic, proportion 
0,file1.txt,0,0.01 
1,file2.txt,0,0.01,1,0.03", 
    header = TRUE, sep = ",", fill = TRUE) 
mydf 
# id  file topic proportion topic.1 proportion.1 
# 1 0 file1.txt  0  0.01  NA   NA 
# 2 1 file2.txt  0  0.01  1   0.03 

....

library(splitstackshape) 
merged.stack(mydf, var.stubs = c("topic", "proportion"), 
      sep = "var.stubs")[, .time_1 := NULL][] 
# id  file topic proportion 
# 1: 0 file1.txt  0  0.01 
# 2: 0 file1.txt NA   NA 
# 3: 1 file2.txt  0  0.01 
# 4: 1 file2.txt  1  0.03 

랩은 na.omit에서 전체 일을하지 않으려면 그 (것)들에서 NA 가치가있는 행.

na.omit(
    merged.stack(mydf, var.stubs = c("topic", "proportion"), 
       sep = "var.stubs")[, .time_1 := NULL]) 
# id  file topic proportion 
# 1: 0 file1.txt  0  0.01 
# 2: 1 file2.txt  0  0.01 
# 3: 1 file2.txt  1  0.03