1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
library(jsonlite)
library(ggplot2)
stars <- fromJSON(
"https://raw.githubusercontent.com/cpsievert/starline/master/data/stars.json",
simplifyDataFrame = FALSE
)
dats <- lapply(stars$repos, function(r) {
starz <- unlist(r$stars$dates)
starz <- starz[sort(names(starz))]
data.frame(
date = as.Date(names(starz)),
value = cumsum(starz),
repo = r$uri,
stringsAsFactors = FALSE
)
})
d <- dplyr::bind_rows(dats)
ggplot(d, aes(date, value, color = repo)) +
geom_line() + ylab("Number of stars")
|
