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

[Emilio L. Cano]

Perdón, le contesté lo mismo a Jesús hace un rato pero sin responder a todos, sorry


------------
Hola Jesús,

Primero tienes que apilar los tres datasets. Y Tienes que tener un factor que represente el año. Después mapear el aestethics color al factor año. Por defecto tendrás el gráfico como quieres.

Como el código que envías no es reproducible, este ejemplo tampoco lo es, pero te servirá de guía:

bind_rows(list(`2020` = Diario_S2, `2019` = Dia_S2_18, `2018` = Dia_S2_18), .id=año) %>%
 Ggplot(aes(x=factor(mes_AAA, level = Orden_barras),
                    y=USD_HAB,
                    fill=año)) +
      geom_bar(stat="identity")
…

Un saludo,
Emilio

> El 28 sept 2020, a las 9:29, Carlos Ortega <cof using qualityexcellence.es> escribió:
> 
> 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]]
> 
> _______________________________________________
> R-help-es mailing list
> R-help-es using r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es