web-dev-qa-db-ja.com

JSONファイルからRにデータをインポートする

JSONファイルからRにデータをインポートする方法はありますか？より具体的には、ファイルは、文字列フィールド、オブジェクト、および配列を持つJSONオブジェクトの配列です。 RJSONパッケージは、これに対処する方法についてあまり明確ではありません http://cran.r-project.org/web/packages/rjson/rjson.pdf 。

jsonr
147
user313967

最初に rjson パッケージをインストールします。

install.packages("rjson")

次に：

library("rjson")
json_file <- "http://api.worldbank.org/country?per_page=10&region=OED&lendingtype=LNX&format=json"
json_data <- fromJSON(paste(readLines(json_file), collapse=""))

Update：バージョン0.2.1以降

json_data <- fromJSON(file=json_file)
167
rcs

jsonliteはJSONをデータフレームにインポートします。オプションで、ネストされたオブジェクトをフラット化できます。ネストされた配列はデータフレームになります。

> library(jsonlite)
> winners <- fromJSON("winners.json", flatten=TRUE)
> colnames(winners)
[1] "winner" "votes" "startPrice" "lastVote.timestamp" "lastVote.user.name" "lastVote.user.user_id"
> winners[,c("winner","startPrice","lastVote.user.name")]
    winner startPrice lastVote.user.name
1 68694999          0              Lamur
> winners[,c("votes")]
[[1]]
                            ts user.name user.user_id
1 Thu Mar 25 03:13:01 UTC 2010     Lamur     68694999
2 Thu Mar 25 03:13:08 UTC 2010     Lamur     68694999
77
xn.

代替パッケージはRJSONIOです。ネストされたリストを変換するには、lapplyが役立ちます。

l <- fromJSON('[{"winner":"68694999",  "votes":[ 
   {"ts":"Thu Mar 25 03:13:01 UTC 2010", "user":{"name":"Lamur","user_id":"68694999"}},   
   {"ts":"Thu Mar 25 03:13:08 UTC 2010", "user":{"name":"Lamur","user_id":"68694999"}}],   
  "lastVote":{"timestamp":1269486788526,"user":
   {"name":"Lamur","user_id":"68694999"}},"startPrice":0}]'
)
m <- lapply(
    l[[1]]$votes, 
    function(x) c(x$user['name'], x$user['user_id'], x['ts'])
)
m <- do.call(rbind, m)

あなたの例の投票に関する情報を提供します。

29
Karsten W.

URLがAmazon S3で使用されるようなhttpsの場合、getURLを使用します

json <- fromJSON(getURL('https://s3.amazonaws.com/bucket/my.json'))
15
Anthony

パッケージ：

  • ライブラリ（httr）
  • ライブラリ（jsonlite）

Jsonをdataframe/csvに変換する際に問題が発生しました。私の場合、私はやった：

Token <- "245432532532"
source <- "http://......."
header_type <- "applcation/json"
full_token <- paste0("Bearer ", Token)
response <- GET(n_source, add_headers(Authorization = full_token, Accept = h_type), timeout(120), verbose())
text_json <- content(response, type = 'text', encoding = "UTF-8")
jfile <- fromJSON(text_json)
df <- as.data.frame(jfile)

次にdfからcsvへ。

この形式では、必要に応じて複数の.csvに簡単に変換できます。

重要な部分は、コンテンツ関数にtype = 'text'が必要であることです。

1
Aaron C

最初にRJSONIOとRCurlパッケージをインストールします：

install.packages("RJSONIO")
install.packages("(RCurl")

コンソールでRJSONIOを使用して以下のコードを試してください

library(RJSONIO)
library(RCurl)
json_file = getURL("https://raw.githubusercontent.com/isrini/SI_IS607/master/books.json")
json_file2 = RJSONIO::fromJSON(json_file)
head(json_file2)
1
Moby M

httrパッケージをインポート

library(httr)

URLを取得

url <- "http://www.omdbapi.com/?apikey=72bc447a&t=Annie+Hall&y=&plot=short&r=json"
resp <- GET(url)

Respのコンテンツをテキストとして印刷

content(resp, as = "text")

Respのコンテンツを印刷する

content(resp)

Content（）を使用してrespのコンテンツを取得しますが、今回は2番目の引数を指定しません。 Rは、JSONを処理していることを自動的に判断し、JSONを名前付きRリストに変換します。

0
Adarsh Pawar