Show the code
library(packageRank)
library(ggplot2)
library(PrettyCols)
library(scales)
library(packageRank)
library(ggplot2)
library(PrettyCols)
library(scales)
<-
dat cranDownloads(
packages = c(
"OneSampleMR",
"ieugwasr",
"epigraphdb",
"tmsens",
"mrbayes",
"bpbounds",
"Statamarkdown",
"midoc"
),from = "2018",
to = Sys.Date() - 1,
fix.cranlogs = TRUE
)$cranlogs.data |>
datggplot() +
aes(x = date, y = cumulative, color = package) +
geom_line(linewidth = 0.75) +
scale_y_continuous(labels = label_comma()) +
scale_color_pretty_d(palette = "Autumn") +
ylab("Cumulative downloads") +
xlab("Date") +
labs(color = 'Package')
<-
dat2 cranDownloads(
packages = c(
"MendelianRandomization",
"ieugwasr"
),from = "2016-08-31",
to = Sys.Date() - 1,
fix.cranlogs = TRUE
)$cranlogs.data |>
dat2ggplot() +
aes(x = date, y = cumulative, color = package) +
geom_line(linewidth = 0.75) +
scale_y_continuous(labels = label_comma()) +
scale_color_pretty_d(palette = "Autumn") +
ylab("Cumulative downloads") +
xlab("Date") +
labs(color = 'Package')