Commit 949f801a authored by dmattek's avatar dmattek

Changed:

- in scatter plot, lm instea of rlm
- in dotplot, no border around dots
- in ribbon plot, lagend placement
parent b2e216db
......@@ -357,8 +357,9 @@ myGgplotScat = function(dt.arg,
if (is.null(band.arg))
p.tmp = p.tmp +
stat_smooth(
method = function(formula, data, weights = weight)
rlm(formula, data, weights = weight, method = 'MM'),
# method = function(formula, data, weights = weight)
# rlm(formula, data, weights = weight, method = 'MM'),
method = "lm",
fullrange = FALSE,
level = 0.95,
colour = 'blue'
......
......@@ -202,6 +202,7 @@ modBoxPlot = function(input, output, session,
if('dot' %in% input$inPlotType)
p.out = p.out + geom_dotplot(aes_string(fill = in.cols[['group']]),
color = NA,
binaxis = "y",
stackdir = "center",
position = loc.par.dodge,
......
......@@ -9,6 +9,7 @@ modTrajRibbonPlotUI = function(id, label = "Plot Individual Time Series") {
column(
3,
checkboxInput(ns('chBplotTrajInt'), 'Interactive Plot?'),
radioButtons(ns('rBlegendPos'), 'Legend placement:', list('top' = 'top', 'right' = 'right')),
actionButton(ns('butPlotTraj'), 'Plot!')
),
column(
......@@ -185,7 +186,7 @@ modTrajRibbonPlot = function(input, output, session,
col.arg = loc.facet.col,
group.arg = in.facet,
xlab.arg = 'Time (min)',
ylab.arg = '')
ylab.arg = '', legendpos.arg = input$rBlegendPos)
return(p.out)
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment