[R-es] GRÁFICO DE BARRAS COMPARATIVO VARIOS AÑOS

[Carlos Ortega]

Hola Jesús,

Yo pondría los tres grupos en el mismo data.frame (de forma tidy) y con una
columna que indicara el "mes".
Y es esta nueva columna la que agruparía en aes() como aparece destacado en
el código adjunto.

#---------------
Orden_barras <- c("ENE","FEB","MAR","ABR","MAY","JUN",
                  "JUL","AGO","SEP","OCT","NOV","DIC") # VECTOR ORD BARRAS
ggplot(Diario_S2, aes(x=factor(mes_AAA, level = Orden_barras),
y=USD_HAB, *group
= mes* ))+                     # ASIGNAR VARIABLES
        geom_bar(stat="identity", width=0.7,           # ANCHO BARRAS
                 colour="grey", fill="darkred", # COLOR (borde relleno)
                 position = "dodge")+
        labs(x="MESES",  y="IMPORTES EN USD",color="Tipo")+ # TITULOS EJES
        ggtitle("VALORES AL HABER POR MES EN USD (HISTÓRICOS")#TIT GRAFICO
#---------------

Saludos,
Carlos Ortega
www.qualityexcellence.es

El lun., 28 sept. 2020 a las 0:49, Jesus MARTIN F. (<jmfpas using gmail.com>)
escribió:

>    Buenas noches,
>
>    Tengo que preparar un gráfico de barras comparativo para varios años, en
> el que tenga agrupadas, 3 barras para enero, 3 barras para febrero, 3
> barras para marzo y así sucesivamente para todos los meses, estando en cada
> mes, los años 2020, 2019 y 2018 (juntas), un pequeño espacio y luego las de
> febrero y así sucesivamente...
>
>    Con el siguiente código, hago un año:
>
> ##########################################################################
> ## GRAFICO BARRAS : VALORES AL HABER MENSUALIZADO EN USD EJERCICIO EN CURS
> Orden_barras <- c("ENE","FEB","MAR","ABR","MAY","JUN",
>                   "JUL","AGO","SEP","OCT","NOV","DIC") # VECTOR ORD BARRAS
> ggplot(Diario_S2, aes(x=factor(mes_AAA, level = Orden_barras),
>                       y=USD_HAB))+                     # ASIGNAR VARIABLES
>         geom_bar(stat="identity", width=0.7,           # ANCHO BARRAS
>                  colour="grey", fill="darkred", # COLOR (borde relleno)
>                  position = "dodge")+
>         labs(x="MESES",  y="IMPORTES EN USD",color="Tipo")+ # TITULOS EJES
>         ggtitle("VALORES AL HABER POR MES EN USD (HISTÓRICOS")#TIT GRAFICO
> ##########################################################################
>
>   Los Datasets que tengo, son Diario_S2 para 2020, Dia_S2_19 para 2019 y
> Dia_S2_18 para 2018. Es decir que tengo un Dataset para cada año.
>
>   Solicito ayuda para hacer el comparativo, todo en un sólo gráfico de la
> manera planteada al principio.
>
>   Muchas gracias,
>
> _________________
>
> *Jesús MARTÍN FRADE *
> Skype:                jmfpas
> Tel (celular):        (011) 154-946-2131 (Argentina)
>                         (+54) 911-4946-2131 (Internacional)
> Facebook http://www.facebook.com/jesusmartinfrade
>
> [image: Mailtrack]
> <
> https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&
> >
> Remitente
> notificado con
> Mailtrack
> <
> https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&
> >
> 27/09/20
> 19:46:01
>
>         [[alternative HTML version deleted]]
>
> _______________________________________________
> R-help-es mailing list
> R-help-es using r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>


-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]