## summary for data availability statement (DAS) type and policy year
washdev_das_type_n <- washdev_das_type |>
count(das_policy, das_type)
fig_das_type <- washdev_das_type_n |>
ggplot(aes(x = reorder(das_type, n), y = n, fill = das_policy)) +
geom_col(position = position_dodge(), width = 0.6) +
geom_text(aes(label = n),
vjust = 0.5,
hjust = -0.5,
size = 3,
position = position_dodge(width = 0.5)
) +
coord_flip() +
annotate("text",
x = 3.77,
y = 150,
size = 3,
label = "after introducing policy\nfor data availability statement",
color = "gray20") +
geom_curve(aes(x = 3.95, y = 142, xend = 3.95, yend = 70),
curvature = 0.5,
arrow = arrow(type = "closed", length = unit(0.1, "inches")),
color = "gray20") +
labs(
title = "Data availability statement",
subtitle = "Analysis of 924 articles in Journal of Water, Sanitation & Hygiene for Development (2011 to 2023)",
fill = "published year",
y = "number of publications",
x = "data availability statement") +
scale_y_continuous(breaks = seq(0, 600, 100), limits = c(0,600)) +
scale_fill_colorblind()
# https://www.iwapublishing.com/news/iwa-publishing-2020-annual-review