inst/stars.R

In ropensci/plotly: Create Interactive Web Graphics via 'plotly.js'

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")