altmetric_plot.R

library(ggplot2)
library(dplyr)
df <-
  acuna[grepl("cited_by", names(acuna))] %>% unlist %>% data.frame %>%  tibble::rownames_to_column() 
names(df) <- c("Provider", "Hits")
df <- df %>% mutate(Provider = gsub("cited_by_", "", Provider))
tmp <- tempfile()
curl::curl_download(acuna$images.small, destfile = tmp)
donut <- readPNG(tmp)


ggplot(df, aes(Provider, Hits)) + geom_point() + annotation_raster(
  donut,
  xmin = dim(df)[1] - 1,
  xmax = dim(df)[1],
  ymin = max(df$Hits) - (.2 * max(df$Hits)),
  ymax = max(df$Hits),
  interpolate = T
)