Show the code
library(packageRank)
library(ggplot2)
library(PrettyCols)
library(scales)library(packageRank)
library(ggplot2)
library(PrettyCols)
library(scales)dat <-
cranDownloads(
package = c(
"OneSampleMR",
"ieugwasr",
"epigraphdb",
"tmsens",
"mrbayes",
"bpbounds",
"Statamarkdown",
"midoc",
"SEQTaRget"
),
from = "2018",
to = Sys.Date() - 1,
fix.cranlogs = TRUE
)Missing: 2025-08-25, 2025-08-26, 2025-08-29, 2025-08-30, 2025-08-31, 2025-09-01, 2025-09-02
dat$cranlogs.data |>
ggplot() +
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(
package = c(
"MendelianRandomization",
"ieugwasr"
),
from = "2016-08-31",
to = Sys.Date() - 1,
fix.cranlogs = TRUE
)Missing: 2025-08-25, 2025-08-26, 2025-08-29, 2025-08-30, 2025-08-31, 2025-09-01, 2025-09-02
dat2$cranlogs.data |>
ggplot() +
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')