https://github.com/ajschumacher/rjstat
read and write JSON-stat with R
https://github.com/ajschumacher/rjstat
cran json-stat r
Last synced: 3 months ago
JSON representation
read and write JSON-stat with R
- Host: GitHub
- URL: https://github.com/ajschumacher/rjstat
- Owner: ajschumacher
- License: other
- Created: 2013-10-25T22:56:58.000Z (over 11 years ago)
- Default Branch: master
- Last Pushed: 2023-09-04T16:40:15.000Z (almost 2 years ago)
- Last Synced: 2025-04-12T10:07:48.062Z (3 months ago)
- Topics: cran, json-stat, r
- Language: R
- Homepage:
- Size: 265 KB
- Stars: 32
- Watchers: 11
- Forks: 6
- Open Issues: 2
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
README
# rjstat: read and write JSON-stat with R
[](https://app.travis-ci.com/ajschumacher/rjstat) [](https://coveralls.io/github/MansMeg/rjstat?branch=master) [](https://github.com/r-hub/cranlogs.app)
[](https://CRAN.R-project.org/package=rjstat)
Read and write data sets in the [JSON-stat](https://json-stat.org/) format.
### Installation:
[From CRAN](https://cran.r-project.org/package=rjstat) (most people use this):
```s
install.packages('rjstat')
```
[From github](https://github.com/ajschumacher/rjstat) (development version):
```s
library(devtools)
install_github("ajschumacher/rjstat")
```
### Usage:
```s
library(rjstat)
oecd.canada.url <- "https://json-stat.org/samples/oecd-canada.json"
# Read from JSON-stat to a list of data frames:
results <- fromJSONstat(readLines(oecd.canada.url))
names(results)
## [1] "Unemployment rate in the OECD countries 2003-2014"
## [2] "Population by sex and age group. Canada. 2012"
# You can also read in using the typically terser IDs rather than labels.
results <- fromJSONstat(readLines(oecd.canada.url), naming="id")
names(results)
## [1] "oecd" "canada"
# Convert from a list of data frames to a JSON-stat string.
# (The data frames must have exactly one value column.)
library(reshape)
irises <- melt(cbind(iris, Specimen=rep(1:50, 3)),
id.vars=c("Species", "Specimen"))
irisJSONstat <- toJSONstat(list(iris=irises))
cat(substr(irisJSONstat, 1, 76))
## {"version":"2.0","class":"collection","link":{"item":[{"class":"dataset","id
# You can successfully convert back and forth, but only for the features that
# make sense in both R and JSON-stat.
head(fromJSONstat(irisJSONstat)[[1]])
## Species Specimen variable value
## 1 setosa 1 Sepal.Length 5.1
## 2 setosa 1 Sepal.Width 3.5
## 3 setosa 1 Petal.Length 1.4
## 4 setosa 1 Petal.Width 0.2
## 5 setosa 2 Sepal.Length 4.9
## 6 setosa 2 Sepal.Width 3.0
```