변경 dataframe

Question

df

이 링크 파일 내가 R에있는 데이터 프레임의 스크린 샷 내가이 형식으로 JSON 파일로 전송 어려움을 겪고 :

{"id2": 1, "x": [0,0,0,0,0,1,0]} 
{"id2": 1, "x": [0,0,1,0,0,1,1]} 

등등 ...

나는 R의 tojson() 기능뿐만 아니라 내가 온라인을 발견했지만 아무것도 작동하는 것 같다 다른 일을 사용하려고했습니다. 이에 대한 지침은 매우 유용 할 것입니다. 47 개의 열과 10000 개의 행이 있으므로 수동으로 작업하는 데 시간이 걸릴 수 있습니다.

Answer 1

다음은 귀하와 유사한 샘플 데이터 프레임을 사용한 예입니다.

library(jsonlite) 

# Create sample data frame 
> d1 <- data.frame(id=c(1,2),B=c(0,1), C=c(1,0), D=c(0,0)) 


# Add a column concatenating B,C and D 
> d1$x <- with(d1, paste(B, C, D,sep=",")) 
> d1 
    id B C D  x 
1 1 0 1 0 0,1,0 
2 2 1 0 0 1,0,0 
> 

# Add opening and closing square brackets 
> d1$x <- with(d1, paste("[",x,sep = "")) 
> d1 
    id B C D  x 
1 1 0 1 0 [0,1,0 
2 2 1 0 0 [1,0,0 
> d1$x <- with(d1, paste(x,"]",sep = "")) 

> d1 
    id B C D  x 
1 1 0 1 0 [0,1,0] 
2 2 1 0 0 [1,0,0] 
> 

# Subset the columns we need 
> d2 <- d1[,c("id","x")] 
> d2 
    id  x 
1 1 [0,1,0] 
2 2 [1,0,0] 

# create JSON 
> x <- toJSON(d2) 
> x 
[{"id":1,"x":"[0,1,0]"},{"id":2,"x":"[1,0,0]"}]