# NOT RUN {
library(tidyr)
library(dplyr)
df <- create_test_data()
df_ci <- df %>%
filter(IndicatorName %in% c("Indicator 1", "Indicator 3")) %>%
select(IndicatorName, AreaCode, Value) %>%
pivot_wider(names_from = IndicatorName,
values_from = Value) %>%
rename(Ind1 = `Indicator 1`,
Ind3 = `Indicator 3`) %>%
mutate(Ind2 = runif(nrow(.), min = Ind1 * 0.5, max = Ind1 * 1.5))
p <- compare_indicators(df_ci,
x = Ind1,
y = Ind3,
xlab = "Indicator 1 label",
ylab = "Indicator 3 label",
highlight_area = c("C001", "AC172"),
area = AreaCode,
add_R2 = TRUE)
p
# }
Run the code above in your browser using DataLab