From 1eb1d947627db4f7b8aa6462984c8fc56c5ffb55 Mon Sep 17 00:00:00 2001 From: Marek Gierlinski Date: Wed, 19 Jun 2019 13:46:37 +0100 Subject: [PATCH] One more geom_ --- R/live.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/live.R b/R/live.R index 33f374b..a0c24f8 100644 --- a/R/live.R +++ b/R/live.R @@ -128,7 +128,7 @@ jitterPlot <- function(tab, input, pdat, max_points) { ggplot(p, aes_(x=~condition, y=~intensity, ymin=~lo, ymax=~up, colour=~replicate, shape=~shape, fill=~replicate)) + theme(text = element_text(size=20), legend.position = "none", legend.direction = "horizontal") + {if (input$intensityScale == '') ylim(0, NA)} + - geom_point(position=pd, size=4) + + geom_point(position=pd, size=4, na.rm=TRUE) + {if(n > 1) geom_errorbar(position=pd, width = 0.1)} + scale_shape_identity() + # necessary for shape mapping viridis::scale_fill_viridis(discrete=TRUE) +