Quickstart: Exploratory Analysis & Model Fitting
In this quickstart, the basic
functionality of the MAPCtools is demonstrated with the
help of synthetically generated age-period data frame, called
toydata. The data frame comes attached with the package,
and can be loaded with data("toy_data").
The data frame has variables age, period,
cohort (derived from cohort = period - age), education
(factor with levels 1, 2 and 3),
sex (factor with levels female and male), and
count, and non-negative integer valued variable.
The variable count in toy_data is a random
sample drawn from a Poisson distribion with known rates for each age,
period, cohort, eduacation level and sex. This will be used as the
response variable.
Additionally, there is a variable known_rate, holding
the known rate of the Poisson process from which each sample was
drawn.
This quickstart is split into two main components: 1. Exploratory analysis 2. Fitting MAPC models and model-based inference
1 Exploratory analysis
1.0 Load the toy dataset
First, load the package and the synthetic dataset shipped in /data:
1.1 Examine Missing Data
Plot which combinations of age and period
are present or missing: You can add options to executable code like
this
plot_missing_data(toy_data, x = period, y = age)
#> No missing data found for the specified variables.
#> NULLStratify by education:
Separate plots for each sex:
plot_missing_data(
data = toy_data,
x = period,
y = age,
stratify_by = education,
for_each = sex
)
#> $female
#>
#> $male
Note that, for both sexes, there are strata where the oldest cohort (represented by the tile at the top left) is unobserved (education level 3 for females and 2 for males). This means that, if education is to be used as stratification variable in the MAPC model and we estimate separate models for each sex, we must trim the data to exclude this cohort. Additionally, the youngest cohort is unobserved in education level 1 and 3, so this cohort must also be removed from the male subset before model fitting.
1.2 Examine observation counts
A handful of functions are offered for examining how the samples sizes vary along the temporal axis and across the levels of the stratification variables.
Remainder that “observation counts” must be distinguished from the
response variable count.
1D counts of age, stratified by
education, split by sex:
#>
#> $male
2D counts across age and
period, same stratification:
#>
#> $male
Binned counts of age into 5 bins, by
period:
plot_binned_counts(
toy_data,
x = period,
bin_by = age,
n_bins = 4,
stratify_by = education,
for_each = sex
)
#> $female
#>
#> $male
2 Model fitting
2.0 Examine known rates
Before we fit the models, we examine the known rates, and how they differ across education levels, for each sex. This tells us what to expect from the MAPC models to be fit.
require(ggplot2)
#> Loading required package: ggplot2
# Over age
ggplot(toy_data, aes(x = age, y = known_rate, color = education)) +
stat_summary(fun=mean, geom="line") +
facet_wrap(~ sex, ncol = 2) +
labs(
title = "Poisson rates by age and education level",
x = "Age",
y = "Rate",
color = "Education"
) +
scale_color_viridis_d() +
theme_minimal() +
theme(plot.title = element_text(hjust=0.5),
legend.position = "bottom")
# Over period
ggplot(toy_data, aes(x = period, y = known_rate, color = education)) +
stat_summary(fun=mean, geom="line") +
facet_wrap(~ sex, ncol = 2) +
labs(
title = "Poisson rates by period and education level",
x = "Period",
y = "Rate",
color = "Education"
) +
scale_color_viridis_d() +
theme_minimal() +
theme(plot.title = element_text(hjust=0.5),
legend.position = "bottom")
# Over cohort
ggplot(toy_data, aes(x = cohort, y = known_rate, color = education)) +
stat_summary(fun=mean, geom="line") +
facet_wrap(~ sex, ncol = 2) +
labs(
title = "Poisson rates by cohort and education level",
x = "Cohort",
y = "Rate",
color = "Education"
) +
scale_color_viridis_d() +
theme_minimal() +
theme(plot.title = element_text(hjust=0.5),
legend.position = "bottom")
As we see, there is a clear trend along the age axis: disparities between education levels increase between ages 20 and 40, and then they decrease between ages 40 and 60.
Along the period axis, disparities are quite similar across the range.
Along the cohort axis, disparities are larger for for the middle cohorts, and less pronounced for the extreme (old and young) cohorts.
Let’s see if the MAPC models are able to estime time effects that match these trends.
2.1 Fit a single MAPC model with fit_MAPC()
Split the data by sex, and remove unobserved cohorts (see end of section 1.1):
require(dplyr)
#> Loading required package: dplyr
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
toy_data.f <- toy_data %>% filter(sex == "female") %>% subset(cohort > 1931)
toy_data.m <- toy_data %>% filter(sex == "male") %>% subset(cohort > 1931 & cohort < 1999)We try an apC model, assuming the cohort effects as similar across strata while age and period effects are specific to each strata:
apC_fit.f <- fit_MAPC(
data = toy_data.f,
response = count,
family = "poisson",
apc_format = "apC",
stratify_by = education,
reference_strata = 1,
age = age,
period = period
)
apC_fit.m <- fit_MAPC(
data = toy_data.m,
response = count,
family = "poisson",
apc_format = "apC",
stratify_by = education,
reference_strata = 1,
age = age,
period = period
)Since the chunk above requires INLA, it is not
evaluated. Instead, we download a precomputed fit:
apC_fit.f <- readRDS(system.file("extdata", "quickstart-apC_fit_f.rds", package = "MAPCtools"))
apC_fit.m <- readRDS(system.file("extdata", "quickstart-apC_fit_m.rds", package = "MAPCtools"))The returned objects are of class mapc, which has three
defined S3 methods:
print(apC_fit.f) # Concise summary the model that was fit
#> MAPC model fit
#> Model: apC
#> Total CPU time used: 0.35 s | Elapsed time: 9.63 s
#>
#> - Number of fixed effects estimated: 3
#> - Number of random effects estimated: 7
#> - Number of hyperparameters estimated: 7
#> - Number of linear combinations estimated: 140
#> - DIC score: 26369.76
#> - WAIC score: 26372.52
#> - Log-score: 2.65158
#>
#> Try summary() for posterior summaries, or plot() for visual results.
# print(apC_fit.f)plot(apC_fit.f) # Plots estimated cross-strata contrast trends
#> $data
#> median_differences hpd_lower hpd_upper Strata x
#> 1 1.735218 1.606630 1.875062 2 20
#> 2 2.902574 2.701931 3.119293 3 20
#> 3 1.732502 1.619995 1.853483 2 21
#> 4 2.994562 2.809858 3.195323 3 21
#> 5 1.725500 1.619377 1.837531 2 22
#> 6 3.002605 2.816595 3.202293 3 22
#> 7 1.733284 1.627188 1.844158 2 23
#> 8 3.025488 2.841698 3.220901 3 23
#> 9 1.752863 1.643628 1.866349 2 24
#> 10 3.164222 2.969225 3.376566 3 24
#> 11 1.790275 1.680052 1.906472 2 25
#> 12 3.203817 3.021618 3.399156 3 25
#> 13 1.824636 1.713949 1.941559 2 26
#> 14 3.240251 3.045625 3.445081 3 26
#> 15 1.860244 1.748843 1.977525 2 27
#> 16 3.431795 3.242506 3.635264 3 27
#> 17 1.915292 1.803466 2.036097 2 28
#> 18 3.556585 3.366159 3.760370 3 28
#> 19 1.945708 1.832798 2.065203 2 29
#> 20 3.709722 3.508932 3.927165 3 29
#> 21 1.988123 1.874715 2.108025 2 30
#> 22 3.708220 3.490288 3.939535 3 30
#> 23 2.058708 1.943498 2.186608 2 31
#> 24 3.768856 3.576107 3.972071 3 31
#> 25 2.109327 1.992582 2.242383 2 32
#> 26 3.881385 3.671722 4.103129 3 32
#> 27 2.109074 1.998684 2.229163 2 33
#> 28 3.937403 3.721659 4.160730 3 33
#> 29 2.094735 1.979523 2.216119 2 34
#> 30 4.222064 4.003330 4.456881 3 34
#> 31 2.088474 1.971915 2.208323 2 35
#> 32 4.261932 4.042146 4.492371 3 35
#> 33 2.100806 1.984337 2.220556 2 36
#> 34 4.319858 4.093926 4.552686 3 36
#> 35 2.102692 1.978263 2.226089 2 37
#> 36 4.539699 4.309424 4.779950 3 37
#> 37 2.187924 2.065471 2.323231 2 38
#> 38 4.788474 4.541573 5.051376 3 38
#> 39 2.235001 2.111038 2.376987 2 39
#> 40 4.879510 4.645412 5.124736 3 39
#> 41 2.213879 2.094593 2.345164 2 40
#> 42 4.855349 4.621275 5.098130 3 40
#> 43 2.174694 2.055656 2.302658 2 41
#> 44 4.794782 4.557539 5.041890 3 41
#> 45 2.107311 1.988048 2.226169 2 42
#> 46 4.697242 4.465540 4.941367 3 42
#> 47 2.123755 2.007264 2.246601 2 43
#> 48 4.462954 4.230733 4.702389 3 43
#> 49 2.149977 2.032023 2.283506 2 44
#> 50 4.440191 4.219299 4.672956 3 44
#> 51 2.126870 2.011799 2.258075 2 45
#> 52 4.320613 4.095697 4.560601 3 45
#> 53 2.006926 1.893681 2.122828 2 46
#> 54 4.152829 3.937028 4.383462 3 46
#> 55 1.971394 1.859773 2.087969 2 47
#> 56 3.899199 3.683219 4.123539 3 47
#> 57 1.925078 1.811687 2.041677 2 48
#> 58 3.850168 3.651813 4.060956 3 48
#> 59 1.907124 1.798103 2.021601 2 49
#> 60 3.820085 3.609922 4.046169 3 49
#> 61 1.894282 1.785160 2.011395 2 50
#> 62 3.687587 3.478508 3.910392 3 50
#> 63 1.852853 1.741891 1.968185 2 51
#> 64 3.510950 3.299526 3.730966 3 51
#> 65 1.833977 1.726145 1.946748 2 52
#> 66 3.496417 3.292896 3.713569 3 52
#> 67 1.821513 1.713164 1.936475 2 53
#> 68 3.347181 3.155183 3.547052 3 53
#> 69 1.799057 1.693311 1.910515 2 54
#> 70 3.354766 3.160044 3.563077 3 54
#> 71 1.780445 1.674994 1.891811 2 55
#> 72 3.206844 3.019187 3.403283 3 55
#> 73 1.749986 1.641987 1.861932 2 56
#> 74 3.126056 2.932243 3.329363 3 56
#> 75 1.734881 1.626910 1.847435 2 57
#> 76 3.089639 2.907997 3.282016 3 57
#> 77 1.717009 1.602955 1.835570 2 58
#> 78 2.988452 2.803436 3.183945 3 58
#> 79 1.711834 1.583938 1.846210 2 59
#> 80 2.812740 2.608713 3.024521 3 59
#>
#> $layers
#> $layers[[1]]
#> geom_line: na.rm = FALSE, orientation = NA
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[2]]
#> mapping: ymin = ~hpd_lower, ymax = ~hpd_upper
#> geom_ribbon: na.rm = FALSE, orientation = NA, outline.type = both
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#>
#> $scales
#> <ggproto object: Class ScalesList, gg>
#> add: function
#> add_defaults: function
#> add_missing: function
#> backtransform_df: function
#> clone: function
#> find: function
#> get_scales: function
#> has_scale: function
#> input: function
#> map_df: function
#> n: function
#> non_position_scales: function
#> scales: list
#> set_palettes: function
#> train_df: function
#> transform_df: function
#> super: <ggproto object: Class ScalesList, gg>
#>
#> $guides
#> <Guides[2] ggproto object>
#>
#> colour : <GuideLegend>
#> fill : <GuideLegend>
#>
#> $mapping
#> $x
#> <quosure>
#> expr: ^x
#> env: 0x562e24536a78
#>
#> $y
#> <quosure>
#> expr: ^median_differences
#> env: 0x562e24536a78
#>
#> $colour
#> <quosure>
#> expr: ^Strata
#> env: 0x562e24536a78
#>
#> $fill
#> <quosure>
#> expr: ^Strata
#> env: 0x562e24536a78
#>
#> $group
#> <quosure>
#> expr: ^Strata
#> env: 0x562e24536a78
#>
#> attr(,"class")
#> [1] "uneval"
#>
#> $theme
#> $theme$axis.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 12
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$axis.text.x
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 10
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$axis.text.y
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 10
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$legend.text
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 11
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$legend.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 13
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$legend.position
#> [1] "bottom"
#>
#> $theme$legend.box
#> [1] "vertical"
#>
#> $theme$plot.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 15
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> attr(,"complete")
#> [1] FALSE
#> attr(,"validate")
#> [1] TRUE
#>
#> $coordinates
#> <ggproto object: Class CoordCartesian, Coord, gg>
#> aspect: function
#> backtransform_range: function
#> clip: on
#> default: TRUE
#> distance: function
#> draw_panel: function
#> expand: TRUE
#> is_free: function
#> is_linear: function
#> labels: function
#> limits: list
#> modify_scales: function
#> range: function
#> render_axis_h: function
#> render_axis_v: function
#> render_bg: function
#> render_fg: function
#> reverse: none
#> setup_data: function
#> setup_layout: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> setup_params: function
#> train_panel_guides: function
#> transform: function
#> super: <ggproto object: Class CoordCartesian, Coord, gg>
#>
#> $facet
#> <ggproto object: Class FacetNull, Facet, gg>
#> attach_axes: function
#> attach_strips: function
#> compute_layout: function
#> draw_back: function
#> draw_front: function
#> draw_labels: function
#> draw_panel_content: function
#> draw_panels: function
#> finish_data: function
#> format_strip_labels: function
#> init_gtable: function
#> init_scales: function
#> map_data: function
#> params: list
#> set_panel_size: function
#> setup_data: function
#> setup_panel_params: function
#> setup_params: function
#> shrink: TRUE
#> train_scales: function
#> vars: function
#> super: <ggproto object: Class FacetNull, Facet, gg>
#>
#> $plot_env
#> <environment: 0x562e24536a78>
#>
#> $layout
#> <ggproto object: Class Layout, gg>
#> coord: NULL
#> coord_params: list
#> facet: NULL
#> facet_params: list
#> finish_data: function
#> get_scales: function
#> layout: NULL
#> map_position: function
#> panel_params: NULL
#> panel_scales_x: NULL
#> panel_scales_y: NULL
#> render: function
#> render_labels: function
#> reset_scales: function
#> resolve_label: function
#> setup: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> train_position: function
#> super: <ggproto object: Class Layout, gg>
#>
#> $labels
#> $labels$x
#> [1] "Age"
#>
#> $labels$y
#> [1] "Mean ratio"
#>
#> $labels$colour
#> [1] "education (1 is reference): "
#>
#> $labels$fill
#> [1] "education (1 is reference): "
#>
#> $labels$title
#> [1] "Differences in age effects"
#>
#> $labels$group
#> [1] "Strata"
#>
#> $labels$ymin
#> [1] "hpd_lower"
#>
#> $labels$ymax
#> [1] "hpd_upper"
#>
#>
#> attr(,"class")
#> [1] "gg" "ggplot"
#> $data
#> median_differences hpd_lower hpd_upper Strata x
#> 1 1.996843 1.833248 2.176933 2 1990
#> 2 3.882197 3.582151 4.209306 3 1990
#> 3 1.923526 1.784301 2.070397 2 1991
#> 4 3.671513 3.422026 3.930647 3 1991
#> 5 1.941152 1.799197 2.097040 2 1992
#> 6 3.717026 3.465526 3.990658 3 1992
#> 7 1.882516 1.747864 2.024319 2 1993
#> 8 3.651663 3.415665 3.900101 3 1993
#> 9 1.906713 1.774228 2.050427 2 1994
#> 10 3.700103 3.459498 3.959046 3 1994
#> 11 1.863760 1.730756 2.003993 2 1995
#> 12 3.623012 3.381337 3.875147 3 1995
#> 13 1.857101 1.722471 1.999345 2 1996
#> 14 3.617211 3.369303 3.877402 3 1996
#> 15 1.842759 1.704639 1.988319 2 1997
#> 16 3.635669 3.387606 3.900094 3 1997
#> 17 1.895373 1.758439 2.040972 2 1998
#> 18 3.705750 3.454483 3.969085 3 1998
#> 19 1.924451 1.785806 2.073548 2 1999
#> 20 3.768578 3.521276 4.032739 3 1999
#> 21 1.951766 1.811386 2.102593 2 2000
#> 22 3.738269 3.484340 4.008125 3 2000
#> 23 1.973999 1.829554 2.129501 2 2001
#> 24 3.743642 3.490635 4.013352 3 2001
#> 25 2.013443 1.866711 2.174799 2 2002
#> 26 3.744014 3.480250 4.029607 3 2002
#> 27 2.079465 1.928190 2.254094 2 2003
#> 28 3.932257 3.661479 4.245600 3 2003
#> 29 2.034580 1.888245 2.196242 2 2004
#> 30 3.834247 3.576830 4.117126 3 2004
#> 31 2.002033 1.852474 2.167213 2 2005
#> 32 3.836337 3.569513 4.132901 3 2005
#> 33 1.950653 1.799377 2.110072 2 2006
#> 34 3.799213 3.534180 4.078972 3 2006
#> 35 1.978079 1.830219 2.139609 2 2007
#> 36 3.722309 3.465401 3.999064 3 2007
#> 37 1.911408 1.759755 2.069372 2 2008
#> 38 3.635779 3.369089 3.915867 3 2008
#> 39 1.974092 1.829155 2.131208 2 2009
#> 40 3.635175 3.382430 3.903304 3 2009
#> 41 1.955277 1.806918 2.114919 2 2010
#> 42 3.646459 3.384311 3.925283 3 2010
#> 43 1.940272 1.789762 2.100631 2 2011
#> 44 3.621596 3.353846 3.902130 3 2011
#> 45 1.939599 1.787120 2.104020 2 2012
#> 46 3.628485 3.360517 3.911267 3 2012
#> 47 1.937794 1.786200 2.104680 2 2013
#> 48 3.723893 3.453024 4.020256 3 2013
#> 49 1.907497 1.752864 2.078617 2 2014
#> 50 3.854939 3.574025 4.176347 3 2014
#> 51 1.905195 1.748425 2.079520 2 2015
#> 52 3.806946 3.526760 4.126430 3 2015
#> 53 1.898465 1.741083 2.071161 2 2016
#> 54 3.782590 3.500621 4.096982 3 2016
#> 55 1.899691 1.745589 2.068452 2 2017
#> 56 3.667102 3.391298 3.968139 3 2017
#> 57 1.884696 1.725507 2.059577 2 2018
#> 58 3.573419 3.291126 3.884647 3 2018
#> 59 1.904469 1.722271 2.108320 2 2019
#> 60 3.501482 3.188321 3.848145 3 2019
#>
#> $layers
#> $layers[[1]]
#> geom_line: na.rm = FALSE, orientation = NA
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[2]]
#> mapping: ymin = ~hpd_lower, ymax = ~hpd_upper
#> geom_ribbon: na.rm = FALSE, orientation = NA, outline.type = both
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#>
#> $scales
#> <ggproto object: Class ScalesList, gg>
#> add: function
#> add_defaults: function
#> add_missing: function
#> backtransform_df: function
#> clone: function
#> find: function
#> get_scales: function
#> has_scale: function
#> input: function
#> map_df: function
#> n: function
#> non_position_scales: function
#> scales: list
#> set_palettes: function
#> train_df: function
#> transform_df: function
#> super: <ggproto object: Class ScalesList, gg>
#>
#> $guides
#> <Guides[2] ggproto object>
#>
#> colour : <GuideLegend>
#> fill : <GuideLegend>
#>
#> $mapping
#> $x
#> <quosure>
#> expr: ^x
#> env: 0x562e2313f548
#>
#> $y
#> <quosure>
#> expr: ^median_differences
#> env: 0x562e2313f548
#>
#> $colour
#> <quosure>
#> expr: ^Strata
#> env: 0x562e2313f548
#>
#> $fill
#> <quosure>
#> expr: ^Strata
#> env: 0x562e2313f548
#>
#> $group
#> <quosure>
#> expr: ^Strata
#> env: 0x562e2313f548
#>
#> attr(,"class")
#> [1] "uneval"
#>
#> $theme
#> $theme$axis.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 12
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$axis.text.x
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 10
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$axis.text.y
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 10
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$legend.text
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 11
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$legend.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 13
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$legend.position
#> [1] "bottom"
#>
#> $theme$legend.box
#> [1] "vertical"
#>
#> $theme$plot.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 15
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> attr(,"complete")
#> [1] FALSE
#> attr(,"validate")
#> [1] TRUE
#>
#> $coordinates
#> <ggproto object: Class CoordCartesian, Coord, gg>
#> aspect: function
#> backtransform_range: function
#> clip: on
#> default: TRUE
#> distance: function
#> draw_panel: function
#> expand: TRUE
#> is_free: function
#> is_linear: function
#> labels: function
#> limits: list
#> modify_scales: function
#> range: function
#> render_axis_h: function
#> render_axis_v: function
#> render_bg: function
#> render_fg: function
#> reverse: none
#> setup_data: function
#> setup_layout: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> setup_params: function
#> train_panel_guides: function
#> transform: function
#> super: <ggproto object: Class CoordCartesian, Coord, gg>
#>
#> $facet
#> <ggproto object: Class FacetNull, Facet, gg>
#> attach_axes: function
#> attach_strips: function
#> compute_layout: function
#> draw_back: function
#> draw_front: function
#> draw_labels: function
#> draw_panel_content: function
#> draw_panels: function
#> finish_data: function
#> format_strip_labels: function
#> init_gtable: function
#> init_scales: function
#> map_data: function
#> params: list
#> set_panel_size: function
#> setup_data: function
#> setup_panel_params: function
#> setup_params: function
#> shrink: TRUE
#> train_scales: function
#> vars: function
#> super: <ggproto object: Class FacetNull, Facet, gg>
#>
#> $plot_env
#> <environment: 0x562e2313f548>
#>
#> $layout
#> <ggproto object: Class Layout, gg>
#> coord: NULL
#> coord_params: list
#> facet: NULL
#> facet_params: list
#> finish_data: function
#> get_scales: function
#> layout: NULL
#> map_position: function
#> panel_params: NULL
#> panel_scales_x: NULL
#> panel_scales_y: NULL
#> render: function
#> render_labels: function
#> reset_scales: function
#> resolve_label: function
#> setup: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> train_position: function
#> super: <ggproto object: Class Layout, gg>
#>
#> $labels
#> $labels$x
#> [1] "Period"
#>
#> $labels$y
#> [1] "Mean ratio"
#>
#> $labels$colour
#> [1] "education (1 is reference): "
#>
#> $labels$fill
#> [1] "education (1 is reference): "
#>
#> $labels$title
#> [1] "Differences in period effects"
#>
#> $labels$group
#> [1] "Strata"
#>
#> $labels$ymin
#> [1] "hpd_lower"
#>
#> $labels$ymax
#> [1] "hpd_upper"
#>
#>
#> attr(,"class")
#> [1] "gg" "ggplot"plot(apC_fit.m) # Plots estimated cross-strata contrast trends
#> $data
#> median_differences hpd_lower hpd_upper Strata x
#> 1 1.769875 1.626868 1.924944 2 20
#> 2 2.849724 2.616858 3.102807 3 20
#> 3 1.767431 1.637958 1.906230 2 21
#> 4 2.888001 2.686706 3.105903 3 21
#> 5 1.749197 1.618031 1.880774 2 22
#> 6 2.961382 2.746875 3.190130 3 22
#> 7 1.794563 1.674253 1.926564 2 23
#> 8 3.185114 2.963035 3.435463 3 23
#> 9 1.820188 1.702153 1.955617 2 24
#> 10 3.259627 3.048693 3.493283 3 24
#> 11 1.826264 1.708799 1.961725 2 25
#> 12 3.219458 2.998941 3.452783 3 25
#> 13 1.792983 1.675463 1.913690 2 26
#> 14 3.323131 3.093097 3.568683 3 26
#> 15 1.781863 1.655751 1.904029 2 27
#> 16 3.456204 3.235465 3.694310 3 27
#> 17 1.798781 1.676187 1.920213 2 28
#> 18 3.486723 3.258067 3.726802 3 28
#> 19 1.805827 1.681364 1.925954 2 29
#> 20 3.664915 3.429024 3.920505 3 29
#> 21 1.837880 1.717499 1.957269 2 30
#> 22 3.689007 3.435373 3.958311 3 30
#> 23 1.883153 1.765981 2.005598 2 31
#> 24 3.755311 3.516154 4.006756 3 31
#> 25 1.916057 1.798192 2.040461 2 32
#> 26 3.847210 3.577825 4.129403 3 32
#> 27 1.952120 1.828182 2.086173 2 33
#> 28 4.008481 3.757275 4.273601 3 33
#> 29 1.977279 1.849979 2.112695 2 34
#> 30 4.220448 3.963905 4.497771 3 34
#> 31 2.011527 1.888823 2.143096 2 35
#> 32 4.236640 3.982546 4.503654 3 35
#> 33 2.069790 1.944764 2.216462 2 36
#> 34 4.299208 4.035264 4.574515 3 36
#> 35 2.069298 1.946719 2.203287 2 37
#> 36 4.420944 4.146230 4.707485 3 37
#> 37 2.084889 1.961044 2.220160 2 38
#> 38 4.638198 4.356355 4.940148 3 38
#> 39 2.109376 1.983718 2.251384 2 39
#> 40 4.750423 4.464010 5.058110 3 39
#> 41 2.115152 1.991400 2.252957 2 40
#> 42 4.804601 4.530840 5.097654 3 40
#> 43 2.126557 2.001145 2.269519 2 41
#> 44 4.771427 4.496760 5.067462 3 41
#> 45 2.152727 2.020016 2.316382 2 42
#> 46 4.569946 4.300575 4.854665 3 42
#> 47 2.099738 1.973886 2.244796 2 43
#> 48 4.440207 4.167607 4.727008 3 43
#> 49 2.056284 1.931911 2.194703 2 44
#> 50 4.468574 4.194579 4.770289 3 44
#> 51 1.999480 1.872155 2.130153 2 45
#> 52 4.270639 4.018562 4.543682 3 45
#> 53 1.972230 1.849642 2.098821 2 46
#> 54 4.001062 3.752072 4.264575 3 46
#> 55 1.970051 1.851986 2.100957 2 47
#> 56 3.873982 3.615967 4.151903 3 47
#> 57 1.939071 1.822601 2.065997 2 48
#> 58 3.700984 3.475512 3.939706 3 48
#> 59 1.920413 1.802086 2.053908 2 49
#> 60 3.623448 3.392514 3.868527 3 49
#> 61 1.859276 1.737549 1.982635 2 50
#> 62 3.637677 3.396243 3.903857 3 50
#> 63 1.832157 1.710222 1.955222 2 51
#> 64 3.513027 3.277919 3.767841 3 51
#> 65 1.819966 1.701049 1.943629 2 52
#> 66 3.417145 3.189334 3.664525 3 52
#> 67 1.809539 1.691079 1.936200 2 53
#> 68 3.245001 3.016253 3.484432 3 53
#> 69 1.783634 1.666721 1.905266 2 54
#> 70 3.280421 3.057332 3.528884 3 54
#> 71 1.772546 1.659631 1.892078 2 55
#> 72 3.040207 2.840119 3.248039 3 55
#> 73 1.743090 1.624508 1.864336 2 56
#> 74 3.039910 2.832431 3.264880 3 56
#> 75 1.723599 1.606778 1.842709 2 57
#> 76 2.904102 2.697615 3.123251 3 57
#> 77 1.710191 1.587684 1.835588 2 58
#> 78 2.788265 2.587756 2.999018 3 58
#> 79 1.693238 1.553193 1.834219 2 59
#> 80 2.693704 2.465717 2.933691 3 59
#>
#> $layers
#> $layers[[1]]
#> geom_line: na.rm = FALSE, orientation = NA
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[2]]
#> mapping: ymin = ~hpd_lower, ymax = ~hpd_upper
#> geom_ribbon: na.rm = FALSE, orientation = NA, outline.type = both
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#>
#> $scales
#> <ggproto object: Class ScalesList, gg>
#> add: function
#> add_defaults: function
#> add_missing: function
#> backtransform_df: function
#> clone: function
#> find: function
#> get_scales: function
#> has_scale: function
#> input: function
#> map_df: function
#> n: function
#> non_position_scales: function
#> scales: list
#> set_palettes: function
#> train_df: function
#> transform_df: function
#> super: <ggproto object: Class ScalesList, gg>
#>
#> $guides
#> <Guides[2] ggproto object>
#>
#> colour : <GuideLegend>
#> fill : <GuideLegend>
#>
#> $mapping
#> $x
#> <quosure>
#> expr: ^x
#> env: 0x562e226e9818
#>
#> $y
#> <quosure>
#> expr: ^median_differences
#> env: 0x562e226e9818
#>
#> $colour
#> <quosure>
#> expr: ^Strata
#> env: 0x562e226e9818
#>
#> $fill
#> <quosure>
#> expr: ^Strata
#> env: 0x562e226e9818
#>
#> $group
#> <quosure>
#> expr: ^Strata
#> env: 0x562e226e9818
#>
#> attr(,"class")
#> [1] "uneval"
#>
#> $theme
#> $theme$axis.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 12
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$axis.text.x
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 10
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$axis.text.y
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 10
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$legend.text
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 11
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$legend.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 13
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$legend.position
#> [1] "bottom"
#>
#> $theme$legend.box
#> [1] "vertical"
#>
#> $theme$plot.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 15
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> attr(,"complete")
#> [1] FALSE
#> attr(,"validate")
#> [1] TRUE
#>
#> $coordinates
#> <ggproto object: Class CoordCartesian, Coord, gg>
#> aspect: function
#> backtransform_range: function
#> clip: on
#> default: TRUE
#> distance: function
#> draw_panel: function
#> expand: TRUE
#> is_free: function
#> is_linear: function
#> labels: function
#> limits: list
#> modify_scales: function
#> range: function
#> render_axis_h: function
#> render_axis_v: function
#> render_bg: function
#> render_fg: function
#> reverse: none
#> setup_data: function
#> setup_layout: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> setup_params: function
#> train_panel_guides: function
#> transform: function
#> super: <ggproto object: Class CoordCartesian, Coord, gg>
#>
#> $facet
#> <ggproto object: Class FacetNull, Facet, gg>
#> attach_axes: function
#> attach_strips: function
#> compute_layout: function
#> draw_back: function
#> draw_front: function
#> draw_labels: function
#> draw_panel_content: function
#> draw_panels: function
#> finish_data: function
#> format_strip_labels: function
#> init_gtable: function
#> init_scales: function
#> map_data: function
#> params: list
#> set_panel_size: function
#> setup_data: function
#> setup_panel_params: function
#> setup_params: function
#> shrink: TRUE
#> train_scales: function
#> vars: function
#> super: <ggproto object: Class FacetNull, Facet, gg>
#>
#> $plot_env
#> <environment: 0x562e226e9818>
#>
#> $layout
#> <ggproto object: Class Layout, gg>
#> coord: NULL
#> coord_params: list
#> facet: NULL
#> facet_params: list
#> finish_data: function
#> get_scales: function
#> layout: NULL
#> map_position: function
#> panel_params: NULL
#> panel_scales_x: NULL
#> panel_scales_y: NULL
#> render: function
#> render_labels: function
#> reset_scales: function
#> resolve_label: function
#> setup: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> train_position: function
#> super: <ggproto object: Class Layout, gg>
#>
#> $labels
#> $labels$x
#> [1] "Age"
#>
#> $labels$y
#> [1] "Mean ratio"
#>
#> $labels$colour
#> [1] "education (1 is reference): "
#>
#> $labels$fill
#> [1] "education (1 is reference): "
#>
#> $labels$title
#> [1] "Differences in age effects"
#>
#> $labels$group
#> [1] "Strata"
#>
#> $labels$ymin
#> [1] "hpd_lower"
#>
#> $labels$ymax
#> [1] "hpd_upper"
#>
#>
#> attr(,"class")
#> [1] "gg" "ggplot"
#> $data
#> median_differences hpd_lower hpd_upper Strata x
#> 1 1.991298 1.794917 2.211480 2 1990
#> 2 3.711634 3.377163 4.078397 3 1990
#> 3 1.933319 1.765016 2.115171 2 1991
#> 4 3.679398 3.386173 3.987883 3 1991
#> 5 1.878380 1.724458 2.042286 2 1992
#> 6 3.623712 3.347144 3.914396 3 1992
#> 7 1.831699 1.679705 1.990758 2 1993
#> 8 3.596665 3.321148 3.883140 3 1993
#> 9 1.840456 1.691252 2.001619 2 1994
#> 10 3.606151 3.339893 3.893979 3 1994
#> 11 1.834246 1.684999 1.994866 2 1995
#> 12 3.616758 3.347614 3.907496 3 1995
#> 13 1.839516 1.684215 2.003486 2 1996
#> 14 3.501934 3.222042 3.786844 3 1996
#> 15 1.818291 1.660335 1.983632 2 1997
#> 16 3.550275 3.270477 3.838402 3 1997
#> 17 1.855849 1.697312 2.028877 2 1998
#> 18 3.644831 3.367159 3.951084 3 1998
#> 19 1.904450 1.742608 2.087489 2 1999
#> 20 3.730443 3.442234 4.062177 3 1999
#> 21 1.921302 1.758864 2.103868 2 2000
#> 22 3.660810 3.374642 3.980869 3 2000
#> 23 1.912004 1.751260 2.088035 2 2001
#> 24 3.627323 3.343172 3.936869 3 2001
#> 25 1.898467 1.735138 2.073164 2 2002
#> 26 3.588752 3.300841 3.895992 3 2002
#> 27 1.968864 1.803749 2.155865 2 2003
#> 28 3.647768 3.358797 3.973368 3 2003
#> 29 1.945181 1.777033 2.127501 2 2004
#> 30 3.548626 3.265174 3.848261 3 2004
#> 31 1.940073 1.764555 2.126392 2 2005
#> 32 3.566823 3.268708 3.874319 3 2005
#> 33 1.971205 1.799268 2.160505 2 2006
#> 34 3.646236 3.354780 3.961226 3 2006
#> 35 1.952476 1.779778 2.141747 2 2007
#> 36 3.608021 3.318090 3.919148 3 2007
#> 37 1.967068 1.794551 2.161119 2 2008
#> 38 3.663189 3.368123 3.989978 3 2008
#> 39 1.957960 1.782044 2.163346 2 2009
#> 40 3.765128 3.456397 4.131123 3 2009
#> 41 1.884346 1.711352 2.069752 2 2010
#> 42 3.739984 3.428957 4.076463 3 2010
#> 43 1.915729 1.740690 2.109477 2 2011
#> 44 3.736200 3.427592 4.072009 3 2011
#> 45 1.917445 1.741006 2.116677 2 2012
#> 46 3.779373 3.467320 4.131633 3 2012
#> 47 1.901062 1.729365 2.094579 2 2013
#> 48 3.717824 3.411072 4.061695 3 2013
#> 49 1.854379 1.683168 2.043690 2 2014
#> 50 3.670591 3.361214 4.014358 3 2014
#> 51 1.851941 1.680259 2.042803 2 2015
#> 52 3.648423 3.340567 3.990015 3 2015
#> 53 1.859588 1.683746 2.060643 2 2016
#> 54 3.686398 3.369536 4.050737 3 2016
#> 55 1.835783 1.661516 2.030273 2 2017
#> 56 3.700108 3.385212 4.052590 3 2017
#> 57 1.809930 1.625479 2.014607 2 2018
#> 58 3.707677 3.370290 4.084528 3 2018
#> 59 1.824278 1.610251 2.070933 2 2019
#> 60 3.716210 3.320895 4.172399 3 2019
#>
#> $layers
#> $layers[[1]]
#> geom_line: na.rm = FALSE, orientation = NA
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[2]]
#> mapping: ymin = ~hpd_lower, ymax = ~hpd_upper
#> geom_ribbon: na.rm = FALSE, orientation = NA, outline.type = both
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#>
#> $scales
#> <ggproto object: Class ScalesList, gg>
#> add: function
#> add_defaults: function
#> add_missing: function
#> backtransform_df: function
#> clone: function
#> find: function
#> get_scales: function
#> has_scale: function
#> input: function
#> map_df: function
#> n: function
#> non_position_scales: function
#> scales: list
#> set_palettes: function
#> train_df: function
#> transform_df: function
#> super: <ggproto object: Class ScalesList, gg>
#>
#> $guides
#> <Guides[2] ggproto object>
#>
#> colour : <GuideLegend>
#> fill : <GuideLegend>
#>
#> $mapping
#> $x
#> <quosure>
#> expr: ^x
#> env: 0x562e212baf68
#>
#> $y
#> <quosure>
#> expr: ^median_differences
#> env: 0x562e212baf68
#>
#> $colour
#> <quosure>
#> expr: ^Strata
#> env: 0x562e212baf68
#>
#> $fill
#> <quosure>
#> expr: ^Strata
#> env: 0x562e212baf68
#>
#> $group
#> <quosure>
#> expr: ^Strata
#> env: 0x562e212baf68
#>
#> attr(,"class")
#> [1] "uneval"
#>
#> $theme
#> $theme$axis.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 12
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$axis.text.x
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 10
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$axis.text.y
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 10
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$legend.text
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 11
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$legend.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 13
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $theme$legend.position
#> [1] "bottom"
#>
#> $theme$legend.box
#> [1] "vertical"
#>
#> $theme$plot.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 15
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> attr(,"complete")
#> [1] FALSE
#> attr(,"validate")
#> [1] TRUE
#>
#> $coordinates
#> <ggproto object: Class CoordCartesian, Coord, gg>
#> aspect: function
#> backtransform_range: function
#> clip: on
#> default: TRUE
#> distance: function
#> draw_panel: function
#> expand: TRUE
#> is_free: function
#> is_linear: function
#> labels: function
#> limits: list
#> modify_scales: function
#> range: function
#> render_axis_h: function
#> render_axis_v: function
#> render_bg: function
#> render_fg: function
#> reverse: none
#> setup_data: function
#> setup_layout: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> setup_params: function
#> train_panel_guides: function
#> transform: function
#> super: <ggproto object: Class CoordCartesian, Coord, gg>
#>
#> $facet
#> <ggproto object: Class FacetNull, Facet, gg>
#> attach_axes: function
#> attach_strips: function
#> compute_layout: function
#> draw_back: function
#> draw_front: function
#> draw_labels: function
#> draw_panel_content: function
#> draw_panels: function
#> finish_data: function
#> format_strip_labels: function
#> init_gtable: function
#> init_scales: function
#> map_data: function
#> params: list
#> set_panel_size: function
#> setup_data: function
#> setup_panel_params: function
#> setup_params: function
#> shrink: TRUE
#> train_scales: function
#> vars: function
#> super: <ggproto object: Class FacetNull, Facet, gg>
#>
#> $plot_env
#> <environment: 0x562e212baf68>
#>
#> $layout
#> <ggproto object: Class Layout, gg>
#> coord: NULL
#> coord_params: list
#> facet: NULL
#> facet_params: list
#> finish_data: function
#> get_scales: function
#> layout: NULL
#> map_position: function
#> panel_params: NULL
#> panel_scales_x: NULL
#> panel_scales_y: NULL
#> render: function
#> render_labels: function
#> reset_scales: function
#> resolve_label: function
#> setup: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> train_position: function
#> super: <ggproto object: Class Layout, gg>
#>
#> $labels
#> $labels$x
#> [1] "Period"
#>
#> $labels$y
#> [1] "Mean ratio"
#>
#> $labels$colour
#> [1] "education (1 is reference): "
#>
#> $labels$fill
#> [1] "education (1 is reference): "
#>
#> $labels$title
#> [1] "Differences in period effects"
#>
#> $labels$group
#> [1] "Strata"
#>
#> $labels$ymin
#> [1] "hpd_lower"
#>
#> $labels$ymax
#> [1] "hpd_upper"
#>
#>
#> attr(,"class")
#> [1] "gg" "ggplot"The plots are showing mean ratios for the education level with the corresponding color against the reference level, which is 1 here. The estimated cross-strata contrast trends align with the known rates. Looking for example at the index age=40, we see from the plots of the known rates that the rate is around 30 for education level 3 and around 6 for education level 1, which gives a mean ratio of 5. This is what the model estimated. The shape of the trend is also good.
For further inspection of the posteriors, model fit etc., the
inla object returned by the inla() function
after the model fit is recovered from aPc_fit$model_fit.
This object holds plenty of information.
2.2 Fit multiple MAPC models with fit_all_MAPC()
If there is no basis for preferring one configuration of shared
vs. stratum-specific effects over another, there is a function to fit
multiple at once. By default, it fits all of apC, aPc, Apc, aPC, ApC and
APc. If the user wants some other models, a character vector can be
passed to the argument all_models to specifiy the desired
models (see documention of fit_all_mapc for valid
models).
Here, we fit all 6 default options, for each sex.
all_fits.f <- fit_all_MAPC(
data = toy_data.f,
response = count,
family = "poisson",
stratify_by = education,
reference_strata = 1,
age = age,
period = period,
include.random = TRUE
)
all_fits.m <- fit_all_MAPC(
data = toy_data.m,
response = count,
family = "poisson",
stratify_by = education,
reference_strata = 1,
age = age,
period = period,
include.random = TRUE
)Again, we download the precomputed object instead of running the code above:
all_fits.f <- readRDS(system.file("extdata", "quickstart-all_fits_f.rds", package = "MAPCtools"))
all_fits.m <- readRDS(system.file("extdata", "quickstart-all_fits_m.rds", package = "MAPCtools"))The returned object is now of class all_mapc, with S3
methods:
print():
print(all_fits.f) # concise summary of each model
#> Total number of MAPC models fit: 6
#> Total CPU time used: 5.21 s | Elapsed time: 149.04 s
#>
#> =============== All model fits: ===============
#>
#> --- apC ---
#> Total CPU time used: 0.59 s | Elapsed time: 20.03 s
#>
#> - Number of fixed effects estimated: 3
#> - Number of random effects estimated: 8
#> - Number of hyperparameters estimated: 8
#> - Number of linear combinations estimated: 140
#> - DIC score: 26369.85
#> - WAIC score: 26372.62
#> - Log-score: 2.651593
#>
#> --- aPc ---
#> Total CPU time used: 1.14 s | Elapsed time: 26.78 s
#>
#> - Number of fixed effects estimated: 3
#> - Number of random effects estimated: 8
#> - Number of hyperparameters estimated: 8
#> - Number of linear combinations estimated: 216
#> - DIC score: 26361.28
#> - WAIC score: 26363.31
#> - Log-score: 2.650653
#>
#> --- Apc ---
#> Total CPU time used: 0.78 s | Elapsed time: 37.71 s
#>
#> - Number of fixed effects estimated: 3
#> - Number of random effects estimated: 8
#> - Number of hyperparameters estimated: 8
#> - Number of linear combinations estimated: 196
#> - DIC score: 26549.37
#> - WAIC score: 26546.41
#> - Log-score: 2.669578
#>
#> --- aPC ---
#> Total CPU time used: 0.96 s | Elapsed time: 17.47 s
#>
#> - Number of fixed effects estimated: 3
#> - Number of random effects estimated: 6
#> - Number of hyperparameters estimated: 6
#> - Number of linear combinations estimated: 80
#> - DIC score: 26356.31
#> - WAIC score: 26358.43
#> - Log-score: 2.650176
#>
#> --- ApC ---
#> Total CPU time used: 0.49 s | Elapsed time: 23.20 s
#>
#> - Number of fixed effects estimated: 3
#> - Number of random effects estimated: 6
#> - Number of hyperparameters estimated: 6
#> - Number of linear combinations estimated: 60
#> - DIC score: 26538.56
#> - WAIC score: 26551.22
#> - Log-score: 2.669848
#>
#> --- APc ---
#> Total CPU time used: 0.73 s | Elapsed time: 22.45 s
#>
#> - Number of fixed effects estimated: 3
#> - Number of random effects estimated: 6
#> - Number of hyperparameters estimated: 6
#> - Number of linear combinations estimated: 136
#> - DIC score: 26532.37
#> - WAIC score: 26539.35
#> - Log-score: 2.668374
# print(all_fits.m)plot():
Females
plot(all_fits.f) # model comparison plots (DIC/WAIC/log-score)
#> $data
#> list()
#> attr(,"class")
#> [1] "waiver"
#>
#> $layers
#> $layers[[1]]
#> geom_draw_grob: grob = list(name = "GRID.gTree.67", gp = NULL, vp = NULL, children = list(`colhead-fg` = list(grobs = list(list(label = "Model", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.59", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 2), vp = NULL), list(label = "DIC", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.60", gp = list(
#> col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 2), vp = NULL), list(label = "WAIC", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.61", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 2), vp = NULL), list(label = "Log-score", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.62",
#> gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 2), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.63", gp = list(col = "white", fill = "lemonchiffon3", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10,
#> cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.64", gp = list(col = "white", fill = "honeydew3", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2,
#> NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.65", gp = list(col = "white", fill = "honeydew3", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre",
#> hjust = 0.5, vjust = 0.5, name = "GRID.rect.66", gp = list(col = "white", fill = "honeydew3", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(label = "apC", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.11", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "aPc", x = 0.5,
#> y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.12", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "Apc", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.13", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "aPC",
#> x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.14", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "ApC", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.15", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "APc",
#> x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.16", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "26369.85", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.17", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(
#> label = "26361.28", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.18", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "26549.37", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.19", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1),
#> vp = NULL), list(label = "26356.31", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.20", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "26538.56", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.21", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1,
#> font = 1), vp = NULL), list(label = "26532.37", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.22", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "26372.62", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.23", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2,
#> alpha = 1, font = 1), vp = NULL), list(label = "26363.31", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.24", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "26546.41", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.25", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12,
#> lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "26358.43", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.26", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "26551.22", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.27", gp = list(col = "black", cex = 1, fontfamily = "",
#> fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "26539.35", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.28", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "2.652", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.29", gp = list(col = "black", cex = 1,
#> fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "2.651", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.30", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "2.670", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.31", gp = list(col = "black",
#> cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "2.650", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.32", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "2.670", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.33", gp = list(
#> col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "2.668", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.34", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL,
#> 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.35", gp = list(col = "white", fill = "lemonchiffon1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.36",
#> gp = list(col = "white", fill = "lemonchiffon2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.37", gp = list(col = "white", fill = "lemonchiffon1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1,
#> lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.38", gp = list(col = "white", fill = "lemonchiffon2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5,
#> y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.39", gp = list(col = "white", fill = "lemonchiffon1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(
#> list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.40", gp = list(col = "white", fill = "lemonchiffon2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5,
#> name = "GRID.rect.41", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.42", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5,
#> lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.43", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5,
#> y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.44", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(
#> list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.45", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5,
#> name = "GRID.rect.46", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.47", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5,
#> lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.48", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5,
#> y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.49", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(
#> list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.50", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5,
#> name = "GRID.rect.51", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.52", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5,
#> lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.53", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5,
#> y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.54", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(
#> list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.55", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5,
#> name = "GRID.rect.56", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.57", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5,
#> lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.58", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL)), layout = list(
#> t = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7), l = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4), b = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4,
#> 5, 6, 7, 2, 3, 4, 5, 6, 7), r = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4), z = c(1, 2, 3, 4, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), clip = c("on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on",
#> "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on"), name = c("colhead-fg", "colhead-fg", "colhead-fg", "colhead-fg", "colhead-bg", "colhead-bg", "colhead-bg", "colhead-bg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg",
#> "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg")), widths = list(list(1, NULL, 5), list(1, NULL, 5), list(1, NULL, 5), list(1, NULL, 5)), heights = list(list(1,
#> NULL, 5), list(1, NULL, 5), list(1, NULL, 5), list(1, NULL, 5), list(1, NULL, 5), list(1, NULL, 5), list(1, NULL, 5)), respect = FALSE, colnames = c("c1", "c2", "c3", "c4"), name = "colhead-fg", gp = NULL, vp = NULL, children = list(), childrenOrder = character(0), rownames = c("r1", "r2", "r3", "r4", "r5", "r6", "r7"))), childrenOrder = "colhead-fg"), xmin = 0, xmax = 1, ymin = 0, ymax = 1, scale = 1, clip = inherit, halign = 0.5, valign = 0.5
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#>
#> $scales
#> <ggproto object: Class ScalesList, gg>
#> add: function
#> add_defaults: function
#> add_missing: function
#> backtransform_df: function
#> clone: function
#> find: function
#> get_scales: function
#> has_scale: function
#> input: function
#> map_df: function
#> n: function
#> non_position_scales: function
#> scales: list
#> set_palettes: function
#> train_df: function
#> transform_df: function
#> super: <ggproto object: Class ScalesList, gg>
#>
#> $guides
#> <Guides[0] ggproto object>
#>
#> <empty>
#>
#> $mapping
#> named list()
#> attr(,"class")
#> [1] "uneval"
#>
#> $theme
#> $line
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $rect
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $text
#> $family
#> [1] ""
#>
#> $face
#> [1] "plain"
#>
#> $colour
#> [1] "black"
#>
#> $size
#> [1] 14
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> [1] 0.5
#>
#> $angle
#> [1] 0
#>
#> $lineheight
#> [1] 0.9
#>
#> $margin
#> [1] 0points 0points 0points 0points
#>
#> $debug
#> [1] FALSE
#>
#> $inherit.blank
#> [1] TRUE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $title
#> NULL
#>
#> $aspect.ratio
#> NULL
#>
#> $axis.title
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $axis.title.x
#> NULL
#>
#> $axis.title.x.top
#> NULL
#>
#> $axis.title.x.bottom
#> NULL
#>
#> $axis.title.y
#> NULL
#>
#> $axis.title.y.left
#> NULL
#>
#> $axis.title.y.right
#> NULL
#>
#> $axis.text
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $axis.text.x
#> NULL
#>
#> $axis.text.x.top
#> NULL
#>
#> $axis.text.x.bottom
#> NULL
#>
#> $axis.text.y
#> NULL
#>
#> $axis.text.y.left
#> NULL
#>
#> $axis.text.y.right
#> NULL
#>
#> $axis.text.theta
#> NULL
#>
#> $axis.text.r
#> NULL
#>
#> $axis.ticks
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $axis.ticks.x
#> NULL
#>
#> $axis.ticks.x.top
#> NULL
#>
#> $axis.ticks.x.bottom
#> NULL
#>
#> $axis.ticks.y
#> NULL
#>
#> $axis.ticks.y.left
#> NULL
#>
#> $axis.ticks.y.right
#> NULL
#>
#> $axis.ticks.theta
#> NULL
#>
#> $axis.ticks.r
#> NULL
#>
#> $axis.minor.ticks.x.top
#> NULL
#>
#> $axis.minor.ticks.x.bottom
#> NULL
#>
#> $axis.minor.ticks.y.left
#> NULL
#>
#> $axis.minor.ticks.y.right
#> NULL
#>
#> $axis.minor.ticks.theta
#> NULL
#>
#> $axis.minor.ticks.r
#> NULL
#>
#> $axis.ticks.length
#> [1] 0points
#>
#> $axis.ticks.length.x
#> NULL
#>
#> $axis.ticks.length.x.top
#> NULL
#>
#> $axis.ticks.length.x.bottom
#> NULL
#>
#> $axis.ticks.length.y
#> NULL
#>
#> $axis.ticks.length.y.left
#> NULL
#>
#> $axis.ticks.length.y.right
#> NULL
#>
#> $axis.ticks.length.theta
#> NULL
#>
#> $axis.ticks.length.r
#> NULL
#>
#> $axis.minor.ticks.length
#> [1] 0points
#>
#> $axis.minor.ticks.length.x
#> NULL
#>
#> $axis.minor.ticks.length.x.top
#> NULL
#>
#> $axis.minor.ticks.length.x.bottom
#> NULL
#>
#> $axis.minor.ticks.length.y
#> NULL
#>
#> $axis.minor.ticks.length.y.left
#> NULL
#>
#> $axis.minor.ticks.length.y.right
#> NULL
#>
#> $axis.minor.ticks.length.theta
#> NULL
#>
#> $axis.minor.ticks.length.r
#> NULL
#>
#> $axis.line
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $axis.line.x
#> NULL
#>
#> $axis.line.x.top
#> NULL
#>
#> $axis.line.x.bottom
#> NULL
#>
#> $axis.line.y
#> NULL
#>
#> $axis.line.y.left
#> NULL
#>
#> $axis.line.y.right
#> NULL
#>
#> $axis.line.theta
#> NULL
#>
#> $axis.line.r
#> NULL
#>
#> $legend.background
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $legend.margin
#> [1] 0points 0points 0points 0points
#>
#> $legend.spacing
#> [1] 14points
#>
#> $legend.spacing.x
#> NULL
#>
#> $legend.spacing.y
#> NULL
#>
#> $legend.key
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $legend.key.size
#> [1] 15.4points
#>
#> $legend.key.height
#> NULL
#>
#> $legend.key.width
#> NULL
#>
#> $legend.key.spacing
#> [1] 7points
#>
#> $legend.key.spacing.x
#> NULL
#>
#> $legend.key.spacing.y
#> NULL
#>
#> $legend.frame
#> NULL
#>
#> $legend.ticks
#> NULL
#>
#> $legend.ticks.length
#> [1] 0.2 *
#>
#> $legend.axis.line
#> NULL
#>
#> $legend.text
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 0.857142857142857 *
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] TRUE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $legend.text.position
#> NULL
#>
#> $legend.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> NULL
#>
#> $hjust
#> [1] 0
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] TRUE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $legend.title.position
#> NULL
#>
#> $legend.position
#> [1] "none"
#>
#> $legend.position.inside
#> NULL
#>
#> $legend.direction
#> NULL
#>
#> $legend.byrow
#> NULL
#>
#> $legend.justification
#> [1] "center"
#>
#> $legend.justification.top
#> NULL
#>
#> $legend.justification.bottom
#> NULL
#>
#> $legend.justification.left
#> NULL
#>
#> $legend.justification.right
#> NULL
#>
#> $legend.justification.inside
#> NULL
#>
#> $legend.location
#> NULL
#>
#> $legend.box
#> NULL
#>
#> $legend.box.just
#> NULL
#>
#> $legend.box.margin
#> [1] 0points 0points 0points 0points
#>
#> $legend.box.background
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $legend.box.spacing
#> [1] 14points
#>
#> $panel.background
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $panel.border
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $panel.spacing
#> [1] 7points
#>
#> $panel.spacing.x
#> NULL
#>
#> $panel.spacing.y
#> NULL
#>
#> $panel.grid
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $panel.grid.major
#> NULL
#>
#> $panel.grid.minor
#> NULL
#>
#> $panel.grid.major.x
#> NULL
#>
#> $panel.grid.major.y
#> NULL
#>
#> $panel.grid.minor.x
#> NULL
#>
#> $panel.grid.minor.y
#> NULL
#>
#> $panel.ontop
#> [1] FALSE
#>
#> $plot.background
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $plot.title
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $plot.title.position
#> [1] "panel"
#>
#> $plot.subtitle
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $plot.caption
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $plot.caption.position
#> [1] "panel"
#>
#> $plot.tag
#> $family
#> NULL
#>
#> $face
#> [1] "bold"
#>
#> $colour
#> NULL
#>
#> $size
#> NULL
#>
#> $hjust
#> [1] 0
#>
#> $vjust
#> [1] 0.7
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] TRUE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $plot.tag.position
#> [1] 0 1
#>
#> $plot.tag.location
#> NULL
#>
#> $plot.margin
#> [1] 50points 50points 50points 50points
#>
#> $strip.background
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $strip.background.x
#> NULL
#>
#> $strip.background.y
#> NULL
#>
#> $strip.clip
#> [1] "inherit"
#>
#> $strip.placement
#> [1] "inside"
#>
#> $strip.text
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $strip.text.x
#> NULL
#>
#> $strip.text.x.bottom
#> NULL
#>
#> $strip.text.x.top
#> NULL
#>
#> $strip.text.y
#> NULL
#>
#> $strip.text.y.left
#> NULL
#>
#> $strip.text.y.right
#> NULL
#>
#> $strip.switch.pad.grid
#> [1] 0cm
#>
#> $strip.switch.pad.wrap
#> [1] 0cm
#>
#> attr(,"class")
#> [1] "theme" "gg"
#> attr(,"complete")
#> [1] TRUE
#> attr(,"validate")
#> [1] TRUE
#>
#> $coordinates
#> <ggproto object: Class CoordCartesian, Coord, gg>
#> aspect: function
#> backtransform_range: function
#> clip: off
#> default: FALSE
#> distance: function
#> draw_panel: function
#> expand: FALSE
#> is_free: function
#> is_linear: function
#> labels: function
#> limits: list
#> modify_scales: function
#> range: function
#> render_axis_h: function
#> render_axis_v: function
#> render_bg: function
#> render_fg: function
#> reverse: none
#> setup_data: function
#> setup_layout: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> setup_params: function
#> train_panel_guides: function
#> transform: function
#> super: <ggproto object: Class CoordCartesian, Coord, gg>
#>
#> $facet
#> <ggproto object: Class FacetNull, Facet, gg>
#> attach_axes: function
#> attach_strips: function
#> compute_layout: function
#> draw_back: function
#> draw_front: function
#> draw_labels: function
#> draw_panel_content: function
#> draw_panels: function
#> finish_data: function
#> format_strip_labels: function
#> init_gtable: function
#> init_scales: function
#> map_data: function
#> params: list
#> set_panel_size: function
#> setup_data: function
#> setup_panel_params: function
#> setup_params: function
#> shrink: TRUE
#> train_scales: function
#> vars: function
#> super: <ggproto object: Class FacetNull, Facet, gg>
#>
#> $plot_env
#> <environment: 0x562e260e0918>
#>
#> $layout
#> <ggproto object: Class Layout, gg>
#> coord: NULL
#> coord_params: list
#> facet: NULL
#> facet_params: list
#> finish_data: function
#> get_scales: function
#> layout: NULL
#> map_position: function
#> panel_params: NULL
#> panel_scales_x: NULL
#> panel_scales_y: NULL
#> render: function
#> render_labels: function
#> reset_scales: function
#> resolve_label: function
#> setup: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> train_position: function
#> super: <ggproto object: Class Layout, gg>
#>
#> $labels
#> list()
#>
#> attr(,"class")
#> [1] "gg" "ggplot"
#> $data
#> model value rank
#> apC apC 26369.85 3
#> aPc aPc 26361.28 2
#> Apc Apc 26549.37 6
#> aPC aPC 26356.31 1
#> ApC ApC 26538.56 5
#> APc APc 26532.37 4
#>
#> $layers
#> $layers[[1]]
#> geom_line: na.rm = FALSE, orientation = NA
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[2]]
#> geom_point: na.rm = FALSE
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[3]]
#> mapping: label = ~rank
#> geom_text: parse = FALSE, check_overlap = FALSE, size.unit = mm, na.rm = FALSE
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#>
#> $scales
#> <ggproto object: Class ScalesList, gg>
#> add: function
#> add_defaults: function
#> add_missing: function
#> backtransform_df: function
#> clone: function
#> find: function
#> get_scales: function
#> has_scale: function
#> input: function
#> map_df: function
#> n: function
#> non_position_scales: function
#> scales: list
#> set_palettes: function
#> train_df: function
#> transform_df: function
#> super: <ggproto object: Class ScalesList, gg>
#>
#> $guides
#> <Guides[0] ggproto object>
#>
#> <empty>
#>
#> $mapping
#> $x
#> <quosure>
#> expr: ^model
#> env: 0x562e260e8448
#>
#> $y
#> <quosure>
#> expr: ^value
#> env: 0x562e260e8448
#>
#> $group
#> [1] 1
#>
#> attr(,"class")
#> [1] "uneval"
#>
#> $theme
#> $theme$plot.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> NULL
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> attr(,"complete")
#> [1] FALSE
#> attr(,"validate")
#> [1] TRUE
#>
#> $coordinates
#> <ggproto object: Class CoordCartesian, Coord, gg>
#> aspect: function
#> backtransform_range: function
#> clip: on
#> default: TRUE
#> distance: function
#> draw_panel: function
#> expand: TRUE
#> is_free: function
#> is_linear: function
#> labels: function
#> limits: list
#> modify_scales: function
#> range: function
#> render_axis_h: function
#> render_axis_v: function
#> render_bg: function
#> render_fg: function
#> reverse: none
#> setup_data: function
#> setup_layout: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> setup_params: function
#> train_panel_guides: function
#> transform: function
#> super: <ggproto object: Class CoordCartesian, Coord, gg>
#>
#> $facet
#> <ggproto object: Class FacetNull, Facet, gg>
#> attach_axes: function
#> attach_strips: function
#> compute_layout: function
#> draw_back: function
#> draw_front: function
#> draw_labels: function
#> draw_panel_content: function
#> draw_panels: function
#> finish_data: function
#> format_strip_labels: function
#> init_gtable: function
#> init_scales: function
#> map_data: function
#> params: list
#> set_panel_size: function
#> setup_data: function
#> setup_panel_params: function
#> setup_params: function
#> shrink: TRUE
#> train_scales: function
#> vars: function
#> super: <ggproto object: Class FacetNull, Facet, gg>
#>
#> $plot_env
#> <environment: 0x562e260e8448>
#>
#> $layout
#> <ggproto object: Class Layout, gg>
#> coord: NULL
#> coord_params: list
#> facet: NULL
#> facet_params: list
#> finish_data: function
#> get_scales: function
#> layout: NULL
#> map_position: function
#> panel_params: NULL
#> panel_scales_x: NULL
#> panel_scales_y: NULL
#> render: function
#> render_labels: function
#> reset_scales: function
#> resolve_label: function
#> setup: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> train_position: function
#> super: <ggproto object: Class Layout, gg>
#>
#> $labels
#> $labels$x
#> [1] "Model"
#>
#> $labels$y
#> [1] "DIC scores"
#>
#> $labels$colour
#> [1] "Rank"
#>
#> $labels$title
#> [1] "DIC scores"
#>
#> $labels$group
#> [1] "group"
#>
#> $labels$label
#> [1] "rank"
#>
#>
#> attr(,"class")
#> [1] "gg" "ggplot"
#> $data
#> model value rank
#> apC apC 26372.62 3
#> aPc aPc 26363.31 2
#> Apc Apc 26546.41 5
#> aPC aPC 26358.43 1
#> ApC ApC 26551.22 6
#> APc APc 26539.35 4
#>
#> $layers
#> $layers[[1]]
#> geom_line: na.rm = FALSE, orientation = NA
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[2]]
#> geom_point: na.rm = FALSE
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[3]]
#> mapping: label = ~rank
#> geom_text: parse = FALSE, check_overlap = FALSE, size.unit = mm, na.rm = FALSE
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#>
#> $scales
#> <ggproto object: Class ScalesList, gg>
#> add: function
#> add_defaults: function
#> add_missing: function
#> backtransform_df: function
#> clone: function
#> find: function
#> get_scales: function
#> has_scale: function
#> input: function
#> map_df: function
#> n: function
#> non_position_scales: function
#> scales: list
#> set_palettes: function
#> train_df: function
#> transform_df: function
#> super: <ggproto object: Class ScalesList, gg>
#>
#> $guides
#> <Guides[0] ggproto object>
#>
#> <empty>
#>
#> $mapping
#> $x
#> <quosure>
#> expr: ^model
#> env: 0x562e261aa120
#>
#> $y
#> <quosure>
#> expr: ^value
#> env: 0x562e261aa120
#>
#> $group
#> [1] 1
#>
#> attr(,"class")
#> [1] "uneval"
#>
#> $theme
#> $theme$plot.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> NULL
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> attr(,"complete")
#> [1] FALSE
#> attr(,"validate")
#> [1] TRUE
#>
#> $coordinates
#> <ggproto object: Class CoordCartesian, Coord, gg>
#> aspect: function
#> backtransform_range: function
#> clip: on
#> default: TRUE
#> distance: function
#> draw_panel: function
#> expand: TRUE
#> is_free: function
#> is_linear: function
#> labels: function
#> limits: list
#> modify_scales: function
#> range: function
#> render_axis_h: function
#> render_axis_v: function
#> render_bg: function
#> render_fg: function
#> reverse: none
#> setup_data: function
#> setup_layout: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> setup_params: function
#> train_panel_guides: function
#> transform: function
#> super: <ggproto object: Class CoordCartesian, Coord, gg>
#>
#> $facet
#> <ggproto object: Class FacetNull, Facet, gg>
#> attach_axes: function
#> attach_strips: function
#> compute_layout: function
#> draw_back: function
#> draw_front: function
#> draw_labels: function
#> draw_panel_content: function
#> draw_panels: function
#> finish_data: function
#> format_strip_labels: function
#> init_gtable: function
#> init_scales: function
#> map_data: function
#> params: list
#> set_panel_size: function
#> setup_data: function
#> setup_panel_params: function
#> setup_params: function
#> shrink: TRUE
#> train_scales: function
#> vars: function
#> super: <ggproto object: Class FacetNull, Facet, gg>
#>
#> $plot_env
#> <environment: 0x562e261aa120>
#>
#> $layout
#> <ggproto object: Class Layout, gg>
#> coord: NULL
#> coord_params: list
#> facet: NULL
#> facet_params: list
#> finish_data: function
#> get_scales: function
#> layout: NULL
#> map_position: function
#> panel_params: NULL
#> panel_scales_x: NULL
#> panel_scales_y: NULL
#> render: function
#> render_labels: function
#> reset_scales: function
#> resolve_label: function
#> setup: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> train_position: function
#> super: <ggproto object: Class Layout, gg>
#>
#> $labels
#> $labels$x
#> [1] "Model"
#>
#> $labels$y
#> [1] "WAIC scores"
#>
#> $labels$colour
#> [1] "Rank"
#>
#> $labels$title
#> [1] "WAIC scores"
#>
#> $labels$group
#> [1] "group"
#>
#> $labels$label
#> [1] "rank"
#>
#>
#> attr(,"class")
#> [1] "gg" "ggplot"
#> $data
#> model value rank
#> apC apC 2.651593 3
#> aPc aPc 2.650653 2
#> Apc Apc 2.669578 5
#> aPC aPC 2.650176 1
#> ApC ApC 2.669848 6
#> APc APc 2.668374 4
#>
#> $layers
#> $layers[[1]]
#> geom_line: na.rm = FALSE, orientation = NA
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[2]]
#> geom_point: na.rm = FALSE
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[3]]
#> mapping: label = ~rank
#> geom_text: parse = FALSE, check_overlap = FALSE, size.unit = mm, na.rm = FALSE
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#>
#> $scales
#> <ggproto object: Class ScalesList, gg>
#> add: function
#> add_defaults: function
#> add_missing: function
#> backtransform_df: function
#> clone: function
#> find: function
#> get_scales: function
#> has_scale: function
#> input: function
#> map_df: function
#> n: function
#> non_position_scales: function
#> scales: list
#> set_palettes: function
#> train_df: function
#> transform_df: function
#> super: <ggproto object: Class ScalesList, gg>
#>
#> $guides
#> <Guides[0] ggproto object>
#>
#> <empty>
#>
#> $mapping
#> $x
#> <quosure>
#> expr: ^model
#> env: 0x562e26247f90
#>
#> $y
#> <quosure>
#> expr: ^value
#> env: 0x562e26247f90
#>
#> $group
#> [1] 1
#>
#> attr(,"class")
#> [1] "uneval"
#>
#> $theme
#> $theme$plot.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> NULL
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> attr(,"complete")
#> [1] FALSE
#> attr(,"validate")
#> [1] TRUE
#>
#> $coordinates
#> <ggproto object: Class CoordCartesian, Coord, gg>
#> aspect: function
#> backtransform_range: function
#> clip: on
#> default: TRUE
#> distance: function
#> draw_panel: function
#> expand: TRUE
#> is_free: function
#> is_linear: function
#> labels: function
#> limits: list
#> modify_scales: function
#> range: function
#> render_axis_h: function
#> render_axis_v: function
#> render_bg: function
#> render_fg: function
#> reverse: none
#> setup_data: function
#> setup_layout: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> setup_params: function
#> train_panel_guides: function
#> transform: function
#> super: <ggproto object: Class CoordCartesian, Coord, gg>
#>
#> $facet
#> <ggproto object: Class FacetNull, Facet, gg>
#> attach_axes: function
#> attach_strips: function
#> compute_layout: function
#> draw_back: function
#> draw_front: function
#> draw_labels: function
#> draw_panel_content: function
#> draw_panels: function
#> finish_data: function
#> format_strip_labels: function
#> init_gtable: function
#> init_scales: function
#> map_data: function
#> params: list
#> set_panel_size: function
#> setup_data: function
#> setup_panel_params: function
#> setup_params: function
#> shrink: TRUE
#> train_scales: function
#> vars: function
#> super: <ggproto object: Class FacetNull, Facet, gg>
#>
#> $plot_env
#> <environment: 0x562e26247f90>
#>
#> $layout
#> <ggproto object: Class Layout, gg>
#> coord: NULL
#> coord_params: list
#> facet: NULL
#> facet_params: list
#> finish_data: function
#> get_scales: function
#> layout: NULL
#> map_position: function
#> panel_params: NULL
#> panel_scales_x: NULL
#> panel_scales_y: NULL
#> render: function
#> render_labels: function
#> reset_scales: function
#> resolve_label: function
#> setup: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> train_position: function
#> super: <ggproto object: Class Layout, gg>
#>
#> $labels
#> $labels$x
#> [1] "Model"
#>
#> $labels$y
#> [1] "Log-scores"
#>
#> $labels$colour
#> [1] "Rank"
#>
#> $labels$title
#> [1] "Log-scores"
#>
#> $labels$group
#> [1] "group"
#>
#> $labels$label
#> [1] "rank"
#>
#>
#> attr(,"class")
#> [1] "gg" "ggplot"Males
plot(all_fits.m) # model comparison plots (DIC/WAIC/log-score)
#> $data
#> list()
#> attr(,"class")
#> [1] "waiver"
#>
#> $layers
#> $layers[[1]]
#> geom_draw_grob: grob = list(name = "GRID.gTree.124", gp = NULL, vp = NULL, children = list(`colhead-fg` = list(grobs = list(list(label = "Model", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.116", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 2), vp = NULL), list(label = "DIC", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.117", gp = list(
#> col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 2), vp = NULL), list(label = "WAIC", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.118", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 2), vp = NULL), list(label = "Log-score", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.119",
#> gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 2), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.120", gp = list(col = "white", fill = "lemonchiffon3", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10,
#> cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.121", gp = list(col = "white", fill = "honeydew3", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(
#> -2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.122", gp = list(col = "white", fill = "honeydew3", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)),
#> just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.123", gp = list(col = "white", fill = "honeydew3", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(label = "apC", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.68", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "aPc",
#> x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.69", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "Apc", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.70", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "aPC",
#> x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.71", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "ApC", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.72", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "APc",
#> x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.73", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "23894.32", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.74", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(
#> label = "23881.24", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.75", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "24031.31", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.76", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1),
#> vp = NULL), list(label = "23881.54", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.77", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "24047.94", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.78", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1,
#> font = 1), vp = NULL), list(label = "24022.18", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.79", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "23893.95", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.80", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2,
#> alpha = 1, font = 1), vp = NULL), list(label = "23880.90", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.81", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "24033.54", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.82", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12,
#> lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "23880.91", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.83", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "24046.67", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.84", gp = list(col = "black", cex = 1, fontfamily = "",
#> fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "24022.83", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.85", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "2.380", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.86", gp = list(col = "black", cex = 1,
#> fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "2.379", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.87", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "2.394", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.88", gp = list(col = "black",
#> cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "2.379", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.89", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "2.395", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.90", gp = list(
#> col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(label = "2.393", x = 0.5, y = 0.5, just = "centre", hjust = 0.5, vjust = 0.5, rot = 0, check.overlap = FALSE, name = "GRID.text.91", gp = list(col = "black", cex = 1, fontfamily = "", fontsize = 12, lineheight = 1.2, alpha = 1, font = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL,
#> 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.92", gp = list(col = "white", fill = "lemonchiffon1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.93",
#> gp = list(col = "white", fill = "lemonchiffon2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.94", gp = list(col = "white", fill = "lemonchiffon1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1,
#> lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.95", gp = list(col = "white", fill = "lemonchiffon2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5,
#> y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.96", gp = list(col = "white", fill = "lemonchiffon1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(
#> list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.97", gp = list(col = "white", fill = "lemonchiffon2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5,
#> name = "GRID.rect.98", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.99", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5,
#> lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.100", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5,
#> y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.101", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(
#> list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.102", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5,
#> name = "GRID.rect.103", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.104", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid",
#> lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.105", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL),
#> list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.106", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)),
#> height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.107", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre",
#> hjust = 0.5, vjust = 0.5, name = "GRID.rect.108", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.109", gp = list(col = "white", fill = "honeydew2",
#> alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.110", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10,
#> cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.111", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(
#> -2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.112", gp = list(col = "white", fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)),
#> just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.113", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.114", gp = list(col = "white",
#> fill = "honeydew1", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round", linemitre = 10, cex = 1), vp = NULL), list(x = 0.5, y = 0.5, width = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), height = list(list(1, list(list(1, NULL, 0), list(-2, NULL, 13)), 201)), just = "centre", hjust = 0.5, vjust = 0.5, name = "GRID.rect.115", gp = list(col = "white", fill = "honeydew2", alpha = 1, lty = "solid", lwd = 1.5, lex = 1, lineend = "round", linejoin = "round",
#> linemitre = 10, cex = 1), vp = NULL)), layout = list(t = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7), l = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4), b = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3,
#> 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7), r = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4), z = c(1, 2, 3, 4, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), clip = c("on", "on", "on", "on", "on", "on", "on",
#> "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on", "on"), name = c("colhead-fg", "colhead-fg", "colhead-fg", "colhead-fg", "colhead-bg", "colhead-bg", "colhead-bg", "colhead-bg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg",
#> "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-fg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg", "core-bg")), widths = list(list(1, NULL, 5), list(1, NULL, 5), list(1, NULL,
#> 5), list(1, NULL, 5)), heights = list(list(1, NULL, 5), list(1, NULL, 5), list(1, NULL, 5), list(1, NULL, 5), list(1, NULL, 5), list(1, NULL, 5), list(1, NULL, 5)), respect = FALSE, colnames = c("c1", "c2", "c3", "c4"), name = "colhead-fg", gp = NULL, vp = NULL, children = list(), childrenOrder = character(0), rownames = c("r1", "r2", "r3", "r4", "r5", "r6", "r7"))), childrenOrder = "colhead-fg"), xmin = 0, xmax = 1, ymin = 0, ymax = 1, scale = 1, clip = inherit, halign = 0.5, valign = 0.5
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#>
#> $scales
#> <ggproto object: Class ScalesList, gg>
#> add: function
#> add_defaults: function
#> add_missing: function
#> backtransform_df: function
#> clone: function
#> find: function
#> get_scales: function
#> has_scale: function
#> input: function
#> map_df: function
#> n: function
#> non_position_scales: function
#> scales: list
#> set_palettes: function
#> train_df: function
#> transform_df: function
#> super: <ggproto object: Class ScalesList, gg>
#>
#> $guides
#> <Guides[0] ggproto object>
#>
#> <empty>
#>
#> $mapping
#> named list()
#> attr(,"class")
#> [1] "uneval"
#>
#> $theme
#> $line
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $rect
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $text
#> $family
#> [1] ""
#>
#> $face
#> [1] "plain"
#>
#> $colour
#> [1] "black"
#>
#> $size
#> [1] 14
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> [1] 0.5
#>
#> $angle
#> [1] 0
#>
#> $lineheight
#> [1] 0.9
#>
#> $margin
#> [1] 0points 0points 0points 0points
#>
#> $debug
#> [1] FALSE
#>
#> $inherit.blank
#> [1] TRUE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $title
#> NULL
#>
#> $aspect.ratio
#> NULL
#>
#> $axis.title
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $axis.title.x
#> NULL
#>
#> $axis.title.x.top
#> NULL
#>
#> $axis.title.x.bottom
#> NULL
#>
#> $axis.title.y
#> NULL
#>
#> $axis.title.y.left
#> NULL
#>
#> $axis.title.y.right
#> NULL
#>
#> $axis.text
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $axis.text.x
#> NULL
#>
#> $axis.text.x.top
#> NULL
#>
#> $axis.text.x.bottom
#> NULL
#>
#> $axis.text.y
#> NULL
#>
#> $axis.text.y.left
#> NULL
#>
#> $axis.text.y.right
#> NULL
#>
#> $axis.text.theta
#> NULL
#>
#> $axis.text.r
#> NULL
#>
#> $axis.ticks
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $axis.ticks.x
#> NULL
#>
#> $axis.ticks.x.top
#> NULL
#>
#> $axis.ticks.x.bottom
#> NULL
#>
#> $axis.ticks.y
#> NULL
#>
#> $axis.ticks.y.left
#> NULL
#>
#> $axis.ticks.y.right
#> NULL
#>
#> $axis.ticks.theta
#> NULL
#>
#> $axis.ticks.r
#> NULL
#>
#> $axis.minor.ticks.x.top
#> NULL
#>
#> $axis.minor.ticks.x.bottom
#> NULL
#>
#> $axis.minor.ticks.y.left
#> NULL
#>
#> $axis.minor.ticks.y.right
#> NULL
#>
#> $axis.minor.ticks.theta
#> NULL
#>
#> $axis.minor.ticks.r
#> NULL
#>
#> $axis.ticks.length
#> [1] 0points
#>
#> $axis.ticks.length.x
#> NULL
#>
#> $axis.ticks.length.x.top
#> NULL
#>
#> $axis.ticks.length.x.bottom
#> NULL
#>
#> $axis.ticks.length.y
#> NULL
#>
#> $axis.ticks.length.y.left
#> NULL
#>
#> $axis.ticks.length.y.right
#> NULL
#>
#> $axis.ticks.length.theta
#> NULL
#>
#> $axis.ticks.length.r
#> NULL
#>
#> $axis.minor.ticks.length
#> [1] 0points
#>
#> $axis.minor.ticks.length.x
#> NULL
#>
#> $axis.minor.ticks.length.x.top
#> NULL
#>
#> $axis.minor.ticks.length.x.bottom
#> NULL
#>
#> $axis.minor.ticks.length.y
#> NULL
#>
#> $axis.minor.ticks.length.y.left
#> NULL
#>
#> $axis.minor.ticks.length.y.right
#> NULL
#>
#> $axis.minor.ticks.length.theta
#> NULL
#>
#> $axis.minor.ticks.length.r
#> NULL
#>
#> $axis.line
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $axis.line.x
#> NULL
#>
#> $axis.line.x.top
#> NULL
#>
#> $axis.line.x.bottom
#> NULL
#>
#> $axis.line.y
#> NULL
#>
#> $axis.line.y.left
#> NULL
#>
#> $axis.line.y.right
#> NULL
#>
#> $axis.line.theta
#> NULL
#>
#> $axis.line.r
#> NULL
#>
#> $legend.background
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $legend.margin
#> [1] 0points 0points 0points 0points
#>
#> $legend.spacing
#> [1] 14points
#>
#> $legend.spacing.x
#> NULL
#>
#> $legend.spacing.y
#> NULL
#>
#> $legend.key
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $legend.key.size
#> [1] 15.4points
#>
#> $legend.key.height
#> NULL
#>
#> $legend.key.width
#> NULL
#>
#> $legend.key.spacing
#> [1] 7points
#>
#> $legend.key.spacing.x
#> NULL
#>
#> $legend.key.spacing.y
#> NULL
#>
#> $legend.frame
#> NULL
#>
#> $legend.ticks
#> NULL
#>
#> $legend.ticks.length
#> [1] 0.2 *
#>
#> $legend.axis.line
#> NULL
#>
#> $legend.text
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> [1] 0.857142857142857 *
#>
#> $hjust
#> NULL
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] TRUE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $legend.text.position
#> NULL
#>
#> $legend.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> NULL
#>
#> $hjust
#> [1] 0
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] TRUE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $legend.title.position
#> NULL
#>
#> $legend.position
#> [1] "none"
#>
#> $legend.position.inside
#> NULL
#>
#> $legend.direction
#> NULL
#>
#> $legend.byrow
#> NULL
#>
#> $legend.justification
#> [1] "center"
#>
#> $legend.justification.top
#> NULL
#>
#> $legend.justification.bottom
#> NULL
#>
#> $legend.justification.left
#> NULL
#>
#> $legend.justification.right
#> NULL
#>
#> $legend.justification.inside
#> NULL
#>
#> $legend.location
#> NULL
#>
#> $legend.box
#> NULL
#>
#> $legend.box.just
#> NULL
#>
#> $legend.box.margin
#> [1] 0points 0points 0points 0points
#>
#> $legend.box.background
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $legend.box.spacing
#> [1] 14points
#>
#> $panel.background
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $panel.border
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $panel.spacing
#> [1] 7points
#>
#> $panel.spacing.x
#> NULL
#>
#> $panel.spacing.y
#> NULL
#>
#> $panel.grid
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $panel.grid.major
#> NULL
#>
#> $panel.grid.minor
#> NULL
#>
#> $panel.grid.major.x
#> NULL
#>
#> $panel.grid.major.y
#> NULL
#>
#> $panel.grid.minor.x
#> NULL
#>
#> $panel.grid.minor.y
#> NULL
#>
#> $panel.ontop
#> [1] FALSE
#>
#> $plot.background
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $plot.title
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $plot.title.position
#> [1] "panel"
#>
#> $plot.subtitle
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $plot.caption
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $plot.caption.position
#> [1] "panel"
#>
#> $plot.tag
#> $family
#> NULL
#>
#> $face
#> [1] "bold"
#>
#> $colour
#> NULL
#>
#> $size
#> NULL
#>
#> $hjust
#> [1] 0
#>
#> $vjust
#> [1] 0.7
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] TRUE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> $plot.tag.position
#> [1] 0 1
#>
#> $plot.tag.location
#> NULL
#>
#> $plot.margin
#> [1] 50points 50points 50points 50points
#>
#> $strip.background
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $strip.background.x
#> NULL
#>
#> $strip.background.y
#> NULL
#>
#> $strip.clip
#> [1] "inherit"
#>
#> $strip.placement
#> [1] "inside"
#>
#> $strip.text
#> list()
#> attr(,"class")
#> [1] "element_blank" "element"
#>
#> $strip.text.x
#> NULL
#>
#> $strip.text.x.bottom
#> NULL
#>
#> $strip.text.x.top
#> NULL
#>
#> $strip.text.y
#> NULL
#>
#> $strip.text.y.left
#> NULL
#>
#> $strip.text.y.right
#> NULL
#>
#> $strip.switch.pad.grid
#> [1] 0cm
#>
#> $strip.switch.pad.wrap
#> [1] 0cm
#>
#> attr(,"class")
#> [1] "theme" "gg"
#> attr(,"complete")
#> [1] TRUE
#> attr(,"validate")
#> [1] TRUE
#>
#> $coordinates
#> <ggproto object: Class CoordCartesian, Coord, gg>
#> aspect: function
#> backtransform_range: function
#> clip: off
#> default: FALSE
#> distance: function
#> draw_panel: function
#> expand: FALSE
#> is_free: function
#> is_linear: function
#> labels: function
#> limits: list
#> modify_scales: function
#> range: function
#> render_axis_h: function
#> render_axis_v: function
#> render_bg: function
#> render_fg: function
#> reverse: none
#> setup_data: function
#> setup_layout: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> setup_params: function
#> train_panel_guides: function
#> transform: function
#> super: <ggproto object: Class CoordCartesian, Coord, gg>
#>
#> $facet
#> <ggproto object: Class FacetNull, Facet, gg>
#> attach_axes: function
#> attach_strips: function
#> compute_layout: function
#> draw_back: function
#> draw_front: function
#> draw_labels: function
#> draw_panel_content: function
#> draw_panels: function
#> finish_data: function
#> format_strip_labels: function
#> init_gtable: function
#> init_scales: function
#> map_data: function
#> params: list
#> set_panel_size: function
#> setup_data: function
#> setup_panel_params: function
#> setup_params: function
#> shrink: TRUE
#> train_scales: function
#> vars: function
#> super: <ggproto object: Class FacetNull, Facet, gg>
#>
#> $plot_env
#> <environment: 0x562e2d226400>
#>
#> $layout
#> <ggproto object: Class Layout, gg>
#> coord: NULL
#> coord_params: list
#> facet: NULL
#> facet_params: list
#> finish_data: function
#> get_scales: function
#> layout: NULL
#> map_position: function
#> panel_params: NULL
#> panel_scales_x: NULL
#> panel_scales_y: NULL
#> render: function
#> render_labels: function
#> reset_scales: function
#> resolve_label: function
#> setup: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> train_position: function
#> super: <ggproto object: Class Layout, gg>
#>
#> $labels
#> list()
#>
#> attr(,"class")
#> [1] "gg" "ggplot"
#> $data
#> model value rank
#> apC apC 23894.32 3
#> aPc aPc 23881.24 1
#> Apc Apc 24031.31 5
#> aPC aPC 23881.54 2
#> ApC ApC 24047.94 6
#> APc APc 24022.18 4
#>
#> $layers
#> $layers[[1]]
#> geom_line: na.rm = FALSE, orientation = NA
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[2]]
#> geom_point: na.rm = FALSE
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[3]]
#> mapping: label = ~rank
#> geom_text: parse = FALSE, check_overlap = FALSE, size.unit = mm, na.rm = FALSE
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#>
#> $scales
#> <ggproto object: Class ScalesList, gg>
#> add: function
#> add_defaults: function
#> add_missing: function
#> backtransform_df: function
#> clone: function
#> find: function
#> get_scales: function
#> has_scale: function
#> input: function
#> map_df: function
#> n: function
#> non_position_scales: function
#> scales: list
#> set_palettes: function
#> train_df: function
#> transform_df: function
#> super: <ggproto object: Class ScalesList, gg>
#>
#> $guides
#> <Guides[0] ggproto object>
#>
#> <empty>
#>
#> $mapping
#> $x
#> <quosure>
#> expr: ^model
#> env: 0x562e2d22d008
#>
#> $y
#> <quosure>
#> expr: ^value
#> env: 0x562e2d22d008
#>
#> $group
#> [1] 1
#>
#> attr(,"class")
#> [1] "uneval"
#>
#> $theme
#> $theme$plot.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> NULL
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> attr(,"complete")
#> [1] FALSE
#> attr(,"validate")
#> [1] TRUE
#>
#> $coordinates
#> <ggproto object: Class CoordCartesian, Coord, gg>
#> aspect: function
#> backtransform_range: function
#> clip: on
#> default: TRUE
#> distance: function
#> draw_panel: function
#> expand: TRUE
#> is_free: function
#> is_linear: function
#> labels: function
#> limits: list
#> modify_scales: function
#> range: function
#> render_axis_h: function
#> render_axis_v: function
#> render_bg: function
#> render_fg: function
#> reverse: none
#> setup_data: function
#> setup_layout: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> setup_params: function
#> train_panel_guides: function
#> transform: function
#> super: <ggproto object: Class CoordCartesian, Coord, gg>
#>
#> $facet
#> <ggproto object: Class FacetNull, Facet, gg>
#> attach_axes: function
#> attach_strips: function
#> compute_layout: function
#> draw_back: function
#> draw_front: function
#> draw_labels: function
#> draw_panel_content: function
#> draw_panels: function
#> finish_data: function
#> format_strip_labels: function
#> init_gtable: function
#> init_scales: function
#> map_data: function
#> params: list
#> set_panel_size: function
#> setup_data: function
#> setup_panel_params: function
#> setup_params: function
#> shrink: TRUE
#> train_scales: function
#> vars: function
#> super: <ggproto object: Class FacetNull, Facet, gg>
#>
#> $plot_env
#> <environment: 0x562e2d22d008>
#>
#> $layout
#> <ggproto object: Class Layout, gg>
#> coord: NULL
#> coord_params: list
#> facet: NULL
#> facet_params: list
#> finish_data: function
#> get_scales: function
#> layout: NULL
#> map_position: function
#> panel_params: NULL
#> panel_scales_x: NULL
#> panel_scales_y: NULL
#> render: function
#> render_labels: function
#> reset_scales: function
#> resolve_label: function
#> setup: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> train_position: function
#> super: <ggproto object: Class Layout, gg>
#>
#> $labels
#> $labels$x
#> [1] "Model"
#>
#> $labels$y
#> [1] "DIC scores"
#>
#> $labels$colour
#> [1] "Rank"
#>
#> $labels$title
#> [1] "DIC scores"
#>
#> $labels$group
#> [1] "group"
#>
#> $labels$label
#> [1] "rank"
#>
#>
#> attr(,"class")
#> [1] "gg" "ggplot"
#> $data
#> model value rank
#> apC apC 23893.95 3
#> aPc aPc 23880.90 1
#> Apc Apc 24033.54 5
#> aPC aPC 23880.91 2
#> ApC ApC 24046.67 6
#> APc APc 24022.83 4
#>
#> $layers
#> $layers[[1]]
#> geom_line: na.rm = FALSE, orientation = NA
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[2]]
#> geom_point: na.rm = FALSE
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[3]]
#> mapping: label = ~rank
#> geom_text: parse = FALSE, check_overlap = FALSE, size.unit = mm, na.rm = FALSE
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#>
#> $scales
#> <ggproto object: Class ScalesList, gg>
#> add: function
#> add_defaults: function
#> add_missing: function
#> backtransform_df: function
#> clone: function
#> find: function
#> get_scales: function
#> has_scale: function
#> input: function
#> map_df: function
#> n: function
#> non_position_scales: function
#> scales: list
#> set_palettes: function
#> train_df: function
#> transform_df: function
#> super: <ggproto object: Class ScalesList, gg>
#>
#> $guides
#> <Guides[0] ggproto object>
#>
#> <empty>
#>
#> $mapping
#> $x
#> <quosure>
#> expr: ^model
#> env: 0x562e2c204498
#>
#> $y
#> <quosure>
#> expr: ^value
#> env: 0x562e2c204498
#>
#> $group
#> [1] 1
#>
#> attr(,"class")
#> [1] "uneval"
#>
#> $theme
#> $theme$plot.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> NULL
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> attr(,"complete")
#> [1] FALSE
#> attr(,"validate")
#> [1] TRUE
#>
#> $coordinates
#> <ggproto object: Class CoordCartesian, Coord, gg>
#> aspect: function
#> backtransform_range: function
#> clip: on
#> default: TRUE
#> distance: function
#> draw_panel: function
#> expand: TRUE
#> is_free: function
#> is_linear: function
#> labels: function
#> limits: list
#> modify_scales: function
#> range: function
#> render_axis_h: function
#> render_axis_v: function
#> render_bg: function
#> render_fg: function
#> reverse: none
#> setup_data: function
#> setup_layout: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> setup_params: function
#> train_panel_guides: function
#> transform: function
#> super: <ggproto object: Class CoordCartesian, Coord, gg>
#>
#> $facet
#> <ggproto object: Class FacetNull, Facet, gg>
#> attach_axes: function
#> attach_strips: function
#> compute_layout: function
#> draw_back: function
#> draw_front: function
#> draw_labels: function
#> draw_panel_content: function
#> draw_panels: function
#> finish_data: function
#> format_strip_labels: function
#> init_gtable: function
#> init_scales: function
#> map_data: function
#> params: list
#> set_panel_size: function
#> setup_data: function
#> setup_panel_params: function
#> setup_params: function
#> shrink: TRUE
#> train_scales: function
#> vars: function
#> super: <ggproto object: Class FacetNull, Facet, gg>
#>
#> $plot_env
#> <environment: 0x562e2c204498>
#>
#> $layout
#> <ggproto object: Class Layout, gg>
#> coord: NULL
#> coord_params: list
#> facet: NULL
#> facet_params: list
#> finish_data: function
#> get_scales: function
#> layout: NULL
#> map_position: function
#> panel_params: NULL
#> panel_scales_x: NULL
#> panel_scales_y: NULL
#> render: function
#> render_labels: function
#> reset_scales: function
#> resolve_label: function
#> setup: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> train_position: function
#> super: <ggproto object: Class Layout, gg>
#>
#> $labels
#> $labels$x
#> [1] "Model"
#>
#> $labels$y
#> [1] "WAIC scores"
#>
#> $labels$colour
#> [1] "Rank"
#>
#> $labels$title
#> [1] "WAIC scores"
#>
#> $labels$group
#> [1] "group"
#>
#> $labels$label
#> [1] "rank"
#>
#>
#> attr(,"class")
#> [1] "gg" "ggplot"
#> $data
#> model value rank
#> apC apC 2.379886 3
#> aPc aPc 2.378585 1
#> Apc Apc 2.393822 5
#> aPC aPC 2.378585 2
#> ApC ApC 2.395186 6
#> APc APc 2.392759 4
#>
#> $layers
#> $layers[[1]]
#> geom_line: na.rm = FALSE, orientation = NA
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[2]]
#> geom_point: na.rm = FALSE
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#> $layers[[3]]
#> mapping: label = ~rank
#> geom_text: parse = FALSE, check_overlap = FALSE, size.unit = mm, na.rm = FALSE
#> stat_identity: na.rm = FALSE
#> position_identity
#>
#>
#> $scales
#> <ggproto object: Class ScalesList, gg>
#> add: function
#> add_defaults: function
#> add_missing: function
#> backtransform_df: function
#> clone: function
#> find: function
#> get_scales: function
#> has_scale: function
#> input: function
#> map_df: function
#> n: function
#> non_position_scales: function
#> scales: list
#> set_palettes: function
#> train_df: function
#> transform_df: function
#> super: <ggproto object: Class ScalesList, gg>
#>
#> $guides
#> <Guides[0] ggproto object>
#>
#> <empty>
#>
#> $mapping
#> $x
#> <quosure>
#> expr: ^model
#> env: 0x562e2c5542b8
#>
#> $y
#> <quosure>
#> expr: ^value
#> env: 0x562e2c5542b8
#>
#> $group
#> [1] 1
#>
#> attr(,"class")
#> [1] "uneval"
#>
#> $theme
#> $theme$plot.title
#> $family
#> NULL
#>
#> $face
#> NULL
#>
#> $colour
#> NULL
#>
#> $size
#> NULL
#>
#> $hjust
#> [1] 0.5
#>
#> $vjust
#> NULL
#>
#> $angle
#> NULL
#>
#> $lineheight
#> NULL
#>
#> $margin
#> NULL
#>
#> $debug
#> NULL
#>
#> $inherit.blank
#> [1] FALSE
#>
#> attr(,"class")
#> [1] "element_text" "element"
#>
#> attr(,"complete")
#> [1] FALSE
#> attr(,"validate")
#> [1] TRUE
#>
#> $coordinates
#> <ggproto object: Class CoordCartesian, Coord, gg>
#> aspect: function
#> backtransform_range: function
#> clip: on
#> default: TRUE
#> distance: function
#> draw_panel: function
#> expand: TRUE
#> is_free: function
#> is_linear: function
#> labels: function
#> limits: list
#> modify_scales: function
#> range: function
#> render_axis_h: function
#> render_axis_v: function
#> render_bg: function
#> render_fg: function
#> reverse: none
#> setup_data: function
#> setup_layout: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> setup_params: function
#> train_panel_guides: function
#> transform: function
#> super: <ggproto object: Class CoordCartesian, Coord, gg>
#>
#> $facet
#> <ggproto object: Class FacetNull, Facet, gg>
#> attach_axes: function
#> attach_strips: function
#> compute_layout: function
#> draw_back: function
#> draw_front: function
#> draw_labels: function
#> draw_panel_content: function
#> draw_panels: function
#> finish_data: function
#> format_strip_labels: function
#> init_gtable: function
#> init_scales: function
#> map_data: function
#> params: list
#> set_panel_size: function
#> setup_data: function
#> setup_panel_params: function
#> setup_params: function
#> shrink: TRUE
#> train_scales: function
#> vars: function
#> super: <ggproto object: Class FacetNull, Facet, gg>
#>
#> $plot_env
#> <environment: 0x562e2c5542b8>
#>
#> $layout
#> <ggproto object: Class Layout, gg>
#> coord: NULL
#> coord_params: list
#> facet: NULL
#> facet_params: list
#> finish_data: function
#> get_scales: function
#> layout: NULL
#> map_position: function
#> panel_params: NULL
#> panel_scales_x: NULL
#> panel_scales_y: NULL
#> render: function
#> render_labels: function
#> reset_scales: function
#> resolve_label: function
#> setup: function
#> setup_panel_guides: function
#> setup_panel_params: function
#> train_position: function
#> super: <ggproto object: Class Layout, gg>
#>
#> $labels
#> $labels$x
#> [1] "Model"
#>
#> $labels$y
#> [1] "Log-scores"
#>
#> $labels$colour
#> [1] "Rank"
#>
#> $labels$title
#> [1] "Log-scores"
#>
#> $labels$group
#> [1] "group"
#>
#> $labels$label
#> [1] "rank"
#>
#>
#> attr(,"class")
#> [1] "gg" "ggplot"summary():
Each single model fit can be recovred recovered, as mapc
objects, as fits$