1

Me gustaría añadir en cada iteración del bucle con geom_point columnas de puntos. Sin embargo, se quedaba en el objeto g de ggplot con lo que hubiese en la última iteración. Tuve que usar una solución muy pobre con muchos ifs...

g <- ggplot(data = data) +
        xlab('Abscisas') + 
        ylab('Ordenadas') +
        ggtitle('Title') + 
        theme_minimal()+
        theme(plot.title = element_text(hjust=0.5, size=rel(1), face="bold"),
              axis.text.x = element_text(vjust=0.5, size = 10, face="bold"),
              axis.text.y = element_text(size= 10),
              axis.title.x.top=element_text(face="bold"))
      
        nsamples <- dim(data)[2]
        if(2 <= nsamples && names(data)[2] %in% input$sample_type){
          g <- g + geom_point(aes(x = data[,1], y = data[,2]), col=colors[2])
          g <- g + geom_line(aes(x = data[,1], y = data[,2]), col=colors[2])
        }
        if(3 <= nsamples && names(data)[3] %in% input$sample_type){
          g <- g + geom_point(aes(x = data[,1], y = data[,3]), col=colors[3])
          g <- g + geom_line(aes(x = data[,1], y = data[,3]), col=colors[3])
        }

Alguna idea? Gracias!!

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.