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]]
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 en 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 en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
--
Saludos,
Carlos Ortega
www.qualityexcellence.es
[[alternative HTML version deleted]]
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 en
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 en
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 en 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 en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es