使用Apply函数取消列出数据框中的每一行

Question

我有一个名为in.json的文件作为输入。 您可以在这里找到此文件的内容

使用此答案，我尝试使用以下代码将json转换为csv：

require(RJSONIO)
require(rjson)
library("rjson")
filename2 <- "C:/Users/Desktop/in.json"
json_data <- fromJSON(file = filename2)

json_data <- lapply(json_data, function(x) {
  x[sapply(x, is.null)] <- NA
  unlist(x)
})

json <- do.call("rbind", json_data)

df=json


write.csv(df,file='C:/Users/Desktop/final.csv', row.names=FALSE)

但是，当我键入nrow（df）时，我可以看到只有2行，但是根据项目的每个ID，我必须有更多行。

Answer 1

作为示例提供的json实际上在一个数组中只有两个对象。 调用str忠实地显示了该结构：

> str(json_data,max.level=2)
List of 2
 $ :List of 3
  ..$ projects  :List of 1
  ..$ total_hits: num 12596
  ..$ seed      : chr "776766" 
 $ :List of 3
  ..$ projects  :List of 16
  ..$ total_hits: num 12596
  ..$ seed      : chr "776766"

猜测您的意思是项目ID，并且您不介意松开“ total_hits”，而只需要取消列出json的前两个级别：

 unlisted <- unlist(unlist(json_data,recursive=FALSE),recursive=FALSE)

然后选择名为项目*的项目：

 projects <- unlisted[grep("^projects*",names(unlisted))]

然后，您可以使用以下方法简单地取消列出：

data <- lapply(projects,unlist)

由于没有在所有项目中填写完全相同的字段，因此绑定非常棘手，您需要依赖名称，以下是许多解决方案之一，可能不是最佳解决方案：

# list all the names in all projects
allNames <- unique(unlist(lapply(data,names)))
# have a model row
modelRow <- rep(NA,length(allNames))
names(modelRow)<-allNames

# the function to change your list into a row  following modelRow structure
rowSettingFn <- function(project){
    row <- modelRow
    for(iItem in 1:length(project)){
        row[names(project)[iItem]] <- project[[iItem]]
    }
    return(row)
}

# change your data into a matrix
dataMat <- sapply(data,rowSettingFn)