Introduccion

En este ejemplo se usa un mismo archivo con la cantidad de equinos por departamentos a traves de los años 2015, 2016 y 2017. Se utilizan dos Librerias, un grafico de Barras Agrupadas usando la libreria billboarder y un grafico de barras simples usando ggplot2.

Barras Agrupadas

datos<-read.csv("existenciaequinasegunSENASA.csv", header = T, sep=";")


library("billboarder")

billboarder() %>%
  bb_barchart(
    data = datos[, c("DEP", "CANTIDAD2017", "CANTIDAD2016", "CANTIDAD2015")]
  ) %>%
  bb_data(
    names = list(CANTIDAD2017 = "2017", CANTIDAD2016 = "2016", CANTIDAD2015="2015")
  ) %>% 
  bb_colors_manual(
    "ECO" = "#41AB5D", "FPM" = "#4292C6"
  ) %>%
  bb_y_grid(show = TRUE) %>%
  bb_y_axis(tick = list(format = suffix("Padrillos")),
            label = list(text = "Cantidad de votos", position = "outer-top")) %>% 
  bb_legend(position = "inset", inset = list(anchor = "top-right")) %>% 
  bb_labs(title = "Comparacion Existencia Equina por Departamento \n Subsecretaria de Tec.-Gob de Corrientes")

Barras Simples con ggplot2

library("ggplot2")
datos<-read.csv("existenciaequinasegunSENASA.csv", header = T, sep=";")
datos<-as.data.frame(datos)
Graficequino = 
    ggplot(datos, aes(x=DEP, y=(CANTIDAD2017) , fill=CANTIDAD2017)) +
    geom_bar(stat="identity", position="dodge")  +
    theme_bw() +
    labs(title="Existencia Equina por Departamento",
         x="Departamento",
         y="Cantidada (padrillos)") +
    theme(text = element_text(size=12), # Tamaño de fuente del gráfico por defecto
          plot.title = element_text(size=rel(2), # Tamaño del título, doble del establecido por defecto
                                    vjust=2, #Justificación vertical, para separarlo del gráfico
                                    face="bold", #Letra negrilla
                                    color="darkgreen", #Color del texto
                                    lineheight=1.5), #Separación entre líneas)
          axis.text.x = element_text(angle = 45, hjust = 1),
          legend.position="none",
          axis.title.x = element_text(face="bold", vjust=1.5, colour="blue", size=rel(1)),
          axis.title.y = element_text(face="bold", vjust=1.5, colour="blue", size=rel(1)),
          axis.text = element_text(colour = "black")) +
    coord_cartesian(ylim=c(0, 1200)) +
    scale_y_continuous(breaks =seq(0, 1200, 300))


Graficequino