Code
library(tidyverse) # ggplot, lubridate, dplyr, stringr, readr...
library(praise)library(tidyverse) # ggplot, lubridate, dplyr, stringr, readr...
library(praise)This week we’re exploring Irish STEM research and ancillary projects funded by Science Foundation Ireland (SFI) since its foundation in 2000 to its dissolution on 31st July 2024. The data comes from Ireland’s Open Data Portal
SFI was the national foundation in Ireland for investment in scientific and engineering research. Consequently, SFI invested in those academic researchers and research teams who were most likely to generate new knowledge, leading edge technologies and competitive enterprises in the fields of science, technology, engineering and maths (STEM).
sfi_grants <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/main/data/2026/2026-02-24/sfi_grants.csv') |>
mutate(AI = str_detect(str_to_lower(proposal_title),
"\\bai\\b|\\ba[.]i[.]\\b|\\bartificial\\s+intelligence\\b|(neural net)|(machine learn)|(deep learn)")) |>
mutate(year = year(start_date)) |>
drop_na(proposal_title) |>
filter(year <= 2024)ai_data <- sfi_grants |>
filter(AI)sfi_grants |>
mutate(AI = ifelse(AI, "AI grant", "non-AI grant")) |>
group_by(AI, year) |>
summarize(count = n(), average = mean(current_total_commitment)) |>
mutate(count_total = sum(count), prop_total = count / count_total) |>
ggplot(aes(x = year, y = prop_total, color = AI)) +
geom_line() +
geom_point(aes(size = average)) +
theme_minimal() +
labs(x = "",
y = "",
title = "Proportion of grants given",
color = "type of grant",
size = "average grant\n(in Euros)") +
scale_color_manual(values = c("AI grant" = "#648FFF", "non-AI grant" = "#FE6100"))praise()[1] "You are unreal!"