Διαδραστικά διαγράμματα

A collection of my visualizations. Some of them are based on popular challenges such as #TidyTuesday and #30DayMapChallenge. The collection is not restricted to those, as I find from time to time interesting datasets to work with.

30 Day Chart Challenge

Πωλήσεις αλυσίδων σουπερμάρκετ

Στόλος οχημάτων

Κύπελλο Ποδοσφαίρου Ελλάδας

Εργαλεία Ανάλυσης Δεδομένων

Καθυστερημένη Αποφοίτηση και Κατανομή Βαθμών

[1] "subset.pdf"
graduate_data = statistics_tables[[5]] %>%
  setNames(c("Year", "4Y", "5Y", "6Y", "7Y", "8Y", "9Y", "10Y", "11Y+","AVGY")) %>%
  .[-c(1:2),] %>%
  drop_na() %>%
  dplyr::filter(Year != "2009-2022") %>%
  mutate(across(contains("Y") & !matches("^Year$"), as.numeric)) %>%
  mutate("4y" = `4Y`,
         "4to6" = `5Y` + `6Y`,
         "6to8" = `7Y` + `8Y`,
         "9plus" = `9Y` + `10Y` + `11Y+`) %>%
  select(Year, `4y`, `4to6`, `6to8`, `9plus`) %>%
  mutate(
    Year = stringr::str_replace(Year, ".*-", "")
  )
Warning: There was 1 warning in `mutate()`.
ℹ In argument: `across(contains("Y") & !matches("^Year$"), as.numeric)`.
Caused by warning:
! NAs introduced by coercion
colors <- c(
  "#E24A4A",
  "#FF9090",
  "#90C3FF",
  "#4A90E2"  
)
highchart() %>%
  hc_chart(type = "areaspline") %>%
  hc_title(text = "Κατανομή διάρκειας σπουδών μέχρι την αποφοίτηση") %>%
  hc_subtitle(text = "Οι περισσότεροι φοιτητές ξεπερνάνε τα ν+2 έτη για να λάβουν πτυχίο!") %>%
  hc_caption(text = "stesiam, 2023") %>%
  hc_xAxis(categories = graduate_data$Year,
           title = NULL) %>%
  hc_yAxis(title = list(text = "Percentage (%)")) %>%
  hc_tooltip(shared = TRUE) %>%
  hc_add_series(name = "9 έτη και πάνω", data = graduate_data$`9plus`) %>%
  hc_add_series(name = "7-8 έτη", data = graduate_data$`6to8`) %>%
  hc_add_series(name = "5-6 έτη", data = graduate_data$`4to6`) %>%
  hc_add_series(name = "4 έτη", data = graduate_data$`4y`) %>%
  hc_plotOptions(area = list(
    stacking = "percent",
    marker = list(enabled = FALSE)
  )) %>%
  hc_colors(colors)

Greece in Figures