Commit d94c6c35 authored by biohentze's avatar biohentze

Show axes labels when grouping points

parent 7b02650b
......@@ -502,7 +502,8 @@ server <- function(input, output, session) {
coord_cartesian(expand = TRUE)
if(!is.null(rv$clusters)) {
p <- p + geom_point(aes(colour = factor(clusters)), alpha = 0.3) +
scale_colour_brewer(palette = 'Set1') + theme(title=element_blank())
scale_colour_brewer(palette = 'Set1') +
theme(plot.title = element_blank(), legend.title = element_blank())
}
p <- p + geom_point(data = D[rv$selectedRows,],
aes_string(x = selectedCols[1], y = selectedCols[2], key = "IDs"),
......
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