Commit aee2f965 authored by svolant's avatar svolant
Browse files

export scatterplot

parent 8932f428
......@@ -1168,7 +1168,7 @@ CheckCountsTable <- function(counts)
symbol_var = if (PchBy == "None" || is.null(PchBy)) factor(rep(1,nrow(data))) else data[,PchBy]
size_var = if (PointSize == "None" || is.null(PointSize)) 1 else data[,PointSize]
plot = ggplot(data, aes(x = x_var, y = y_var)) + geom_point(aes(color=col_var,size =size_var,shape = symbol_var),alpha=0.7)
plot = ggplot(data, aes(x = x_var, y = y_var)) + geom_point(aes(color=col_var,size =size_var,shape = symbol_var),alpha=0.7) +theme_bw()
if(input$SizeLabelScatter!=0) plot = plot + geom_text(aes(label=rownames(data),color=col_var,size=input$SizeLabelScatter/20),vjust = 0,nudge_y =0.05)
plot = plot + xlab(Xvar) + ylab(Yvar)
if(input$AddRegScatter) plot = plot + geom_smooth(method="lm")
......
......@@ -96,7 +96,7 @@ shinyServer(function(input, output,session) {
file.create(namesfile,showWarnings=FALSE)
## Popup messages
observe(if(input$AddRegScatter) info("By adding the regression line, you will loose interactivity."))
observe(if(input$AddRegScatter) info("By adding the regression line, you will lose interactivity."))
## Counts file
dataInputCounts <-reactive({
......@@ -1060,6 +1060,7 @@ output$exportVisu <- downloadHandler(
}
if(input$PlotVisuSelect=="Boxplot") print(Plot_Visu_Boxplot(input,ResDiffAnal(),alpha=ifelse(input$Exp_format_Visu=="eps",1,0.7)))
if(input$PlotVisuSelect=="Scatterplot") print(Plot_Visu_Scatterplot(input,ResDiffAnal(),export=TRUE,lmEst = FALSE))
if(input$PlotVisuSelect=="Diversity") print(Plot_Visu_Diversity(input,ResDiffAnal(),type="point"))
if(input$PlotVisuSelect=="Rarefaction") print( Plot_Visu_Rarefaction(input,ResDiffAnal(),ranges$x,ranges$y,ylab=taxo))
dev.off()
......
Supports Markdown
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