0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.2.2
/
library
/
plotly
/
[
Home
]
File: stars.R
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")