# NOT RUN {
library(dplyr)
df <- create_test_data()
parent <- "PAC14"
top_names <- c("C001", parent)
df_over <- df %>%
filter((AreaCode %in% top_names |
ParentAreaCode == parent)) %>%
mutate(Value = round(Value, 1))
p <- overview(df_over,
area = AreaCode,
indicator = IndicatorName,
value = Value,
timeperiod = Timeperiod,
fill = Significance,
top_areas = top_names,
wrap_length = 40,
value_label_size = 0.8)
p
# }
Run the code above in your browser using DataLab