Criando tabelas
pergunta 1 - tabela
# pergunta 1 - quanto anos você tem? - concluido.
Faixa_etaria <- data.frame(
Faixa = c("10-20","21-30","31-40","41-50", "51-60","61-70","71-80","Não Consta"),
Quantidade= c("15","20","22","18", "05","01","01","08"),
porcentagem = c("16.7%", "22.3%", "24.5%", "20.0%", "05.5%", "01.1%",
"01.1%", "08.8%"))
View(Faixa_etaria)pergunta 2 - tabela
#pergunta 02 - quantas pessoas moram com você - concluido
moradores <- data.frame(
qtde_pessoas = c("Mora sozinho","01 a 03 pessoas","04 a 07 pessoas","08 a 10 pessoas"),
Quantidade= c("06","50","30","04"),
porcentagem = c("06.6%", "55.5%", "33.4%", "04.5%"))
View(moradores)Pergunta 3 - tabela
#pergunta 03 - concluida
tipo_casa <- data.frame(
Casa = c("Própria","Alugada","Cedida"),
Quantidade= c("63","25","02"),
porcentagem = c("70.0%", "27.7%", "02.3%"))
View(tipo_casa)pergunta 4 - tabela
internet <- data.frame(
Acesso = c("Residência","Celular","Outros Locais"),
Quantidade= c("63","52","19"),
porcentagem = c ("47.0%", "38.8%", "14.2%"))
View(internet)pergunta 5 - tabela
#pergunta 05 - concluido
tipo_dipositivo <- data.frame(
Dispositivo = c("Celular","Computador","Tablet", "Não Consta"),
Quantidade= c("85","18","02","02"),
porcentagem = c ("79.43%", "16.83%", "01.87%", "01.87"))
View(tipo_dipositivo)Pegunta 6 - tabela
#pergunta 06 - concluida
internet_uso <- data.frame(
Uso = c("3G/4G","Wi-FI"),
Quantidade= c("42","67"),
porcentagem = c ("38.53%", "61.47%"))
View(internet_uso)Pergunta 7 - tabela
local_mais_acesso <- data.frame(
Mais_Acesso = c("Casa","Trabalho","Portão",
"Escola", "Rua", "Não Consta", "Outro"),
Quantidade= c("83","11","01", "01","01", "02", "01"),
porcentagem = c ("83.0%","11.0%","01.0%", "01.0%","01.0%", "02.0%", "01.0%"))
View(local_mais_acesso)Pegunta 8 - tabela
#pergunta 8 - concluido
escolaridade <- data.frame(
Nivel_de_escolaridade = c("Fundamental Completo","Fundamental Incompleto",
"Ensino Medio Completo", "Ensino Medio Incompleto",
"EJA / Supletivo", "Superior Completo",
"Cursando o Superior", "Superior Incompleto"),
Quantidade= c("10","15","42","16","02","03","01","01"),
porcentagem = c("11.2%", "16.6.%", "46.6%", "17.7%", "02.2%", "03.3%",
"01.2%", "01.2%"))
View(escolaridade)Pergunta 9 - tabela
#pergunta 09 - concluido
tipo_renda <- data.frame(
Renda = c("01 Salário Mínimo","De 01 a 02 Salários Mínimos",
"De 03 a 06 Salários Mínimos", "Não Consta",
"Não Sabe","Não Possui"),
Quantidade= c("37", "24", "04", "10", "01", "15"),
porcentagem = c ("40.66%", "26.38%","04.40%", "10.99%", "01.09%", "16.48%"))
View(tipo_renda)Pergunta 10 - tabela
#pergunta 10
Auxilio <- data.frame(
Auxilio = c("Bolsa Familia","Não Recebe Auxílio","Outros"),
Quantidade= c("42","39","08"),
porcentagem = c ("47.20%", "43.82%", "08.98%"))
View(Auxilio)Pergunta 11.1 - tabela
#pergunta 11
trabalho <- data.frame(
Trabalho = c("Trabalha","Não Trabalha"),
Quantidade= c("53","37"),
porcentagem = c ("58.8", "41.2%"))
View(trabalho)Pergunta 11.2 - tabela
trabalho02 <- data.frame(
CLT = c("Trabalha com carteira assinada",
"Trabalha sem carteira assinada"),
Quantidade= c("12","25"),
porcentagem = c ("32.43%", "67.57%"))
View(trabalho02)Pergunta 12 - tabela
#pergunta 12
Cursos <- data.frame(
Cursos_oferecidos = c("Trancista","Eletricista Predial",
"Barbeiro", "Cuidador de Idosos",
"Inclusão Digital", "Refrigeração",
"Alfabetização", "Design de Sombrancelhas"),
Quantidade = c("12","28","02","43","15","08","01","04"),
porcentagem = c ("10.62%", "24.78%","01.77%","38.05%", "13.28%", "7.08%", "00.88%",
"3.54%"))
View(Cursos)Pergunta 13 - tabela
#pergunta 13 -
desafios <- data.frame(
desafios_enf = c("Disponibilidade de horários","Falta de vagas",
"Dificuldade no acesso aos cursos de qualificação",
"Falta de qualificação profissional", "Falta de dinheiro",
"Falta de apoio familiar", "Não consta", "Nenhum", "Outros"),
Quantidade = c("15","29","04", "26","06", "22", "06", "01", "10"),
porcentagem = c ("12.60%","24.37%","3.37%", "21.85%",
"05.04%", "18.49%", "05.04%",
"00.84%", "08.40"))
View(desafios)Blibliotecas usadas
library(ggplot2)## Warning: package 'ggplot2' was built under R version 4.3.2ggplot(moradores, aes(qtde_pessoas,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Número de pessoas que moram com os respondentes",
subtitle ="2) Quantas pessoas moram com você ?",
x ="Número de pessoas que moram com os respondentes", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Número de pessoas"))+
theme_light()
Pergunta 1 - gráficos
#barra
ggplot(Faixa_etaria, aes(Faixa,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Faixa etária dos respondentes",
subtitle = "1) Idade",
x =" Faixa etária dos respondentes", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Número de pessoas"))+
theme_light()
#pizza
ggplot(Faixa_etaria, aes(x="", y=Quantidade, fill=Faixa)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .3),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Faixa etária dos respoindentes",
subtitle = "1) Idade",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti. ") +
guides(fill=guide_legend(title="Faixa etária"))+
theme_void()
Pergunta 2 - gráficos
ggplot(moradores, aes(qtde_pessoas,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Número de pessoas que moram com os respondentes",
subtitle ="2) Quantas pessoas moram com você ?",
x ="Número de pessoas que moram com os respondentes", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Número de pessoas"))+
theme_light()
#pizza
ggplot(moradores, aes(x="", y=Quantidade, fill=qtde_pessoas)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Número de pessoas que moram com os respondentes",
subtitle ="2) Quantas pessoas moram com você ?",
x ="Número de pessoas que moram com os respondentes", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.") +
guides(fill=guide_legend(title="Integrantes do núcleo familiar"))+
theme_void()
Pergunta 3 -gráficos
ggplot(tipo_casa, aes(Casa,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de moradia",
subtitle = "3) A casa onde você mora é?",
x ="Tipo de moradia", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Número de pessoas"))+
theme_light()
ggplot(tipo_casa, aes(x="", y=Quantidade, fill=Casa)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Tipo de moradia",
subtitle = "3) A casa onde você mora é?",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti") +
guides(fill=guide_legend(title="Tipo de moradia"))+
theme_void()
pergunta 4 - gráficos
#barra
ggplot(internet, aes(Acesso,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Acesso á internet e dispositivo utilizado",
subtitle = "4) Você tem acesso à internet?",
x ="Alternativas de Acesso", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Dispositivo utilizado"))+
theme_light()
#pizza
ggplot(internet, aes(x="", y=Quantidade, fill=Acesso)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Acesso á internet e dispositivo utilizado",
subtitle = "4) Você tem acesso à internet?",
x ="Dispositivo utilizado", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Alternativas de acesso"))+
theme_void()
Pergunta 5 - gráficos
ggplot(tipo_dipositivo, aes(Dispositivo,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Dispositivo de acesso á internet",
subtitle = "5) Por qual dispositivo?",
x ="Dispositivo de acesso", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Número de pessoas"))+
theme_light()
#pizza
ggplot(tipo_dipositivo, aes(x="", y=Quantidade, fill=Dispositivo)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Dispositivo de acesso á internet",
subtitle = "5) Por qual dispositivo?",
x ="Dispositivo de acesso á internet", y = "Dispositivo de acesso ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Dispositivo de acesso"))+
theme_void()
Pergunta 6 - gráficos
# barra
ggplot(internet_uso, aes(Uso,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de Internet",
subtitle = "6) Qual é o tipo de Internet que utiliza?",
x ="Tipo de Internet Utilizada", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Número de pessoas"))+
theme_light()
#pizza
ggplot(internet_uso, aes(x="", y=Quantidade, fill=Uso)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Tipo de Internet Urtilizada",
subtitle = "6) Qual é o tipo de Internet que utiliza?",
x ="Tipo de Internet Utilizada", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Tipo de Internet Utilizada"))+
theme_void()
pergunta 7 - gráficos
ggplot(local_mais_acesso, aes(Mais_Acesso,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Local onde a Internet é mais acessada",
subtitle = "7) Em qual local acessa mais a Internet ?",
x ="Local onde a Internet é mais acessada", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Local onde a Internet é mais acessada"))+
theme_light()
#pizza
ggplot(local_mais_acesso, aes(x="", y=Quantidade, fill=Mais_Acesso)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Local onde a Internet é mais acessada",
subtitle = "7) Em qual local acessa mais a Internet ?",
x ="Local onde a Internet é mais acessada", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Local onde a Internet é mais acessada"))+
theme_void()
Pergunta 8
#barra
ggplot(escolaridade, aes(Nivel_de_escolaridade,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Nível de escolaridade",
subtitle = "8) Qual seu nível de escolaridade?",
x ="Nível de escolaridade", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Nível de escolaridade"))+
theme_light()
#pizza
ggplot(escolaridade, aes(x="", y=Quantidade, fill=Nivel_de_escolaridade)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Nivel de escolaridade",
subtitle = "8) Qual seu nível de escolaridade?",
x ="Nível de escolaridade", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Nível de escolaridade"))+
theme_void()
Pergunta 9
ggplot(tipo_renda, aes(Renda,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Renda familiar mensal",
subtitle = "9) Somando a sua renda com a renda das pessoas que moram com você, quanto é, aproximadamente, a renda familiar mensal ?",
x ="Renda familiar mensal", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Renda familiar mensal"))+
theme_light()
#pizza
ggplot(tipo_renda, aes(x="", y=Quantidade, fill=Renda)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Renda familiar mensal",
subtitle = "9) Somando a sua renda com a renda das pessoas que moram com você, quanto é, aproximadamente, a renda familiar mensal ?",
x ="Renda familiar mensal", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Renda familiar mensal"))+
theme_void()
Pergunta 10
# barra
ggplot(Auxilio, aes(Auxilio,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Recebimento de auxílio do Governo",
subtitle = "10) Recebe auxílio do Governo? Quais?",
x ="Tipo de auxílio do Governo", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Tipo de auxílio do Governo"))+
theme_light()
#pizza
ggplot(Auxilio, aes(x="", y=Quantidade, fill=Auxilio)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Recebimento de auxílio do Governo",
subtitle = "10) Recebe algum auxílio do Governo? Quais?",
x ="Tipo de auxílio do Governo", y = "Número de pessoas ",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Tipo de auxílio do Governo"))+
theme_void()
Pergunta 11
# barra
ggplot(trabalho, aes(Trabalho,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Situação de emprego",
subtitle = "11) Você está trabalhando no momento? É formal ou informal?",
x ="Situação de emprego", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Tipo de auxílio do Governo"))+
theme_light()
#pizza
ggplot(trabalho, aes(x="", y=Quantidade, fill=Trabalho)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Situação de emprego",
subtitle = "11) Você está trabalhando no momento? É formal ou informal?",
x ="Situação de emprego", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Situação de emprego"))+
theme_void()
pergunta 11.2
# barra
ggplot(trabalho02, aes(CLT,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Forma de trabalho",
subtitle = "11) Você está trabalhando no momento? É formal ou informal?",
x ="Forma de Trabalho", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Forma de Trabalho"))+
theme_light()
#pizza
ggplot(trabalho02, aes(x="", y=Quantidade, fill=CLT)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Forma de trabalho",
subtitle = "11) Você está trabalhando no momento? É formal ou informal?",
x ="Forma de Trabalho", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Forma de Trabalho"))+
theme_void()
Pergunta 12
# barra
ggplot(Cursos, aes(Cursos_oferecidos,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Inscrição nos cursos oferecidos pelo projeto",
subtitle = "12) Está inscrito em qual dos cursos oferecidos pelo Projeto 'Qualifica SJM?'",
x ="Cursos oferecidos pelo projeto", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Cursos oferecidos pelo projeto"))+
theme_light()
#pizza
ggplot(Cursos, aes(x="", y=Quantidade, fill=Cursos_oferecidos)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Inscrição nos cursos oferecidos pelo projeto",
subtitle = "12) Está inscrito em qual dos cursos oferecidos pelo Projeto 'Qualifica SJM?'",
x ="Cursos oferecidos pelo projeto", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Cursos oferecidos pelo projeto"))+
theme_void()
Pergunta 13
# barra - ficou ruimm (deformado)
ggplot(desafios, aes(desafios_enf,Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Principais desafios enfrentados",
subtitle ="13) Quais os principais desafios enfrentados por você em termos de emprego e qualificação profissional ?",
x ="Principais desafios enfrentados", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Principais desafios enfrentados"))+
theme_light()
#pizza
ggplot(desafios, aes(x="", y=Quantidade, fill=desafios_enf)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Principais desafios enfrentados",
subtitle ="13) Quais os principais desafios enfrentados por você em termos de emprego e qualificação profissional ?",
x ="Principais desafios enfrentados", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Principais desafios enfrentados"))+
theme_void()
dados cruzados
importar a bliblioteca dos dados cruzados
library(readr)
dadocruz01 <- read_delim("C:/Users/Micro/Downloads/dadocruz01.csv",
delim = "\t", escape_double = FALSE,
trim_ws = TRUE)## Rows: 90 Columns: 8
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: "\t"
## chr (4): Tipo de casa, Escolaridade, situação de emprego, moradores
## dbl (4): Quantidade_casa, Quantidade_escolaridade, Quantidade_situacao, Quan...
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.exploração dos dados
parte 1 - dados cruzados
# tipo de moradia X Escolaridade
library(dplyr)## Warning: package 'dplyr' was built under R version 4.3.2##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionAluXesc = dadocruz01 %>% filter(`Tipo de casa`=="Alugada") %>% group_by(Escolaridade) %>% summarise(total=sum(Quantidade_situacao))
ProXesc = dadocruz01 %>% filter(`Tipo de casa`=="Própria") %>% group_by(Escolaridade) %>% summarise(total=sum(Quantidade_situacao))
CedXesc = dadocruz01 %>% filter(`Tipo de casa`=="Cedida") %>% group_by(Escolaridade) %>% summarise(total=sum(Quantidade_situacao))
# tipo de moradia X Situação de emprego
AluXsitu = dadocruz01 %>% filter(`Tipo de casa`=="Alugada") %>% group_by(`situação de emprego`) %>% summarise(total=sum(Quantidade_situacao))
ProXsitu = dadocruz01 %>% filter(`Tipo de casa`=="Própria") %>% group_by(`situação de emprego`) %>% summarise(total=sum(Quantidade_situacao))
CedXsitu = dadocruz01 %>% filter(`Tipo de casa`=="Cedida") %>% group_by(`situação de emprego`) %>% summarise(total=sum(Quantidade_situacao))
# tipo de moradia X Número de pessoas que moram com os respondentes
AluXmor = dadocruz01 %>% filter(`Tipo de casa`=="Alugada") %>% group_by(moradores) %>% summarise(total=sum(Quantidade_situacao))
ProXmor = dadocruz01 %>% filter(`Tipo de casa`=="Própria") %>% group_by(moradores) %>% summarise(total=sum(Quantidade_situacao))
CedXmor = dadocruz01 %>% filter(`Tipo de casa`=="Cedida") %>% group_by(moradores) %>% summarise(total=sum(Quantidade_situacao))
#escolaridade X situação de emprego
naoXesco = dadocruz01 %>% filter(`situação de emprego`=="Não") %>% group_by(Escolaridade) %>% summarise(total=sum(Quantidade_situacao))
formXesco = dadocruz01 %>% filter(`situação de emprego`=="Sim, de carteira assinada") %>% group_by(Escolaridade) %>% summarise(total=sum(Quantidade_situacao))
informXesco = dadocruz01 %>% filter(`situação de emprego`=="Sim, sem carteira assinada") %>% group_by(Escolaridade) %>% summarise(total=sum(Quantidade_situacao))
OutrosXesco = dadocruz01 %>% filter(`situação de emprego`=="Outros") %>% group_by(Escolaridade) %>% summarise(total=sum(Quantidade_situacao))
#moram juntos X tipo empregos
naoXmor = dadocruz01 %>% filter(`situação de emprego`=="Não") %>% group_by(moradores) %>% summarise(total=sum(Quantidade_situacao))
formXmor = dadocruz01 %>% filter(`situação de emprego`=="Sim, de carteira assinada") %>% group_by(moradores) %>% summarise(total=sum(Quantidade_situacao))
informXmor = dadocruz01 %>% filter(`situação de emprego`=="Sim, sem carteira assinada") %>% group_by(moradores) %>% summarise(total=sum(Quantidade_situacao))
OutrosXmor = dadocruz01 %>% filter(`situação de emprego`=="Outros") %>% group_by(moradores) %>% summarise(total=sum(Quantidade_situacao))escolaridade X informalidade
#escolaridade X informalidade.
Escoxtinf <- data.frame(
escoxinf = c("Fundamental Completo","Fundamental Incompleto",
"Ensino Medio Completo", "Ensino Medio Incompleto",
"EJA / Supletivo", "Superior Completo","Superior Cursando",
"Superior Incompleto"),
Quantidade= c ("01","08","16", "05","02","02", "01", "01"),
porcentagem = c("02.8%", "22.2%", "44.5%","13.9%", "05.5%", "05.5%", "02.8%",
"02.8%"))
#porcentagem concluida
library(ggplot2)
ggplot(Escoxtinf, aes(escoxinf, Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Trabalhadores informais - Escolaridade",
subtitle ="Trabalhadores Informais X Nível de escolaridade",
x ="Trabalhadores informais - Escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Trabalhadores informais - Escolaridade"))+
theme_light()
#pizza
ggplot(Escoxtinf, aes(x="", y=Quantidade, fill=escoxinf)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Trabalhadores informais - Escolaridade",
subtitle ="Trabalhadores Informais X Nível de escolaridade",
x ="Trabalhadores informais - Escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Trabalhadores informais - Escolaridade"))+
theme_void()
escolaridade X não trabalha
#escolaridade X não trabalha
Escoxnt <- data.frame(
Escoxnt = c("Fundamental Completo","Fundamental Incompleto",
"Ensino Medio Completo", "Ensino Medio Incompleto"),
Quantidade= c ("09","06","25", "10"),
porcentagem = c("18.0%", "12.0%", "50.0%","20.0%"))
# porcentagem concluida
ggplot(Escoxnt, aes(Escoxnt, Quantidade)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Pessoas sem trabalho - Escolaridade",
subtitle ="Pessoas sem trabalho X Nível de escolaridade",
x ="Pessoas sem trabalho - Escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Pessoas sem trabalho - Escolaridade"))+
theme_light()
#pizza
ggplot(Escoxnt, aes(x="", y=Quantidade, fill=Escoxnt)) +
geom_bar(stat="identity", width=1) +
geom_col(color = "black") +
geom_label(aes (x = 1.5, label = porcentagem),
position = position_stack(vjust = .5),
show.legend = FALSE) +
coord_polar("y", start=0) +
#scale_fill_viridis_d()+
scale_fill_brewer(palette = "Pastel1") +
labs(title = "Pessoas sem trabalho - Escolaridade",
subtitle ="Pessoas sem trabalho X Nível de escolaridade",
x ="Pessoas sem trabalho - Escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Pessoas sem trabalho - Escolaridade"))+
theme_void()
tipo de moradia X Escolaridade
# tipo de moradia X Escolaridade
#aluguel
ggplot(AluXesc, aes(Escolaridade, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de moradia - Aluguel X Escolaridade",
subtitle ="",
x ="Escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Tipo de moradia - Aluguel X Escolaridade"))+
theme_light()
# casa Própria
ggplot(ProXesc, aes(Escolaridade, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de moradia - Própria X Escolaridade",
subtitle ="",
x ="Escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Tipo de moradia - Própria X Escolaridade"))+
theme_light()
# casa cedida
ggplot(CedXesc, aes(Escolaridade, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de moradia - Cedida X Escolaridade",
subtitle ="",
x ="Escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Tipo de moradia - cedida X Escolaridade"))+
theme_light()
tipo de moradia X Situação de emprego
#aluguel
ggplot(AluXsitu, aes(`situação de emprego`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de moradia X Situação de emprego",
subtitle ="Casa alugada",
x ="Situação de emprego", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Tipo de moradia - Aluguel X Escolaridade"))+
theme_light()
# casa Própria
ggplot(ProXsitu, aes(`situação de emprego`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de moradia X Situação de emprego",
subtitle ="Casa própria",
x ="Situação de emprego", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Tipo de moradia - Aluguel X Escolaridade"))+
theme_light()
# casa cedida
#aluguel
ggplot(CedXsitu, aes(`situação de emprego`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de moradia X Situação de emprego",
subtitle ="Casa cedida",
x ="Situação de emprego", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Tipo de moradia - Aluguel X Escolaridade"))+
theme_light()
tipo de moradia X Número de pessoas que moram com os respondentes
#aluguel
ggplot(AluXmor, aes(moradores, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de moradia - Aluguel X Número de pessoas que moram com os respondentes",
subtitle ="",
x ="Número de pessoas que moram com os respondentes", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Tipo de moradia - Aluguel X Número de pessoas que moram com os respondentes"))+
theme_light()
#casa própria
ggplot(ProXmor, aes(moradores, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de moradia - Própria X Número de pessoas que moram com os respondentes",
subtitle ="",
x ="Número de pessoas que moram com os respondentes", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Tipo de moradia - Própria X Número de pessoas que moram com os respondentes"))+
theme_light()
#casa própria
ggplot(CedXmor, aes(moradores, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de moradia X Número de pessoas que moram com os respondentes",
subtitle ="Casa cedida",
x ="Número de pessoas que moram com os respondentes", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Tipo de moradia - Cedida X Número de pessoas que moram com os respondentes"))+
theme_light()
##escolaridade X situação de emprego
# não trabalham
ggplot(naoXesco, aes(Escolaridade, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Nível de escolaridade X Situação de emprego",
subtitle ="Não trabalham",
x ="Nível de escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Nível de escolaridade X Situação de emprego"))+
theme_light()
#outros
ggplot(OutrosXesco, aes(Escolaridade, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Nível de escolaridade X Situação de emprego",
subtitle ="Outros",
x ="Nível de escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Nível de escolaridade X Situação de emprego"))+
theme_light()
# trabalha com carteira assinada
ggplot(formXesco, aes(Escolaridade, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Nível de escolaridade X Situação de emprego",
subtitle ="Trabalham com a carteira assinada",
x ="Nível de escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Nível de escolaridade X Situação de emprego"))+
theme_light()
# trabalham sem a carteira assinada
ggplot(informXesco, aes(Escolaridade, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Nível de escolaridade X Situação de emprego",
subtitle ="Trabalham sem a carteira assinada",
x ="Nível de escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Nível de escolaridade X Situação de emprego"))+
theme_light()
Número de pessoas que moram com os respondentes X Situação de emprego
library(ggplot2)
ggplot(informXmor, aes(moradores, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Número de pessoas que moram com os respondentes X Situação de emprego",
subtitle ="Não trabalham",
x ="Número de pessoas que moram com os respondentes", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Número de pessoas que moram com os respondentes X Situação de emprego"))+
theme_light()
ggplot(OutrosXmor, aes(moradores, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Número de pessoas que moram com os respondentes X Situação de emprego",
subtitle ="Outros",
x ="Número de pessoas que moram com os respondentes", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Número de pessoas que moram com os respondentes X Situação de emprego"))+
theme_light()
ggplot(formXmor, aes(moradores, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Número de pessoas que moram com os respondentes X Situação de emprego",
subtitle ="Trabalham com a carteira assinada",
x ="Número de pessoas que moram com os respondentes", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Número de pessoas que moram com os respondentes X Situação de emprego"))+
theme_light()
ggplot(informXmor, aes(moradores, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Número de pessoas que moram com os respondentes X Situação de emprego",
subtitle ="Trabalham sem a carteira assinada",
x ="Número de pessoas que moram com os respondentes", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Número de pessoas que moram com os respondentes X Situação de emprego"))+
theme_light()
importar a segunda base de dados cruzados
library(readr)
dadocruz02 <- read_delim("C:/Users/Micro/Downloads/dadocruz02.csv",
delim = "\t", escape_double = FALSE,
trim_ws = TRUE)## Rows: 90 Columns: 6
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: "\t"
## chr (5): idade, renda familiar, auxílio do Governo, tipo moradia, tipo de In...
## dbl (1): Quantidade
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.parte 2 - dados cruzados
library(dplyr)
# tipo de moradia X Tipo de internet
AluXinternet = dadocruz02 %>% filter(`tipo moradia`=="Alugada") %>% group_by(`tipo de Internet`) %>% summarise(total=sum(Quantidade))
ProXinternet = dadocruz02 %>% filter(`tipo moradia`=="Própria") %>% group_by(`tipo de Internet`) %>% summarise(total=sum(Quantidade))
CedXinternet = dadocruz02 %>% filter(`tipo moradia`=="Cedida") %>% group_by(`tipo de Internet`) %>% summarise(total=sum(Quantidade))
# renda familiar X auxilio
rendaXoutro = dadocruz02 %>% filter(`auxílio do Governo`=="Outro") %>% group_by(`renda familiar`) %>% summarise(total=sum(Quantidade))
rendaXNC = dadocruz02 %>% filter(`auxílio do Governo`=="Não consta") %>% group_by(`renda familiar`) %>% summarise(total=sum(Quantidade))
rendaXBfa = dadocruz02 %>% filter(`auxílio do Governo`=="Bolsa Familia") %>% group_by(`renda familiar`) %>% summarise(total=sum(Quantidade))
rendaXNao = dadocruz02 %>% filter(`auxílio do Governo`=="Não") %>% group_by(`renda familiar`) %>% summarise(total=sum(Quantidade))
#idade X tipo de internet
idadeXinternet01 = dadocruz02 %>% filter(`tipo de Internet`=="3G/4G") %>% group_by(`idade`) %>% summarise(total=sum(Quantidade))
idadeXinternet02 = dadocruz02 %>% filter(`tipo de Internet`=="3G/4G. Wi-fi") %>% group_by(`idade`) %>% summarise(total=sum(Quantidade))
idadeXinternet03 = dadocruz02 %>% filter(`tipo de Internet`=="Wi-fi") %>% group_by(`idade`) %>% summarise(total=sum(Quantidade))
#auxilio X tipo de moradia -
morXoutro = dadocruz02 %>% filter(`auxílio do Governo`=="Outro") %>% group_by(`tipo moradia`) %>% summarise(total=sum(Quantidade))
morXNC = dadocruz02 %>% filter(`auxílio do Governo`=="Não consta") %>% group_by(`tipo moradia`) %>% summarise(total=sum(Quantidade))
morXBfa = dadocruz02 %>% filter(`auxílio do Governo`=="Bolsa Familia") %>% group_by(`tipo moradia`) %>% summarise(total=sum(Quantidade))
morXNao = dadocruz02 %>% filter(`auxílio do Governo`=="Não") %>% group_by(`tipo moradia`) %>% summarise(total=sum(Quantidade))
#idade X auxilio
idadeXoutro = dadocruz02 %>% filter(`auxílio do Governo`=="Outro") %>% group_by(`idade`) %>% summarise(total=sum(Quantidade))
idadeXNC = dadocruz02 %>% filter(`auxílio do Governo`=="Não consta") %>% group_by(`idade`) %>% summarise(total=sum(Quantidade))
idadeXBfa = dadocruz02 %>% filter(`auxílio do Governo`=="Bolsa Familia") %>% group_by(`idade`) %>% summarise(total=sum(Quantidade))
idadeXNao = dadocruz02 %>% filter(`auxílio do Governo`=="Não") %>% group_by(`idade`) %>% summarise(total=sum(Quantidade))tipo de moradia X Tipo de internet
#aluguel
ggplot(AluXinternet, aes(`tipo de Internet`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de moradia X Tipo de internet",
subtitle ="Casa alugada",
x ="Escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="tipo de moradia X Tipo de internet"))+
theme_light()
# casa Própria
ggplot(ProXinternet, aes(`tipo de Internet`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de moradia X Tipo de internet",
subtitle ="casa própria",
x ="Escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="tipo de moradia X Tipo de internet"))+
theme_light()
# casa cedida
ggplot(CedXinternet, aes(`tipo de Internet`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Tipo de moradia X Tipo de internet",
subtitle ="casa cedida",
x ="Escolaridade", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="tipo de moradia X Tipo de internet"))+
theme_light()
Renda familiar X Auxilio do Governo
#bolsa familia
ggplot(rendaXBfa, aes(`renda familiar`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Renda familiar X Auxilio do Governo",
subtitle ="Bolsa Familia",
x ="Renda familiar", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Renda familiar X Auxilio do Governo"))+
theme_light()
# Não recebe Auxílio do Governo
ggplot(rendaXNao, aes(`renda familiar`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Renda familiar X Auxilio do Governo",
subtitle ="Não recebe Auxílio do Governo",
x ="Renda familiar", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Renda familiar X Auxilio do Governo"))+
theme_light()
# Não consta
ggplot(rendaXNC, aes(`renda familiar`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Renda familiar X Auxilio do Governo",
subtitle ="Não consta",
x ="Renda familiar", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Renda familiar X Auxilio do Governo"))+
theme_light()
#outros
ggplot(rendaXoutro, aes(`renda familiar`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Renda familiar X Auxilio do Governo",
subtitle ="Outros",
x ="Renda familiar", y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Renda familiar X Auxilio do Governo"))+
theme_light()
idade X tipo de internet
ggplot(idadeXinternet01, aes(`idade`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Faixa etária X Tipo de internet",
subtitle ="3G/4G",
x ="Faixa etária",
y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Renda familiar X Auxilio do Governo"))+
theme_light()
ggplot(idadeXinternet02, aes(`idade`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Faixa etária X Tipo de internet",
subtitle ="3G/4G e Wi-fi",
x ="Faixa etária",
y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Renda familiar X Auxilio do Governo"))+
theme_light()
ggplot(idadeXinternet02, aes(`idade`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Faixa etária X Tipo de internet",
subtitle ="Wi-fi",
x ="Faixa etária",
y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Renda familiar X Auxilio do Governo"))+
theme_light()
Auxilio do Governo X tipo de moradia -
#bolsa familia
ggplot(morXBfa, aes(`tipo moradia`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Auxilio do Governo X tipo de moradia",
subtitle ="Bolsa Familia",
x ="Tipo de moradia",
y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Auxilio do Governo X tipo de moradia"))+
theme_light()
# Não recebe Auxílio do Governo
ggplot(morXNao, aes(`tipo moradia`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Renda familiar X Auxilio do Governo",
subtitle ="Não recebe Auxílio do Governo",
x ="Tipo de moradia",
y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Auxilio do Governo X tipo de moradia"))+
theme_light()
# Não consta
ggplot(morXNC, aes(`tipo moradia`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Renda familiar X Auxilio do Governo",
subtitle ="Não consta",
x ="Tipo de moradia",
y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Auxilio do Governo X tipo de moradia"))+
theme_light()
#outros
ggplot(morXoutro, aes(`tipo moradia`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Renda familiar X Auxilio do Governo",
subtitle ="Outros",
x ="Tipo de moradia",
y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Auxilio do Governo X tipo de moradia"))+
theme_light()
Faixa etária X Auxílio do governo
#bolsa familia
ggplot(idadeXBfa, aes(`idade`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Faixa etária X Auxílio do governo",
subtitle ="Bolsa Familia",
x ="Faixa etária",
y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Faixa etária X Auxílio do governo"))+
theme_light()
# Não recebe Auxílio do Governo
ggplot(idadeXNao, aes(`idade`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Faixa etária X Auxílio do governo",
subtitle ="Não recebe Auxílio do Governo",
x ="Faixa etária",
y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Faixa etária X Auxílio do governo"))+
theme_light()
# Não consta
ggplot(idadeXNC, aes(`idade`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Faixa etária X Auxílio do governo",
subtitle ="Não consta",
x ="Faixa etária",
y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Faixa etária X Auxílio do governo"))+
theme_light()
#outros
ggplot(idadeXoutro, aes(`idade`, total)) +
geom_bar(stat = "identity", fill = "navy" , alpha = 1) +
theme(legend.position = "bottom")+
labs(title = "Faixa etária X Auxílio do governo",
subtitle ="Outros",
x ="Faixa etária",
y = "Número de respondentes",
caption = "Fonte dos dados: Projeto Qualifica São João de Meriti.")+
guides(fill=guide_legend(title="Faixa etária X Auxílio do governo"))+
theme_light()