most_recent_measurement_of_interest_by_site.plotnine

# This plot assumes that most_recent_measurement_of_interest.sql has been run.

# meas_filter is a column of True and False
meas_filter = most_recent_measurement_of_interest_df['value_as_number'] < 9999999 # Get rid of nonsensical outliers.
(ggplot(most_recent_measurement_of_interest_df[meas_filter], aes(x = 'src_id', y = 'value_as_number')) +
    geom_boxplot() +
    stat_summary(fun_data = get_boxplot_fun_data, geom = 'text', size = 10,
                 position = position_dodge(width = 0.9), va = 'top') +
#    scale_y_log10() +  # Uncomment if the data looks skewed.
    coord_flip() +
    ylab(f'{UNIT_NAME}') +
    ggtitle(f'Most recent {MEASUREMENT_NAME} measurement\nper person, by site\nSource: All Of Us Data') +
    theme(figure_size=(12, 6)))