|
|
@ -88,7 +88,7 @@ statebins <- function(state_data, state_col="state", value_col="value", |
|
|
|
gg <- gg + coord_equal() |
|
|
|
gg <- gg + labs(x=NULL, y=NULL, title="") |
|
|
|
gg <- gg + theme_bw() |
|
|
|
gg <- gg + theme(plot.margin=unit(c(-0.5,-0.5,-0.5,-0.5), "cm")) |
|
|
|
# gg <- gg + theme(plot.margin=unit(c(-0.5,-0.5,-0.5,-0.5), "cm")) |
|
|
|
gg <- gg + theme(legend.position=legend_position) |
|
|
|
gg <- gg + theme(panel.border=element_blank()) |
|
|
|
gg <- gg + theme(panel.grid=element_blank()) |
|
|
@ -179,7 +179,7 @@ statebins_continuous <- function(state_data, state_col="state", value_col="value |
|
|
|
gg <- gg + labs(x=NULL, y=NULL, title="") |
|
|
|
gg <- gg + theme_bw() |
|
|
|
gg <- gg + theme(legend.position=legend_position) |
|
|
|
gg <- gg + theme(plot.margin=unit(c(-0.5,-0.5,-0.5,-0.5), "cm")) |
|
|
|
# gg <- gg + theme(plot.margin=unit(c(-0.5,-0.5,-0.5,-0.5), "cm")) |
|
|
|
gg <- gg + theme(panel.border=element_blank()) |
|
|
|
gg <- gg + theme(panel.grid=element_blank()) |
|
|
|
gg <- gg + theme(panel.background=element_blank()) |
|
|
|