Too Many Downloads

Those initial 1700 downloads for a minimally featured SwimmeR v0.0.1.0 seemed so excessive that I got suspicious and decided to do an experiment. Allow me to introduce to the world the ThreeWiseMonkeys package. The documentation says “[ThreeWiseMonkeys d]oes nothing useful…”, which is mostly, but not quite, true. The reality is that ThreeWiseMonkeys is intended to do nothing useful for its users - the people who download it. I wrote ThreeWiseMonkeys in April 2020, released it to CRAN and told no one. What ThreeWiseMonkeys has been doing since then is steadily accruing downloads at a rate I’m prepared to call baseline. That’s what ThreeWiseMonkeys does - it marks out the CRAN downloads floor for me, the (supposedly) only person who knew or cared about it. It has about 2000 downloads as of this writing. Take a look versus SwimmeR:

df %>%
  filter(package != "dplyr") %>% 
  ggplot(aes(
    x = end,
    y = total_downloads,
    group = package,
    color = package
  )) +
  geom_line() +
  geom_point(aes(shape = package)) +
  theme_bw() +
  labs(y = "Total Downloads",
       x = "Date",
       color = "Package",
       shape = "Package")

Now if we line up SwimmeR and ThreeWiseMonkeys by the number of says since their releases we can see something interesting:

df %>%
    filter(package != "dplyr") %>% 
  ggplot(aes(
    x = days,
    y = total_downloads,
    group = package,
    color = package
  )) +
  geom_line() +
  geom_point(aes(shape = package)) +
  theme_bw() +
  labs(y = "Total Downloads",
       x = "Days Since Release",
       color = "Package",
       shape = "Package")

SwimmeR Gets Some PR

What happened around April of 2020, 200 days after SwimmeR was released? SwimmeR and ThreeWiseMonkeys had pretty much identical download rates until then, but all of a sudden SwimmeR started trending upward much faster. Well, COVID happened, and maybe folks took to R rather than socializing. That’s possible but I’m going to set it aside for the moment, because it doesn’t explain why SwimmeR jumped but ThreeWiseMonkeys didn’t. As far as SwimmeR specific changes in that time range SwimmeR v0.2.0 was released on April 10th, with many more features, effectively beginning its life as a useful package. Still further, the Swimming + Data Science blog launched and debuted on R-bloggers, introducing the world to SwimmeR more directly. Let’s take a look at the difference in downloads, with the post April 2020 SwimmeR package renamed as "SwimmeR + Blog".

df <- df %>%
  filter(package != "dplyr") %>% # don't need dplyr stats any more
  mutate(package = case_when(
    package == "SwimmeR" &
      start > as.Date("2020-04-01") ~ "SwimmeR + Blog", # rename package for month of April
    TRUE ~ package
  ))

ggplot(data = df, aes(group = package, color = package)) +
  geom_point(aes(
    x = days,
    y = total_downloads
  )) +
  geom_smooth( # fit lines for SwimmeR and ThreeWiseMonkeys (want full range)
    data = df %>%
      filter(package != "SwimmeR + Blog"),
    aes(x = days,
    y = total_downloads,
    group = package),
    method = "lm",
    fullrange = TRUE,
    se = FALSE
  ) +
    geom_smooth( # fit line for SwimmeR + Blog (don't want full range on this one)
    data = df %>%
      filter(package == "SwimmeR + Blog"),
    aes(x = days,
    y = total_downloads,
    group = package),
    method = "lm",
    fullrange = FALSE,
    se = FALSE
  ) +
  labs(y = "Total Downloads",
       x = "Days Since Release",
       color = "Package") +
  theme_bw()

What this means is that of the 6500 downloads SwimmeR has as of October 28th, 2020, about 4000 can be provisionally attributed to whatever this CRAN baseline is. The other ~2500 are more likely to be the result of actual people who share my interests in swimming and R - thank you friends, I hope SwimmeR is helping you! Now lets get the slope (total downloads per day) for each package and compare download rates for SwimmeR before and after the launch of the Swimming + Data Science blog and v0.2.0.

df %>% 
  group_split() %>% # breaks into separate dataframes for each group (package)
  map(~lm(total_downloads ~ days, data = .x)) %>% # apply lm function to each dataframe
  map_df(broom::tidy) %>% # clean up results by converting back to single dataframe - broom heh heh
  filter(term == "days") %>% # only want the slope term
  mutate(package = unique(df$package)) %>% # add package names back in
  select(package, "download rate" = estimate) %>% 
  mutate(`download rate` = round(`download rate`, 2)) %>% 
  arrange(desc(`download rate`)) %>% 
  flextable_style()

The download rate for SwimmeR more than doubled (as of October 28th, 2020) after I started writing these articles and building out the package features - exactly what I was looking for! What’s the deal with ThreeWiseMonkeys and its 2000 downloads though?

The Remaining Mystery

The dlstats package I used to collect download information queries the RStudio CRAN mirror. RStudio’s mirror is the default for RStudio users when they download packages, but if anything the numbers from dlstats are an undercount for total package downloads. There are other mirrors, and other development environments for R and people can download packages using them rather than RStudio. That still leaves some questions.

1. Who are these 2000+ people who downloaded ThreeWiseMonkeys and are they the same as the 1700+ people who downloaded SwimmeR v0.0.1.0?
2. How did they even know ThreeWiseMonkeys existed? I know that CRAN lists it and all, but how would people know to look?
3. Why did they download ThreeWiseMonkeys even having found it? It’s useless!

It seems possible that there’s some kind of maintenance/testing/checks that go on in the background at CRAN, but I’m not aware of anything that would require the same (useless) package to be re-downloaded 10 times a day, every day, for 6 months. If you have any insight into what’s going on leave a comment or send me an email. I’m interested to know… Also don’t go and download ThreeWiseMonkeys - that’s not what it’s about. It’s useless - trust me.