Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/json/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
从目录导入多个json文件并附加数据_Json_R_Rjson_Jsonlite - Fatal编程技术网

从目录导入多个json文件并附加数据

从目录导入多个json文件并附加数据,json,r,rjson,jsonlite,Json,R,Rjson,Jsonlite,我试图将多个json文件读入一个工作目录,以便进一步转换为数据集。我在json目录中有文件text1、text2、text3。以下是我编写的代码: setwd("Users/Desktop/json") temp = list.files(pattern="text*.") myfiles = lapply(temp, read.delim) library("rjson") json_file <- "myfiles" library(jsonlite) out <- jsonli

我试图将多个json文件读入一个工作目录,以便进一步转换为数据集。我在json目录中有文件text1、text2、text3。以下是我编写的代码:

setwd("Users/Desktop/json")
temp = list.files(pattern="text*.")
myfiles = lapply(temp, read.delim)
library("rjson")
json_file <- "myfiles"
library(jsonlite)
out <- jsonlite::fromJSON(json_file)
out[vapply(out, is.null, logical(1))] <- "none"
data.frame(out, stringsAsFactors = FALSE)[,1:5]
View(out)
setwd(“用户/桌面/json”)
temp=list.files(pattern=“text*”)
myfiles=lapply(temp,read.delim)
图书馆(“rjson”)

json_file我认为我在处理w/Twitter数据时遇到了类似的问题。我有一个包含每个用户名的单独文件的目录,我想将它们作为一个组导入/分析。这对我很有用:

library(rjson)
filenames <- list.files("Users/Desktop/json", pattern="*.json", full.names=TRUE) # this should give you a character vector, with each file name represented by an entry
myJSON <- lapply(filenames, function(x) fromJSON(file=x)) # a list in which each element is one of your original JSON files
库(rjson)
文件名也可以查看解决方案。