Añadir escala logarítmica a exportar.

2020-11-24 12:06:54 +01:00
parent a38e8a58bb
commit 06377857c6
1 changed files with 4 additions and 0 deletions
@@ -61,6 +61,7 @@ ui <- fluidPage(
                                    sliderInput("errorbar-width", "% Ancho errorbars", min=0.05, max=1, step=0.05, value=0.05),
                                    sliderInput("point-size", "Tamaño puntos", min=1, max=10, step=1, value=3),
                                    sliderInput("font-size", "Tamaño textos", min=5, max=30, step=1, value=11),
+                                    checkboxInput(inputId = "logscale", label="Escala logarítmica", value=F),
                                    checkboxInput(inputId = "legend", label = "Mostrar llegenda", value = T),
                                    selectInput("theme", "Seleccionar Tema", selected="BW", choices=c("BW", "Default", "Classic")),
                                    downloadButton("downloadPicture", "Exportar")
@@ -506,6 +507,9 @@ server <- function(input, output) {
          g<-g+scale_color_manual(values=v_col)+
            scale_fill_manual(values=v_col)
        }
+        if (input$logscale == T){
+          g<-g+scale_y_log10()
+        }
      }else{
        gg_color_hue <- function(n, l=65) {
          hues <- seq(15, 375, length=n+1)