diff --git a/R/panelView.R b/R/panelView.R index ed0f201..9488850 100644 --- a/R/panelView.R +++ b/R/panelView.R @@ -2397,7 +2397,7 @@ else if (leave.gap == 1) { id <- rev(id) p <- ggplot(data, aes(x = period, y = units, - fill = res), position = "identity") + fill = res)) if (gridOff == FALSE) { @@ -2420,7 +2420,7 @@ else if (leave.gap == 1) { p <- p + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), - panel.border = element_rect(fill=NA,color=border.color, size=0.5, linetype="solid"), + panel.border = element_rect(fill=NA,color=border.color, linewidth=0.5, linetype="solid"), axis.line = element_blank(), axis.ticks = element_blank(), axis.title=element_text(size=cex.lab), @@ -2432,7 +2432,7 @@ else if (leave.gap == 1) { plot.background = element_rect(fill = background.color), legend.background = element_rect(fill = legend.color), legend.position = legend.pos, - legend.margin = margin(c(0, 5, 5, 0)), + legend.margin = margin(0, 5, 5, 0), legend.text = element_text(margin = margin(r = 10, unit = "pt"), size = cex.legend), plot.title = element_text(size=cex.main, hjust = 0.5,face="bold",margin = margin(8, 0, 8, 0))) @@ -2889,4 +2889,4 @@ else if (leave.gap == 1) { suppressWarnings(print(p)) } -} \ No newline at end of file +}