plots | R Documentation |
A suite of functions to demonstrate why the area in
roseplots need adjusting
barchart(data = d, pos = p, width = 0.8, alpha = 0.6, border.col = "black", rad.max = NULL) roseplot(data = d, pos = p, width = 0.8, alpha = 0.6, border.col = "black", rad.max = NULL, start = pi/3) aaroseplot(data = d, pos = p, width = 0.8, alpha = 0.6, border.col = "black", rad.max = NULL, start = pi/3)
data |
A dataframe that is three columns wide and has the column names "prob", "cond", and "region": "prob" is the probability of being in the "region" and "cond" is a condition or grouping variable. See prob.cond.region in the examples. |
pos |
passed to geom_bar() as the "position" value:
currently supported are "dodge" and "stack"; "super"
superimposes layers up to 10 levels of "cond". If
pos="super" throws the error "Error in if
(nrow(layer_data) == 0) return() : argument is of length
zero" then exit out, restart R, and
|
width |
passed to geom_bar() as the "width" value: determines the spacing between bars/clusters of bars between the regions. Default is 0.80 |
alpha |
Passed to geom_bar() as the "alpha" value – default is 0.6; 1 is opaque and 0 is transparent |
border.col |
Passed to geom_bar() as the "color" value – "black" is default and NA is transparent for border color control |
rad.max |
[0, 1.05*rad.max] is the range of the radius-scale. rad.max should be specified as a number between 0 and 1. Default is NULL, which means ggplot will handle the range display automatically/default. |
start |
Passed to coord_polar() as the "start" value
– default |
data(prob.cond.region) ## Dodged barchart, roseplot, area adjusted roseplot be <- barchart(prob.cond.region, "dodge", rad.max=0.5) + ggtitle("Barchart (dodge)") re <- roseplot(prob.cond.region, "dodge", rad.max=0.5) + ggtitle("Roseplot (dodge)") + scale_fill_discrete(guide=FALSE) ae <- aaroseplot(prob.cond.region, "dodge", rad.max=0.5) + ggtitle("Area Adjusted Roseplot (dodge)") + scale_fill_discrete(guide=FALSE) multiplot(be,re,ae, cols=2, rows=2) ## Stacked barchart, roseplot, area adjusted roseplot bk <- barchart(prob.cond.region, "stack", rad.max=0.5) + ggtitle("Barchart (stack)") rk <- roseplot(prob.cond.region, "stack", rad.max=0.5) + ggtitle("Roseplot (stack)") + scale_fill_discrete(guide=FALSE) ak <- aaroseplot(prob.cond.region, "stack", rad.max=0.5) + ggtitle("Area Adjusted Roseplot (stack)") + scale_fill_discrete(guide=FALSE) multiplot(bk,rk,ak, cols=2, rows=2) ## Superimposed barchart, roseplot, area adjusted roseplot br <- barchart(prob.cond.region, "super", rad.max=0.5) + ggtitle("Barchart (super)") rr <- roseplot(prob.cond.region, "super", rad.max=0.5) + ggtitle("Roseplot (super)") + scale_fill_discrete(guide=FALSE) ar <- aaroseplot(prob.cond.region, "super", rad.max=0.5) + ggtitle("Area Adjusted Roseplot (super)") + scale_fill_discrete(guide=FALSE) multiplot(br,rr,ar, cols=2, rows=2) ## Dodged, Stacked, and Superimposed barchart, roseplot, area adjusted roseplot in same plot ## tip: maximize window after render multiplot(be,bk,br,re,rk,rr,ae,ak,ar, cols=3)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.