SITC和HS对照表整理

library(rjson)

json_file <-"https://comtrade.un.org/data/cache/classificationS3.json"

json_data <-fromJSON(paste(readLines(json_file), collapse=""))

dddd<-matrix(unlist(json_data))

ffffff<-dddd[26:12603,]

(zzzzzz<-length(ffffff))

ffffff<-as.data.frame(ffffff)

baba1<- ffffff[seq(1,12578,3),]

baba1<-as.data.frame(baba1)

baba2<- ffffff[seq(2,12578,3),]

baba2<-as.data.frame(baba2)

pop<-data.frame(

baba1$baba1,

baba2$baba2

)

write.csv(pop,"/Users/nawenpeng/Desktop/基础表格2/pop.csv",row.names = F)