5

さらにデータセットに変換するために、複数の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)

私は約200個のファイルを持っているので、jsonファイルをインポートできる方法があるかどうか疑問に思っていました.

ありがとう

4

1 に答える 1

8

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

これで問題が解決しない場合は、問題を理解するためにもう少し情報が必要です。

于 2015-04-09T17:51:29.493 に答える