4S Cuatro Sierras Semana i

Introducción

El proyecto vitivinícola Cuatro Sierras 4S…

Localización

Se localiza en el municipio de Cananea, Sonora… 31.086661, -110.083934

Variedades de vid

Según la presentación hecha por la empresa el día 28 de Octubre del 2019 …

Creamos un dataframe

# creamos un vector de variedades
variedades_4s <- c("Cabernet S.","Carignan N.", "Carmenere",
                   "Chardonnay", "Malbec", "Greenache N.",
                   "Mourvedre", "Petit V.", "Syrah",
                   "Tempranillo", "Tinta Toro", "Toriga N.",
                   "Verdejo")
                   
# creamos un vector con el numero de plantas
plantas <- c(12750, 2125, 4250, 2125, 8500, 10625,2125, 4250,
             8500, 6500, 4125, 17000,2125)

# Creamos el dataframe
variedades_4s_df <- data.frame("variedades" = variedades_4s, 
                               "num_plantas" = plantas)

Inspeccionamos el dataframe

# 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)

##    variedades num_plantas
## 1 Cabernet S.       12750
## 2 Carignan N.        2125
## 3   Carmenere        4250

str(variedades_4s_df)

## 'data.frame':    13 obs. of  2 variables:
##  $ variedades : Factor w/ 13 levels "Toriga N.","Cabernet S.",..: 2 10 7 11 4 3 12 8 5 6 ...
##  $ num_plantas: num  12750 2125 4250 2125 8500 ...

Creamos una grafica

# creamos grafica interactiva
# asegúrate de tener instalado antes estos paquetes
library(ggplot2)
library(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

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<- p + theme(axis.text.x = element_text(angle = 90))
p <- ggplotly(p)
p