INTRODUCCIÓN

Los siguientes datos corresponden al area de acuacultura, para esto se realizaron pescas en distintas localidades del estado de Sonora durante los meses de septiembre y octubre del año 2016. Esta muestra incluye el habitat,genero,especie y numero de organismos obtenidos de los peces que fueron pescados durante ese periodo.

De la siguiente grafica se puede concluir que En la localidad de “el Pajaral” es donde se pesca la mayor cantidad de peces, sobresaliendo por mucho a las otras localidades de muestra.

ggplot(data = datos , aes(x = Localidad, y=N..Org,fill=(Localidad)))+ 
  geom_bar(stat = "identity")

De la siguiente grafica de barras se pueden observar las distintas especies de peces y su poblacion en las diferentes localidades que fueron lugares de muestra para la pesca de los mismos. De la grafica se puede concluir que la localidad de “Los Cerros” y “El aposquero” son los que contienen una mayor diversidad y concentracion de especies entre todas las demas localidades.

grafica_uno<-ggplot(data = datos , aes(x = Localidad,fill=tolower(Especie))) +
  geom_bar()+  theme(axis.text.x = element_text(angle = 50, hjust = 1))

ggplotly(grafica_uno)

En la siguiente grafica de barras observamos las especies de peces tanto como sus generos y poblacion total de estos. La grafica nos dice que la especie Melanopterus de genero eucinostomus es la que es mas propensa a encontrar en la pesca a diferencia de las otras especies.

 grafica_dos<-ggplot(data = datos , aes(x = Especie,fill=tolower(Genero))) +
    geom_bar()+  theme(axis.text.x = element_text(angle = 50, hjust = 1))

ggplotly(grafica_dos)
ui <- fluidPage(
    inputPanel(
        selectInput('x', 'Fill', choices = c("Familia", "Especie", "Habitat","Arte"),
                    selected = "Familia")),
    
    mainPanel(
        plotlyOutput("plot2")))

server <- function(input, output) {
    
    
    output$plot2 <- renderPlotly({
        print(
            ggplotly(
                ggplot(data = datos , aes_string(x = 'Localidad',fill=input$x)) +
                    geom_bar()+  theme(axis.text.x = element_text(angle = 50, hjust = 1))))
        
    })
}

shinyApp(ui, server)
Shiny applications not supported in static R Markdown documents