plot.prcalc_decomposition_compare | R Documentation |
prcalc_decomposition_compare
object.Visualization of a prcalc_decomposition_compare
object.
## S3 method for class 'prcalc_decomposition_compare'
plot(
x,
percentage = FALSE,
facet = FALSE,
bar_width = 0.75,
value_type = "all",
value_angle = 0,
value_size = 3,
x_angle = 0,
font_size = 12,
border_width = 0,
border_color = "black",
digits = 3,
...
)
x |
a |
percentage |
If |
facet |
Default is |
bar_width |
Default is |
value_type |
|
value_angle |
Angle of values. Default is |
value_size |
Default is |
x_angle |
an angle of x-ticks label ( |
font_size |
a font size. Default is |
border_width |
width of border. Default is |
border_color |
color of border. Default is |
digits |
Default is |
... |
Ignored |
A ggplot
object.
data(jp_lower_2021)
obj1 <- prcalc(jp_lower_2021,
m = c(8, 13, 19, 22, 17, 11, 21, 28, 11, 6, 20),
method = "dt")
obj2 <- prcalc(jp_lower_2021,
m = c(8, 13, 19, 22, 17, 11, 21, 28, 11, 6, 20),
method = "hare")
obj3 <- prcalc(jp_lower_2021,
m = c(8, 13, 19, 22, 17, 11, 21, 28, 11, 6, 20),
method = "msl")
obj4 <- prcalc(jp_lower_2021,
m = c(8, 13, 19, 23, 19, 11, 20, 29, 10, 5, 19),
method = "dt")
obj5 <- prcalc(jp_lower_2021,
m = c(8, 13, 19, 23, 19, 11, 20, 29, 10, 5, 19),
method = "msl")
compare(list("D'Hondt" = decompose(obj1),
"Hare" = decompose(obj2),
"Modified-SL" = decompose(obj3))) |>
plot()
compare(list("Model 1" = decompose(obj1),
"Model 2" = decompose(obj4),
"Model 3" = decompose(obj5))) |>
plot(facet = TRUE, value_type = "total", digits = 5)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.