Barplot no RStudio - 2 Columns

Question

Barplot no RStudio - 2 Columns

Navigation

#1 by (4 votes)

1

I'm trying to plot the data below in R with the barplot but it must be missing something, can you help me?

dados_estado_civil <- "Estado_Civil   Set     Out
AMIGADO        2494   3857
CASADO         2500   3291
SEPARADO       2504   3545
SOLTEIRO       2504   2910"

dados_estado_civil <- read.table(textConnection(dados_estado_civil), header=TRUE)
head(dados_estado_civil)

  Estado_Civil   Set    Out
1      AMIGADO  2494   3857
2       CASADO  2500   3291
3     SEPARADO  2504   3545
4     SOLTEIRO  2504   2910

I wanted to plot these values in a bar graph considering the months.

r rstudio

asked by anonymous 21.06.2018 / 21:51

1 answer

Delphi - How to assign data in a multidimensional array in a single command? Calculate Price in Javascript [duplicate]

score 4 · Accepted Answer

The easiest way to resolve this is with the ggplot2 package. But before you need to put the data in the so-called long format, using the melt function of the reshape2 package:

library(reshape2)

dados_estado_civil <- melt(dados_estado_civil)
names(dados_estado_civil) <- c("Estado_Civil", "mes", "valor")
dados_estado_civil
      Estado_Civil mes valor
1      AMIGADO Set  2494
2       CASADO Set  2500
3     SEPARADO Set  2504
4     SOLTEIRO Set  2504
5      AMIGADO Out  3857
6       CASADO Out  3291
7     SEPARADO Out  3545
8     SOLTEIRO Out  2910

Now I have a column with repeated values for the marital status, another column with all months and a third column with all values. This is important because ggplot2 understands the data in this format more easily. I can, for example, paint the bars of my chart according to the marital status:

library(ggplot2)    
ggplot(dados_estado_civil, aes(x=mes, y=valor, fill=Estado_Civil)) +
  geom_col(position="dodge") +
  labs(x="Mês", y="Quantidade", fill="Estado Civil")

OR,ifIfinditbesttocomparetheevolutionfromonemonthtoanotherwithineachmaritalstatus,simplychangetheorderofxandfill:

ggplot(dados_estado_civil,aes(x=Estado_Civil,y=valor,fill=mes))+geom_col(position="dodge") +
  labs(x="Estado Civil", y="Quantidade", fill="Mês")