PROJETO ELLOS - DOCENTES
GIOVANA ACIOLI
2022-07-12
VARIÁVEIS IMPORTANTES PARA ESTUDAR - ELLOS
- BASE DE DADOS - DOCENTES
library(readxl)
docentes <- read_excel("C:/Users/02aci/Downloads/docentes.xlsx")
Profissionais <- read_excel("C:/Users/02aci/Downloads/Profissionais.xlsx")
View(Profissionais)
View(docentes)
library(DescTools)
library(RVAideMemoire)
library(aplpack)
library(ggplot2)
library(readxl)
library(summarytools)
library(tidyverse)
library(dplyr)
library(flextable)
library(readr)
library(corrplot)
library(DT)
library(ggthemes)
datatable(docentes)1 - FORMAÇÃO SOBRE QUALIFICAÇÃO X FUNÇÃO DO DOCENTE
tabela1 <- table(docentes$`Formacao sobre qualificacao profissional antes do Projeto Ellos`, docentes$Funcao)
minha_tabela <- table(docentes$`Formacao sobre qualificacao profissional antes do Projeto Ellos`, docentes$Funcao) %>% data.frame()
round(prop.table(tabela1)*100,2)##
## Monitor(a) Professor(a)
## Não 33.33 33.33
## Sim 12.50 20.83minha_tabela <- minha_tabela %>% rename(POSSUI_FORMACAO=Var1,FUNCAO=Var2,NUMERO=Freq)
minha_tabela %>% flextable() %>% theme_zebra()POSSUI_FORMACAO | FUNCAO | NUMERO |
Não | Monitor(a) | 24 |
Sim | Monitor(a) | 9 |
Não | Professor(a) | 24 |
Sim | Professor(a) | 15 |
tabela17 <- table(docentes$`Formacao sobre qualificacao profissional antes do Projeto Ellos`, docentes$Funcao)
ggplot(docentes) +
aes(x = `Formacao sobre qualificacao profissional antes do Projeto Ellos`, fill = Funcao) +
geom_bar(position = "dodge") +
labs(x = ".", y = "Frequência", title = "DOCENTE POSSUI FORMAÇÃO SOBRE QUALIFICACAO?") +
theme(plot.title = element_text(face = "bold", hjust = 0.5), axis.title.y = element_text(face = "bold"))
2 - AVALIAÇÃO DO PROJETO X FUNÇÃO DO DOCENTE
tabela2 <- table(docentes$`Avaliacao projeto ellos`,docentes$Funcao)
ggplot(docentes) +
aes(x = `Avaliacao projeto ellos`, fill = Funcao) +
geom_bar(position = "dodge") +
labs(x = ".", y = "Frequência", title = "NOTA DADA PARA O PROJETO") +
theme(plot.title = element_text(face = "bold", hjust = 0.5), axis.title.y = element_text(face = "bold"))
3 - AVALIAÇÃO DOS DOCENTES X NOTA BASEADO NA FORMAÇÃO DADA AO DOCENTE
minha_tabela2 <- table(docentes$`Avaliacao formacao oferecida ao docente`, docentes$Funcao) %>% data.frame()
minha_tabela2 <- minha_tabela2 %>% rename(NOTA=Var1,FUNCAO=Var2,NUMERO=Freq)
minha_tabela2 %>% flextable() %>% theme_zebra()NOTA | FUNCAO | NUMERO |
1 | Monitor(a) | 1 |
2 | Monitor(a) | 0 |
3 | Monitor(a) | 4 |
4 | Monitor(a) | 16 |
5 | Monitor(a) | 12 |
1 | Professor(a) | 1 |
2 | Professor(a) | 5 |
3 | Professor(a) | 7 |
4 | Professor(a) | 10 |
5 | Professor(a) | 16 |
tabela8 <- table(docentes$`Avaliacao formacao oferecida ao docente`, docentes$Funcao)
ggplot(docentes) +
aes(x = `Avaliacao formacao oferecida ao docente`, fill = Funcao) +
geom_bar(position = "dodge") +
labs(x = ".", y = "Frequência", title = "Nota dada para a formacao concedida ao docente") +
theme(plot.title = element_text(face = "bold", hjust = 0.5), axis.title.y = element_text(face = "bold"))
4 - RENDA FAMILIAR X JORNADA DE TRABALHO
minha_tabela7 <- table(docentes$`Quantas horas semanais você trabalha`, docentes$`Renda Familiar`) %>% data.frame()
minha_tabela7 <- minha_tabela7 %>% rename(JORNADA=Var1,RENDA=Var2,FREQ=Freq)
minha_tabela7 %>% flextable() %>% theme_zebra()JORNADA | RENDA | FREQ |
+ de 40h | Entre 01 e 02 salários mínimos | 4 |
De 11 a 20h | Entre 01 e 02 salários mínimos | 4 |
De 21 a 30h | Entre 01 e 02 salários mínimos | 5 |
De 31 a 40h | Entre 01 e 02 salários mínimos | 5 |
Não fixo. Até 10h | Entre 01 e 02 salários mínimos | 4 |
+ de 40h | Entre 03 e 04 salários mínimos | 7 |
De 11 a 20h | Entre 03 e 04 salários mínimos | 2 |
De 21 a 30h | Entre 03 e 04 salários mínimos | 4 |
De 31 a 40h | Entre 03 e 04 salários mínimos | 4 |
Não fixo. Até 10h | Entre 03 e 04 salários mínimos | 2 |
+ de 40h | Mais de 04 salários mínimos | 4 |
De 11 a 20h | Mais de 04 salários mínimos | 2 |
De 21 a 30h | Mais de 04 salários mínimos | 0 |
De 31 a 40h | Mais de 04 salários mínimos | 1 |
Não fixo. Até 10h | Mais de 04 salários mínimos | 1 |
tabela10 <- table(docentes$`Quantas horas semanais você trabalha`, docentes$`Renda Familiar`)
barplot(tabela10,beside=TRUE, col=c("darkblue","royalblue","palevioletred1","violetred4","grey94"),
horiz = FALSE,
legend.text = rownames(tabela10),
args.legend = list(x = "topright"),
main="JORNADA DE TRABALHO X RENDA FAMILIAR")
5 - MAIOR FORMAÇÃO X DOCENTE
minha_tabela3 <- table(docentes$Funcao,docentes$`Nivel de educacao formal`) %>% data.frame()
minha_tabela3 <- minha_tabela3 %>% rename(FUNCAO_DOCENTE=Var1,ENSINO=Var2,NUMERO=Freq)
minha_tabela3 %>% flextable() %>% theme_zebra()FUNCAO_DOCENTE | ENSINO | NUMERO |
Monitor(a) | Ensino Fundamental | 1 |
Professor(a) | Ensino Fundamental | 1 |
Monitor(a) | Ensino Médio | 23 |
Professor(a) | Ensino Médio | 8 |
Monitor(a) | Ensino Superior | 7 |
Professor(a) | Ensino Superior | 15 |
Monitor(a) | Pós-Graduação | 2 |
Professor(a) | Pós-Graduação | 15 |
tabela87 <- table(docentes$Funcao,docentes$`Nivel de educacao formal`)
ggplot(docentes) +
aes(x = Funcao, fill = `Nivel de educacao formal`) +
geom_bar(position = "dodge") +
labs(x = ".", y = "Frequência", title = "MAIOR NIVEL DE GRADUACAO DO DOCENTE") +
theme(plot.title = element_text(face = "bold", hjust = 0.5), axis.title.y = element_text(face = "bold"))
6 - RENDA FAMILIAR X SEXO
minha_tabela4 <- table(docentes$`Renda Familiar`,docentes$Sexo) %>% data.frame()
minha_tabela4 <- minha_tabela4 %>% rename(RENDA=Var1,SEXO=Var2,NUMERO=Freq)
minha_tabela4 %>% flextable() %>% theme_zebra()RENDA | SEXO | NUMERO |
Entre 01 e 02 salários mínimos | Feminino | 26 |
Entre 03 e 04 salários mínimos | Feminino | 15 |
Mais de 04 salários mínimos | Feminino | 6 |
Entre 01 e 02 salários mínimos | Masculino | 12 |
Entre 03 e 04 salários mínimos | Masculino | 10 |
Mais de 04 salários mínimos | Masculino | 3 |
tabela9 <- table(docentes$`Renda Familiar`,docentes$Sexo)
ggplot(docentes) +
aes(x = `Renda Familiar`, fill = Sexo) +
geom_bar(position = "dodge") +
labs(x = ".", y = "Frequência", title = "RENDA FAMILIAR BASEADO NO SEXO") +
theme(plot.title = element_text(face = "bold", hjust = 0.5), axis.title.y = element_text(face = "bold"))
7 - AVALIAÇÃO PESSOAL FEITA PELOS DOCENTES
> Quantos docentes responderam o valor máximo sobre a possibilidade dos estudantes tornarem-se empreendedores?
tabela_1 <- table(docentes$`Voce considera que seus estudantes tem possibilidade de ser tornarem empreendedores`) %>% data.frame()
tabela_1 <- tabela_1 %>% rename(Avaliação=Var1,Docentes=Freq)
tabela_1 %>% flextable() %>% theme_zebra()Avaliação | Docentes |
1 | 1 |
3 | 9 |
4 | 14 |
5 | 48 |
boxplot(docentes$Docentes ~ docentes$`Voce considera que seus estudantes tem possibilidade de ser tornarem empreendedores`,
data=docentes, col=c("pink","blue","red","yellow"),
main="Gráfico - Boxplot",
xlab="Avaliação",
ylab="Docentes")
> 48 docentes responderam o valor máximo para a possibilidade dos estudantes tornarem-se empreendedores.
8 - SEXO FEMININO X CURSOS
> Quantas professoras atuam no curso de assistente administrativo?
tabela_2 <- table(docentes$Sexo[docentes$Funcao=="Professor(a)"],docentes$`Curso que ministra`[docentes$Funcao=="Professor(a)"])
tabela_2##
## Assistente Administrativo Cuidador de Idosos Empreendedorismo
## Feminino 7 9 0
## Masculino 7 0 1
##
## Estética Gestor Introdução à Música Mídias Sociais
## Feminino 2 0 3 1
## Masculino 0 1 6 2barplot(tabela_2,col=c("#32CD32","#006400"))
legend('topright', legend=c('F','M'), fill = c("#32CD32","#006400"))
> 18 mulheres atuam no curso de assistente administrativo.
9- PÓS GRADUAÇÃO X CURSOS
> Quantos professores possuem pós-graduação em cada um dos cursos?
tabela_3 <- table(docentes$`Curso que ministra`[docentes$Funcao=="Professor(a)"],docentes$`Nivel de educacao formal`[docentes$Funcao=="Professor(a)"])
tabela_3##
## Ensino Fundamental Ensino Médio Ensino Superior
## Assistente Administrativo 0 2 8
## Cuidador de Idosos 0 2 1
## Empreendedorismo 0 1 0
## Estética 0 1 1
## Gestor 0 0 0
## Introdução à Música 1 1 4
## Mídias Sociais 0 1 1
##
## Pós-Graduação
## Assistente Administrativo 4
## Cuidador de Idosos 6
## Empreendedorismo 0
## Estética 0
## Gestor 1
## Introdução à Música 3
## Mídias Sociais 1round(prop.table(tabela_3)*100)##
## Ensino Fundamental Ensino Médio Ensino Superior
## Assistente Administrativo 0 5 21
## Cuidador de Idosos 0 5 3
## Empreendedorismo 0 3 0
## Estética 0 3 3
## Gestor 0 0 0
## Introdução à Música 3 3 10
## Mídias Sociais 0 3 3
##
## Pós-Graduação
## Assistente Administrativo 10
## Cuidador de Idosos 15
## Empreendedorismo 0
## Estética 0
## Gestor 3
## Introdução à Música 8
## Mídias Sociais 3tabela_3 <- table(docentes$`Curso que ministra`[docentes$Funcao=="Professor(a)"],docentes$`Nivel de educacao formal`[docentes$Funcao=="Professor(a)"])
barplot(tabela_3,beside=TRUE, col=c("pink","yellow","blue","purple","red","green","gray"),
horiz = FALSE,
legend.text = rownames(tabela_3),
args.legend = list("bottom", bty="n", cex = 0.7),
main="EDUCAÇÃO X CURSO QUE MINISTRA")
> Assistente administrativo são 4, cuidador de idosos são 6, empreendedorismo 0, estética 0, gestor 1, introdução à música 3 e mídias sociais 1.
10 - COR OU RAÇA X DOCENTES
> Quais cursos que mais possuem docentes que se autodeclaram pardos e pretos?
tabela_4 <- table(docentes$`Cor ou raca`[docentes$Funcao=="Professor(a)"], docentes$`Curso que ministra`[docentes$Funcao=="Professor(a)"])
tabela_4##
## Assistente Administrativo Cuidador de Idosos Empreendedorismo Estética
## Branca 9 3 1 1
## Parda 5 4 0 1
## Preta 0 2 0 0
##
## Gestor Introdução à Música Mídias Sociais
## Branca 1 0 2
## Parda 0 6 0
## Preta 0 3 1barplot(tabela_4,beside=TRUE, col=c("#B0E0E6","#D8BFD8", "#FFE4E1","#FFDAB9"),
horiz = FALSE,
legend.text = rownames(tabela_4),
args.legend = list(x="topright"),
main = "Cor/Raça X Curso")
> Os docentes que se autodeclaram pardos: Assistente administrativo - 5, cuidador de idosos - 4 e introdução à música - 6.
> Os docentes que se autodeclaram pretos: Introdução à música - 3, e cuidador de idosos - 2.
11 - CURSO QUE MINISTRA X SEXO
ggplot(docentes) +
aes(x = `Curso que ministra`, fill = Sexo) +
geom_bar() +
scale_fill_viridis_d(option = "cividis",
direction = 1) +
labs(x = "Curso", y = "Frequencia", title = "Curso que ministra ou acompanha / Sexo") +
coord_flip() +
theme_minimal() +
theme(plot.title = element_text(face = "bold", hjust = 0.5), axis.title.y = element_text(face = "bold"),
axis.title.x = element_text(face = "bold"))
12 - OUTRA ATIVIDADE X SEXO
ggplot(docentes) +
aes(x = Sexo, fill = `Outra atividade profissional`) +
geom_bar(position = "dodge") +
scale_fill_viridis_d(option = "cividis", direction = 1) +
labs(x = "Sexo", y = "Frequência", title = "Renda complementar / Sexo",
fill = "Possui outra atividade profissional?") +
theme_minimal() +
theme(plot.title = element_text(face = "bold",
hjust = 0.5), axis.title.y = element_text(face = "bold"), axis.title.x = element_text(face = "bold"))
13 - HORAS SEMANAIS X ESCOLARIDADE
ggplot(docentes) +
aes(x = `Nivel de educacao formal`) +
geom_bar(position = "dodge", fill = "#565984") +
labs(x = "Escolaridade", y = "Frequência", title = "Expediente / Escolaridade", subtitle = "horas semanais; nível de educação formal") +
coord_flip() +
theme_minimal() +
theme(plot.title = element_text(face = "bold", hjust = 0.5), plot.subtitle = element_text(hjust = 0.5),
axis.title.y = element_text(face = "bold"), axis.title.x = element_text(face = "bold")) +
facet_wrap(vars(`Quantas horas semanais você trabalha`))
14 - AVALIAÇÃO DO PROJETO
tab_dificuldade <- table(docentes$`Quais as dificuldades para atuar no Projeto Ellos`) %>% data.frame()
colnames(tab_dificuldade) = c("Dificuldades para atuar no Projeto Ellos", "Frequência")
tab_dificuldade %>% flextable() %>% theme_zebra()Dificuldades para atuar no Projeto Ellos | Frequência |
Estudantes desinteressados | 2 |
Estudantes desinteressados, Percebo a nossa juventude sem ânimo e deixam oportunidades como essas irem embora,pois nao e so dinheiro,esse projeto envolve,convivio,relacionamento,compromisso, exercício mental,mwrcado de trabalho,vai muito alem de receber um valor mensal, | 1 |
Material didático limitado | 5 |
Material didático limitado, Acesso a internet no polo. | 1 |
Material didático limitado, Espaço pedagógico precário (sala de aula, equipamentos, etc) | 1 |
Material didático limitado, Estudantes desinteressados | 1 |
Monitora desinteressada | 1 |
Não encontrei dificuldades | 1 |
Não tive dificuldades ao ponto de atrapalhar o meu trabalho | 1 |
Nenhuma dificuldade | 46 |
Pouca preparação inicial | 6 |
Pouca preparação inicial, Espaço pedagógico precário (sala de aula, equipamentos, etc) | 1 |
Pouca preparação inicial, Lanche para os alunos e material de higiene pessoal. | 1 |
Pouca preparação inicial, Pouca troca com as equipes responsáveis, Espaço pedagógico precário (sala de aula, equipamentos, etc) | 1 |
Pouca troca com as equipes responsáveis | 2 |
Tenho que paga ônibus ou gasolina.. | 1 |
15 - PRINCIPAIS CONTRIBUIÇÕES DO PROJETO
> AV = AVALIAÇÃO
> PRIMEIRA CONTRIBUIÇÃO E FREQUÊNCIA
tab_difemprego <- table(docentes$`Qual voce acredita ser a principal dificuldade para os estudantes conseguirem emprego`) %>% data.frame()
colnames(tab_difemprego) = c("Principal dificuldade para os estudantes conseguirem emprego", "Frequência")
tab_difemprego %>% flextable() %>% theme_zebra()Principal dificuldade para os estudantes conseguirem emprego | Frequência |
A baixa escolaridade dos cursistas | 14 |
A crise econômica | 5 |
A falta de experiência de trabalho dos cursistas | 19 |
A falta de ofertas de trabalho e salários atrativos por parte dos empregadores | 20 |
A falta de políticas governamentais de emprego | 11 |
A falta de qualificação e certificação | 1 |
Falta de empreendedorismo | 1 |
Falta de qualificação dos cursistas | 1 |
> SEGUNDA CONTRIBUIÇÃO E FREQUÊNCIA
tab_material <- table(docentes$`Avaliacao material didatico`) %>% data.frame()
colnames(tab_material) = c("Av do material didatico", "Frequencia")
tab_material %>% flextable() %>% theme_zebra()Av do material didatico | Frequencia |
1 | 4 |
2 | 4 |
3 | 12 |
4 | 19 |
5 | 33 |
> TERCEIRA CONTRIBUIÇÃO E FREQUÊNCIA
tab_formacao <- table(docentes$`Avaliacao formacao oferecida ao docente`) %>% data.frame()
colnames(tab_formacao) = c("Av formacao oferecida ao docente", "Frequencia")
tab_formacao %>% flextable() %>% theme_zebra()Av formacao oferecida ao docente | Frequencia |
1 | 2 |
2 | 5 |
3 | 11 |
4 | 26 |
5 | 28 |
> QUARTA CONTRIBUIÇÃO E FREQUÊNCIA
tab_biblio <- table(docentes$`Avaliacao biblioteca`) %>% data.frame()
colnames(tab_biblio) = c("Av biblioteca", "Frequencia")
tab_biblio %>% flextable() %>% theme_zebra()Av biblioteca | Frequencia |
1 | 2 |
2 | 2 |
3 | 6 |
4 | 21 |
5 | 41 |
> QUINTA CONTRIBUIÇÃO E FREQUÊNCIA
tab_projeto <- table(docentes$`Avaliacao projeto ellos`) %>% data.frame()
colnames(tab_projeto) = c("Av projeto Ellos", "Frequencia")
tab_projeto %>% flextable() %>% theme_zebra()Av projeto Ellos | Frequencia |
1 | 1 |
2 | 1 |
3 | 4 |
4 | 23 |
5 | 43 |
> SEXTA CONTRIBUIÇÃO E FREQUÊNCIA
tab_proativ <- table(docentes$`Avaliacao desenvolve a capacidade proativa incentivando a busca por oportunidades de trabalho`) %>% data.frame()
colnames(tab_proativ) = c("Av incentivo pela busca de oportunidades", "Frequencia")
tab_proativ %>% flextable() %>% theme_zebra()Av incentivo pela busca de oportunidades | Frequencia |
Concordo | 12 |
Concordo completamente | 41 |
Discordo | 6 |
Discordo completamente | 6 |
Nem discordo, nem concordo | 2 |
> SÉTIMA CONTRIBUIÇÃO E FREQUÊNCIA
tab_autoestima <- table(docentes$`Avaliacao desenvolve a perseverança e a autoestima`) %>% data.frame()
colnames(tab_autoestima) = c("Av desenvolve perserveranca e autoestima", "Frequencia")
tab_autoestima %>% flextable() %>% theme_zebra()Av desenvolve perserveranca e autoestima | Frequencia |
Concordo | 12 |
Concordo completamente | 42 |
Discordo | 8 |
Discordo completamente | 5 |
> OITAVA CONTRIBUIÇÃO E FREQUÊNCIA
tab_invest <- table(docentes$`Avaliacao estimula a ousadia nos investimentos profissionais`) %>% data.frame()
colnames(tab_invest) = c("Av estimula ousadia nos investimentos profissionais", "Frequencia")
tab_invest %>% flextable() %>% theme_zebra()Av estimula ousadia nos investimentos profissionais | Frequencia |
Concordo | 14 |
Concordo completamente | 37 |
Discordo | 8 |
Discordo completamente | 5 |
Nem discordo, nem concordo | 3 |
> NONA CONTRIBUIÇÃO E FREQUÊNCIA
tab_qualidade <- table(docentes$`Avaliacao estimula a busca pela qualidade profissional`) %>% data.frame()
colnames(tab_qualidade) = c("Av estimula busca por qualidade profissional", "Frequencia")
tab_qualidade %>% flextable() %>% theme_zebra()Av estimula busca por qualidade profissional | Frequencia |
Concordo | 12 |
Concordo completamente | 41 |
Discordo | 8 |
Discordo completamente | 5 |
Nem discordo, nem concordo | 1 |
> DÉCIMA CONTRIBUIÇÃO E FREQUÊNCIA
tab_comp <- table(docentes$`Avaliacao encoraja o comprometimento com o trabalho`) %>% data.frame()
colnames(tab_comp) = c("Av encoraja comprometimento", "Frequencia")
tab_comp %>% flextable() %>% theme_zebra()Av encoraja comprometimento | Frequencia |
Concordo | 16 |
Concordo completamente | 38 |
Discordo | 8 |
Discordo completamente | 5 |
> DÉCIMA PRIMEIRA CONTRIBUIÇÃO E FREQUÊNCIA
tab_mercado <- table(docentes$`Avaliacao encoraja o conhecimento permanente sobre o mercado`) %>% data.frame()
colnames(tab_mercado) = c("Av conhecimento sobre o mercado", "Frequencia")
tab_mercado %>% flextable() %>% theme_zebra()Av conhecimento sobre o mercado | Frequencia |
Concordo | 15 |
Concordo completamente | 37 |
Discordo | 7 |
Discordo completamente | 5 |
Nem discordo, nem concordo | 3 |
> DÉCIMA SEGUNDA CONTRIBUIÇÃO E FREQUÊNCIA
tab_redes <- table(docentes$`Avaliacao estimula a criacao de redes de contatos profissionais`) %>% data.frame()
colnames(tab_redes) = c("Av criacao de redes de contato profissional", "Frequencia")
tab_redes %>% flextable() %>% theme_zebra()Av criacao de redes de contato profissional | Frequencia |
Concordo | 14 |
Concordo completamente | 39 |
Discordo | 9 |
Discordo completamente | 4 |
Nem discordo, nem concordo | 1 |
16 - FUNÇÃO NO PROJETO X TRABALHA COMO PROFESSOR NA EDUCAÇÃO BÁSICA
ggplot(Profissionais) +
aes(x = funcaoprojeto, fill = professorEB) +
geom_bar(position = "dodge") +
scale_fill_hue(direction = 1) +
labs(x = "Função no Projeto Ellos", y = "Frequência", title = "Função no Projeto Ellos x
Trabalha como Professor Educação Básica",
fill = "Professor de Educação Básica") +
theme_classic() +
theme(plot.title = element_text(size = 16L,
face = "bold", hjust = 0.5), axis.title.y = element_text(face = "bold"), axis.title.x = element_text(face = "bold"))
17 - FORMAÇÃO X NÍVEL DE ESCOLARIDADE
ggplot(Profissionais) +
aes(x = formacaoQP, fill = nivelform) +
geom_bar(position = "dodge") +
scale_fill_hue(direction = 1) +
labs(x = "Realização de formação sobre QP antes do Projeto Ellos", y = "Frequência", title = "Formação sobre Qualificação Profissional x Nível de Escolaridade do Profissional",
fill = "Nível de Escolaridade") +
theme_minimal() +
theme(plot.title = element_text(size = 16L,
face = "bold", hjust = 0.5), axis.title.x = element_text(face = "bold"))
18 - SEXO X FAIXA ETÁRIA
ggplot(Profissionais) +
aes(x = sexo, fill = faixaetaria) +
geom_bar(position = "dodge") +
scale_fill_hue(direction = 1) +
labs(x = "Sexo", y = "Frequência", title = "Sexo x Faixa Etária", fill = "Faixa Etária") +
theme_minimal() +
theme(plot.title = element_text(size = 16L, face = "bold", hjust = 0.5), axis.title.x = element_text(face = "bold"))
19 - FAIXA ETÁRIA X NÍVEL DE ESCOLARIDADE
ggplot(Profissionais) +
aes(x = faixaetaria, fill = nivelform) +
geom_bar(position = "dodge") +
scale_fill_hue(direction = 1) +
labs(x = "Faixa Etária", y = "Frequência", title = "Faixa Etária x Nível de Escolaridade", fill = "Nível de Escolaridade") +
theme_minimal() +
theme(plot.title = element_text(size = 16L, face = "bold", hjust = 0.5), axis.title.x = element_text(face = "bold"))
20 - RENDA FAMILIAR X OUTRA ATIVIDADE PROFISSIONAL
ggplot(Profissionais) +
aes(x = `Qual a sua renda familiar (aproximada)?`, fill = `Além do Projeto Ellos, você tem outra atividade profissional?`) +
geom_bar(position = "dodge") +
scale_fill_hue(direction = 1) +
labs(x = "Renda Familiar (aproximada)",
y = "Frequência", title = "Renda Familiar x Outra Atividade Profissional", fill = "Outra Atividade Profissional") +
theme_minimal() +
theme(plot.title = element_text(size = 16L, face = "bold", hjust = 0.5), axis.title.y = element_text(face = "bold"),
axis.title.x = element_text(face = "bold"))
21 - FORMAÇÃO PROFISSIONAL X FAIXA ETÁRIA
ggplot(Profissionais) +
aes(x = formacaoQP, fill = faixaetaria) +
geom_bar(position = "dodge") +
scale_fill_hue(direction = 1) +
labs(x = "Realização de Formação sobre Qualificação Profissional", y = "Frequência", title = "Realização de Formação sobre Qualificação Profissional x Faixa Etária",
fill = "Faixa Etária") +
theme_minimal() +
theme(plot.title = element_text(size = 16L, face = "bold",
hjust = 0.5), axis.title.y = element_text(face = "bold"), axis.title.x = element_text(face = "bold"))