Изменение dataframe в R для определенного формата в JSON файл

Question

df

Эта ссылка скриншот кадра данных, что я имею в R, и я с трудом перенося его в файл JSON с этим форматом:

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

И так далее ...

Я пытался использовать tojson() функцию в R, а также некоторые другие вещи, которые я нашел в Интернете, но ничего не кажется, работает. Любое руководство по этому вопросу будет очень полезно. Всего 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]"}]