Convert json to csv

setwd('C:\\Users\\fanning1207')
library('rjson')
json_data=fromJSON(file='data.json')
dat_tweets=json_data$data$tweets
cc=matrix(unlist(dat_tweets), ncol = 22, byrow = TRUE)
cc=as.data.frame(cc)
names(cc)=c(names(dat_tweets[[1]])[1:6],names(dat_tweets[[1]]$user))
View(cc)
write.csv(cc,'广西大学生 转基因.csv')
dat_cc=read.csv('广西大学生 转基因.csv')
plot(dat_cc$created_at_date_2,dat_cc$reposts_count,type='l')