wikipedia_pageviews: Wikipedia Daily Page Views

In certe-medical-epidemiology/certetoolbox: A Certe R Package for Miscellaneous Functions

Wikipedia Daily Page Views

Description

Download Wikipedia daily page views for any language, using the Wikimedia REST API.

Usage

wikipedia_pageviews(
  articles,
  date_range = last_6_months(),
  language = "nl",
  platform = c("all-access", "mobile-web", "mobile-app", "desktop"),
  agent = c("all-agents", "user", "spider", "automated")
)

Arguments

articles	Wikipedia article title(s)
date_range	defaults to last_6_months()
language	defaults to "nl" for the Dutch Wikipedia
platform	defaults to "all-access". More reliable for epidemic trends might be "mobile-web".
agent	defaults to "all-agents"

Details

Zie voor een voorbeeld: https://pageviews.wmcloud.org/?project=nl.wikipedia.org&platform=all-access&agent=all-agents&redirects=0&start=2024-06-01&end=2025-02-01&pages=Griep|Influenzavirus_A

Examples

wikipedia_pageviews("Griep")

articles <- c("Griep", "Koorts", "Hoest", "Verkoudheid", "Influenzavirus A",
              "Respiratoir syncytieel virus", "Keelpijn", "SARS-CoV-2")

if (require("certeplot2") && require("certestats") && require("dplyr")) {
  articles |>
    wikipedia_pageviews(c("2024-07-01", "2025-02-01")) |>
    group_by(article) |>
    mutate(z = z_score(views),
           z_ma = moving_average(z, w = 7, side = "left")) |>
    plot2(
      x = date,
      y = z_ma,
      category = article,
      type = "line",
      category.sort = "freq-asc",
      legend.position = "right",
      y.title = "7-daagse Z-score",
      x.title = "",
      title = "Wikipedia bezochte pagina's",
      subtitle = "Z-scores respiratoire seizoen")
}

if (require("certeplot2")) {
  wikipedia_pageviews("Dog",
                      language = "en",
                      date_range = last_5_years()) |>
    plot2(x = date, y = views)
}

certe-medical-epidemiology/certetoolbox documentation built on April 17, 2025, 3:24 a.m.