# ordenamos las variedades de mayor a menor por numero de plantas
variedades_4s_df$variedades <- factor(variedades_4s_df$variedades, 
                                      levels = variedades_4s_df$variedades[order(-variedades_4s_df$num_plantas)])
# inspeccionamos el dataframe
head(variedades_4s_df, 3)
str(variedades_4s_df)


# creamos grafica interactiva
# asegúrate de tener instalado antes estos paquetes
library(ggplot2)
library(plotly)
p <- ggplot(variedades_4s_df, 
            aes(x = variedades, y = num_plantas))
p <- p + geom_bar(stat="identity", color='skyblue',fill='steelblue')
p <- p + xlab("Variedades") + ylab("Número de plantas")
p <- ggplotly(p)
p