Tratamento dos dados do Inquérito CM-LRS
Apresentação
1. “Está a usar telemóvel, tablet ou pc ?”
tmv1.freq = table(df$TMV1)
pie(tmv1.freq, main = "Está a usar telemóvel, tablet ou pc ?", col = c("deepskyblue", "yellow2", "green3"), density = 40, angle = 45, labels = tmv1.freq)
legend("topleft", legend = c("Telemóvel", "Tablet", "Computador"),
fill = c("deepskyblue", "green3", "yellow2"), density = 40)
2. “É residente em Loures? Trabalha em Loures? Qual das opções se aplica melhor a si?”
ResLRS.freq <- table(df$ResLRS)
ResLRS.freq_df <- data.frame(ResLRS.freq)
library(ggplot2)
ggplot(data=ResLRS.freq_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.6, position = position_dodge(0.8), fill = "aquamarine4") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(ResLRS.freq_df$Freq)*1.5) +
labs(y=element_blank(), x=element_blank(), title = "Trabalho e moradia") +
theme_classic() +
coord_flip()
Caracterização do indivíduo
3. Idade dos respondentes
hist(df$Idade.do.respondente, main="Idade dos respondentes",
col="green", xlab = "idade", xlim = c(0,100), ylim = c(0,500))
4. Sexo
Freq.sexo <- table(df$A2)
pie(Freq.sexo, main = "Sexo", col= c("green3", "red","cornsilk"), labels = Freq.sexo, edges=100, radius = 1)
legend("topleft", legend = c("Masculino",
"Feminino", "Outro"),
fill = c("green3", "red","cornsilk"), bty= "n")
5. “Qual é a sua principal atividade?”
Freq.atividade <- table(df$A4)
Freq.atividade_df <- data.frame(Freq.atividade)
library(ggplot2)
ggplot(data=Freq.atividade_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "#FF6666") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.atividade_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Principal atividade do respondente") +
theme_classic() +
coord_flip()
6. “Habilitações literárias: Por favor indique o nível de escolaridade mais elevado que completou.”
Freq.escola <- table(df$A3)
Freq.escola_df <- data.frame(Freq.escola)
ggplot(data=Freq.escola_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "#FF9999") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.escola_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nível de escolaridade") +
theme_classic() +
coord_flip()
7. "Em que escalão de rendimentos enquadra o seu agregado familiar?
Freq.rendimentos <- table(df$A5)
Freq.rendimentos_df <- data.frame(Freq.rendimentos)
Freq.rendimentos_df$Var1 <- factor(Freq.rendimentos_df$Var1 ,levels= c("Não sabe","Menos de 430 euros","Entre 430 e menos de 600 euros","Entre 600 e menos de 1.000 euros","Entre 1.000 e menos de 1.500 euros","Entre 1.500 e menos de 2.600 euros","Entre 2.600 e menos de 3.600 euros","Entre 3.600 e menos de 5.700 euros", "Entre 5.700 e menos de 7.000 euros", "7.000 ou mais euros"))
ggplot(data = Freq.rendimentos_df, aes(x= Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "#E69F00") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.rendimentos_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Escalão de redimentos do agregado familiar") +
theme_classic() +
coord_flip()
8. “Tem filhos em idade escolar? (considere crianças dos 3 anos aos 18 anos)”
Freq.filho <- table(df$A6)
pie(Freq.filho, main = "Filhos em idade escolar", col= c("Red", "aquamarine4"), labels = Freq.filho, edges=100, radius = 1)
legend("topleft", legend = c("Sim", "Não"),
fill = c("Red", "aquamarine4"), bty= "n")
9. “Contando consigo, quantas pessoas vivem na sua residência?”
Note: Os “missing values” foram considerados como zero.
crianca <- table(df$A7_SQ001)
crianca_df <- data.frame(crianca)
#tirar valores estranhos
crianca_df$Var1[9] <- NA
crianca_df$Freq[2] <- crianca_df$Freq[2] + crianca_df$Freq[9]
crianca_df <- na.omit(crianca_df)
#adicionar missing data no zero (pop. residente)
crianca_df$Freq[1] <- ResLRS.freq_df$Freq[2] + ResLRS.freq_df$Freq[3] + ResLRS.freq_df$Freq[4] - crianca_df$Freq[2] - crianca_df$Freq[3] - crianca_df$Freq[4] - crianca_df$Freq[5] - crianca_df$Freq[6] - crianca_df$Freq[7] - crianca_df$Freq[8]
ggplot(data=crianca_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = -1, hjust=0.5, size = 4,
position = position_dodge(0)) +
ylim(0, max(crianca_df$Freq)*1.1) +
labs(y="frequência", x= "Quantidade de crianças na residência", title = "Nº crianças (0 - 9 anos)") +
theme_classic() 
adolescentes = table(df$A7_SQ002) #10 - 17
adolescentes_df <- data.frame(adolescentes)
#adicionar missing data no zero (pop. residente)
adolescentes_df$Freq[1] <- ResLRS.freq_df$Freq[2] + ResLRS.freq_df$Freq[3] + ResLRS.freq_df$Freq[4] - adolescentes_df$Freq[2] - adolescentes_df$Freq[3] - adolescentes_df$Freq[4] - adolescentes_df$Freq[5] - adolescentes_df$Freq[6]
ggplot(data=adolescentes_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "green") +
geom_text(aes(label = Freq), vjust = -1, hjust=0.5, size = 4,
position = position_dodge(0)) +
ylim(0, max(adolescentes_df$Freq)*1.1) +
labs(y="frequência", x= "Quantidade de adolescentes na residência", title = "Nº adolescentes (10 - 17 anos)") +
theme_classic() 
adultos = table(df$A7_SQ003) #18 - 64
adultos_df <- data.frame(adultos)
#tirar valores estranhos
adultos_df$Var1[8] <- NA
adultos_df$Freq[4] <- adultos_df$Freq[4] + adultos_df$Freq[8]
adultos_df$Var1[9] <- NA
adultos_df$Freq[5] <- adultos_df$Freq[5] + adultos_df$Freq[9]
adultos_df$Var1[10] <- NA
adultos_df$Freq[6] <- adultos_df$Freq[6] + adultos_df$Freq[10]
adultos_df$Var1[11] <- NA
adultos_df$Freq[7] <- adultos_df$Freq[7] + adultos_df$Freq[11]
adultos_df <- na.omit(adultos_df)
#adicionar missing data no zero (pop. residente)
adultos_df$Freq[1] <- ResLRS.freq_df$Freq[2] + ResLRS.freq_df$Freq[3] + ResLRS.freq_df$Freq[4] - adultos_df$Freq[2] - adultos_df$Freq[3] - adultos_df$Freq[4] - adultos_df$Freq[5] - adultos_df$Freq[6] - adultos_df$Freq[7]
ggplot(data=adultos_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = -1, hjust=0.5, size = 4,
position = position_dodge(0)) +
ylim(0, max(adultos_df$Freq)*1.1) +
labs(y="frequência", x= "Quantidade de adultos na residência", title = "Nº adultos (18 - 64 anos)") +
theme_classic() 
idosos = table(df$A7_SQ004) #Acima de 65
idosos_df <- data.frame(idosos)
#tirar valores estranhos
idosos_df$Var1[6] <- NA
idosos_df$Freq[3] <- idosos_df$Freq[3] + idosos_df$Freq[6]
idosos_df <- na.omit(idosos_df)
#adicionar missing data no zero (pop. residente)
idosos_df$Freq[1] <- ResLRS.freq_df$Freq[2] + ResLRS.freq_df$Freq[3] + ResLRS.freq_df$Freq[4] - idosos_df$Freq[2] - idosos_df$Freq[3] - idosos_df$Freq[4] - idosos_df$Freq[5]
ggplot(data=idosos_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = -1, hjust=0.5, size = 4,
position = position_dodge(0)) +
ylim(0, max(idosos_df$Freq)*1.1) +
labs(y="frequência", x= "Quantidade de idosos na residência", title = "Nº idosos (+ 65 anos)") +
theme_classic() 
Localização origens
10. “Em que freguesia de Loures reside?”
Freq.freguesia <- table(df$O1F123)
Freq.freguesia_df <- data.frame(Freq.freguesia)
ggplot(data=Freq.freguesia_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "#FF6666") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.freguesia_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Freguesia em que reside") +
theme_classic() +
coord_flip()
11. “Por favor indique a localização tão aproximada quanto possível do seu local de residência. Pode indicar o código postal ou em alternativa localizar no mapa.”
# Ver como faz heatmap. (coordenadas e zipcodes) (26,27,28)12. “Por favor indique o seu concelho de residência.”
Freq.concelho <- table(df$O1F4)
Freq.concelho_df <- data.frame(Freq.concelho)
ggplot(data=Freq.concelho_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.concelho_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Concelho em que reside") +
theme_classic() +
coord_flip()
13. “[Outro] Por favor indique o seu concelho de residência.”
Freq.concelho_other <- table(df$O1F4_other)
Freq.concelho_other_df <- data.frame(Freq.concelho_other)
ggplot(data=Freq.concelho_other_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "yellow") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.concelho_other_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Concelho em que reside (Outro)") +
theme_classic() +
coord_flip()
14. “Por favor indique a localização tão aproximada quanto possível do seu local de residência. Pode indicar o código postal ou em alternativa indicar o local no mapa.”
#31-34Localização Destinos
15. “Em que concelho trabalha ou estuda?”
Freq.trabalho <- table(df$D1F2)
Freq.trabalho_df <- data.frame(Freq.trabalho)
ggplot(data=Freq.trabalho_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.trabalho_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Concelho em que trabalha ou estuda") +
theme_classic() +
coord_flip()
16. “[Outro] Em que concelho trabalha ou estuda?”
Freq.trabalho_other <- table(df$D1F2_other)
Freq.trabalho_other_df <- data.frame(Freq.trabalho_other)
ggplot(data=Freq.trabalho_other_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "pink") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.trabalho_other_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Concelho em que trabalha ou estuda (Outro)") +
theme_classic() +
coord_flip()
17. “Por favor indique em que freguesia de Loures trabalha ou estuda.”
Freq.freg_trabalho <- table(df$D1F14)
Freq.freg_trabalho_df <- data.frame(Freq.freg_trabalho)
ggplot(data=Freq.freg_trabalho_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.freg_trabalho_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Freguesia em que trabalha ou estuda") +
theme_classic() +
coord_flip()
18. “Por favor indique a localização tão aproximada quanto possível do seu local de trabalho/estudo. Pode indicar o código postal ou em alternativa localizar no mapa.”
#38 - 4119. “Qual considera ser o seu principal motivo de viagem ?”
Freq.viagem <- table(df$D5F3)
Freq.viagem_df <- data.frame(Freq.viagem)
ggplot(data=Freq.viagem_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.viagem_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Motivo de viagem") +
theme_classic() +
coord_flip()
20. “[Outro] Qual considera ser o seu principal motivo de viagem ?”
Freq.viagem_other <- table(df$D5F3_other)
Freq.viagem_other_df <- data.frame(Freq.viagem_other)
ggplot(data=Freq.viagem_other_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.viagem_other_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Motivo de viagem (Outro)") +
theme_classic() +
coord_flip()
21. “Onde se localiza o destino da principal viagem indicada?”
Freq.destino <- table(df$D6F3)
Freq.destino_df <- data.frame(Freq.destino)
ggplot(data=Freq.destino_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightgrey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.destino_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Localização do destino da viagem") +
theme_classic() +
coord_flip()
22. “Freguesia de destino”
Freq.freg_destino <- table(df$D7F3)
Freq.freg_destino_df <- data.frame(Freq.freg_destino)
ggplot(data=Freq.freg_destino_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.freg_destino_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Freguesia de destino") +
theme_classic() +
coord_flip()
Padrões de mobilidade
23. “Tem alguma limitação física que dificulte as suas deslocações para fora de casa?”
Freq.fisico <- table(df$M1)
Freq.fisico_df <- data.frame(Freq.fisico)
ggplot(data=Freq.fisico_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.fisico_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Limitação física") +
theme_classic() +
coord_flip()
24. “Indique o número de veículos disponíveis para as deslocações das pessoas residentes no alojamento. Não inclua bicicletas de criança nem veículos de coleção não utilizados habitualmente. Inclua veículos em leasing e das empresas à disposição das pessoas residentes.”
automovel <- table(df$M10_SQ001)
automovel_df <- data.frame(automovel)
ggplot(data=automovel_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = -1, hjust=0.5, size = 4,
position = position_dodge(0)) +
ylim(0, max(automovel_df$Freq)*1.1) +
labs(y="frequência", x= "Quantidade de automóveis disponíveis", title = "Nº Automóveis") +
theme_classic() 
mercadorias = table(df$M10_SQ002)
mercadorias_df <- data.frame(mercadorias)
ggplot(data=mercadorias_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "green") +
geom_text(aes(label = Freq), vjust = -1, hjust=0.5, size = 4,
position = position_dodge(0)) +
ylim(0, max(mercadorias_df$Freq)*1.1) +
labs(y="frequência", x= "Quantidade de veículos ligeiros de mercadorias disponíveis", title = "Nº veículos ligeiros de mercadorias (comercial ou misto)") +
theme_classic() 
motociclo = table(df$M10_SQ003)
motociclo_df <- data.frame(motociclo)
ggplot(data=motociclo_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = -1, hjust=0.5, size = 4,
position = position_dodge(0)) +
ylim(0, max(motociclo_df$Freq)*1.1) +
labs(y="frequência", x= "Quantidade de motociclos ou ciclomotors", title = "Nº de motociclos ou ciclomotors") +
theme_classic() 
bicicleta = table(df$M10_SQ005)
bicicleta_df <- data.frame(bicicleta)
ggplot(data=bicicleta_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = -1, hjust=0.5, size = 4,
position = position_dodge(0)) +
ylim(0, max(bicicleta_df$Freq)*1.1) +
labs(y="frequência", x= "Quantidade de bicicletas convencionais disponíveis", title = "Nº bicicletas convencionais") +
theme_classic() 
bike_eletrica = table(df$M10_SQ009)
bike_eletrica_df <- data.frame(bike_eletrica)
ggplot(data=bike_eletrica_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = -1, hjust=0.5, size = 4,
position = position_dodge(0)) +
ylim(0, max(bike_eletrica_df$Freq)*1.1) +
labs(y="frequência", x= "Quantidade de bicicletas elétricas disponíveis", title = "Nº bicicletas elétricas") +
theme_classic() 
trotineta = table(df$M10_SQ008)
trotineta_df <- data.frame(trotineta)
ggplot(data=trotineta_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = -1, hjust=0.5, size = 4,
position = position_dodge(0)) +
ylim(0, max(trotineta_df$Freq)*1.1) +
labs(y="frequência", x= "Quantidade de trotinetas disponíveis", title = "Nº trotinetas") +
theme_classic() 
25. “Possui carta de condução de veículos ligeiros? (Categoria B)”
Freq.carta <- table(df$M20)
Freq.carta_df <- data.frame(Freq.carta)
ggplot(data=Freq.carta_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.carta_df$Freq)*1.5) +
labs(y=element_blank(), x= element_blank(), title = "Possui carta de condução (B)") +
theme_classic() +
coord_flip()
26. “Com que frequência conduz um automóvel?”
Freq.conduz <- table(df$M21)
Freq.conduz_df <- data.frame(Freq.conduz)
ggplot(data=Freq.conduz_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.conduz_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Frequência que conduz um automóvel") +
theme_classic() +
coord_flip()
27. “Na última semana com que frequência utilizou cada um destes modos de transporte? Considere”Andar a pé" como deslocações feitas exclusivamente a pé num percurso superior a 200m."
Freq.autoweek <- table(df$M30_SQ001)
Freq.autoweek_df <- data.frame(Freq.autoweek)
ggplot(data=Freq.autoweek_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.autoweek_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Frequência na última semana (Condutor)") +
theme_classic() +
coord_flip()
Freq.autoweek_pass <- table(df$M30_SQ002)
Freq.autoweek_pass_df <- data.frame(Freq.autoweek_pass)
ggplot(data=Freq.autoweek_pass_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.autoweek_pass_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Frequência na última semana (Passageiro)") +
theme_classic() +
coord_flip()
Freq.autocarroweek <- table(df$M30_SQ003)
Freq.autocarroweek_df <- data.frame(Freq.autocarroweek)
ggplot(data=Freq.autocarroweek_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.autocarroweek_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Frequência na última semana (Autocarro)") +
theme_classic() +
coord_flip()
Freq.comboioweek <- table(df$M30_SQ004)
Freq.comboioweek_df <- data.frame(Freq.comboioweek)
ggplot(data=Freq.comboioweek_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.comboioweek_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Frequência na última semana (comboio)") +
theme_classic() +
coord_flip()
Freq.metroweek <- table(df$M30_SQ005)
Freq.metroweek_df <- data.frame(Freq.metroweek)
ggplot(data=Freq.metroweek_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.metroweek_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Frequência na última semana (metropolitano)") +
theme_classic() +
coord_flip()
Freq.walkweek <- table(df$M30_SQ008)
Freq.walkweek_df <- data.frame(Freq.walkweek)
ggplot(data=Freq.walkweek_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "green") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.walkweek_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Frequência na última semana (andar a pé)") +
theme_classic() +
coord_flip()
Freq.bikeweek <- table(df$M30_SQ006)
Freq.bikeweek_df <- data.frame(Freq.bikeweek)
ggplot(data=Freq.bikeweek_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "yellow") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.bikeweek_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Frequência na última semana (bicicleta)") +
theme_classic() +
coord_flip()
Freq.mpweek <- table(df$M30_SQ007)
Freq.mpweek_df <- data.frame(Freq.mpweek)
ggplot(data=Freq.mpweek_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.mpweek_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Frequência na última semana (mob. partilh.)") +
theme_classic() +
coord_flip()
28. “Sabe andar de bicicleta?”
Freq.bike <- table(df$Bike1)
Freq.bike_df <- data.frame(Freq.bike)
ggplot(data=Freq.bike_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.bike_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Sabe andar de bicicleta") +
theme_classic() +
coord_flip()
29. “Como se classificaria quanto à utilização da bicicleta no seu dia-a-dia? Com qual destes grupos mais se identifica:”
Freq.bike2 <- table(df$Bike2)
Freq.bike2_df <- data.frame(Freq.bike2)
ggplot(data=Freq.bike2_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.bike2_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Classificação da utilização de bicicleta") +
theme_classic() +
coord_flip()
Desinteressado/a: Não tenho qualquer interesse em andar de bicicleta no dia-a-dia.
Interessado/a mas renitente: Até posso andar de bicicleta mas apenas se houver ciclovia.
Entusiasmado/a: Prefiro andar de bicicleta em ciclovia mas tenho confiança para andar na estrada.
Destemido/a: Estou disposto/a a andar de bicicleta em qualquer local e condições de tráfego.
Mobilidade pendular
30. “Qual considera ser o seu modo de transporte principal para as viagens casa-trabalho / casa-escola? Considere o pleno funcionamento da sua atividade, isto é, sem as limitações de movimento do Estado de Emergência. Considere como modo de transporte principal o que utiliza para vencer a distância mais longa da sua viagem.”
Freq.tran_pand <- table(df$M40)
Freq.tran_pand_df <- data.frame(Freq.tran_pand)
ggplot(data=Freq.tran_pand_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.tran_pand_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Modo principal - Sem restrições") +
theme_classic() +
coord_flip()
31. “[Outro] Qual considera ser o seu modo de transporte principal para as viagens casa-trabalho / casa-escola? Considere o pleno funcionamento da sua atividade, isto é, sem as limitações de movimento do Estado de Emergência. Considere como modo de transporte principal o que utiliza para vencer a distância mais longa da sua viagem.”
Freq.tran_pand_other <- table(df$M40_other)
Freq.tran_pand_other_df <- data.frame(Freq.tran_pand_other)
knitr::kable(Freq.tran_pand_other_df)| Var1 | Freq |
|---|---|
| -. | 1 |
| A pé | 1 |
| Ainda estou a trabalhar em casa | 1 |
| Andar a pé autocarro. | 1 |
| Autocarro e Metropolitano | 1 |
| camioneta-metropolitano | 1 |
| Carro e a pé | 1 |
| E carro no total são 3 transportes | 1 |
| Idealmente iria apenas de bicicleta, mas com as condições/ ciclovias que existe hoje em dia, a melhor maneira de ir para o trabalho é a combinação de transportes públicos. | 1 |
| Metro | 1 |
| Mota | 4 |
| Moto | 1 |
| motociclo | 2 |
| Motociclo | 2 |
| Não há horário até mais tarde para autocarro | 1 |
| Rodoviária, Carris e Comboio | 1 |
| trabalha em casa | 1 |
| Trabalha em casa | 1 |
| Trotinete elétrica | 1 |
32. “Quanto tempo demora em média a sua deslocação casa-trabalho ou casa-escola ? Considere o trajeto só de IDA, do momento que sai de casa ao momento que chega ao seu destino.”
Freq.tempo_pand <- table(df$M41)
Freq.tempo_pand_df <- data.frame(Freq.tempo_pand)
ggplot(data=Freq.tempo_pand_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.tempo_pand_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Tempo de viagem - Sem restrições") +
theme_classic() +
coord_flip()
33. “Quanto tempo demora a chegar à paragem/estação de seu transporte? Considere a viagem a pé casa-transporte. Se utilizar vários transportes considere o primeiro que apanha. Se se deslocar de carro tente estimar quanto demoraria o percurso a andar a pé.”
Freq.tempo_acsTP <- table(df$M50)
Freq.tempo_acsTP_df <- data.frame(Freq.tempo_acsTP)
ggplot(data=Freq.tempo_acsTP_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.tempo_acsTP_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Tempo de acesso ao TP - Sem restrições") +
theme_classic() +
coord_flip()
34. “Quanto tempo costuma esperar pelo transporte público na paragem/estação na sua viagem casa-trabalho / casa-escola (em média)? Se utiliza mais do que um transporte na sua viagem, considere o tempo de espera para apanhar o primeiro transporte.”
Freq.tempo_esperaTP <- table(df$M501)
Freq.tempo_esperaTP_df <- data.frame(Freq.tempo_esperaTP)
ggplot(data=Freq.tempo_esperaTP_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.tempo_esperaTP_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Tempo de espera ao TP - Sem restrições") +
theme_classic() +
coord_flip()
35 “Tem de mudar de transporte na sua viagem? Quantos transbordos realiza na deslocação casa-trabalho ou casa-escola? Considere como transbordo uma mudança de transporte, quer no mesmo modo (p.ex. carreiras de autocarro) quer em modos diferentes (p.ex. autocarro e comboio)”
Freq.transbordoTP <- table(df$M510)
Freq.transbordoTP_df <- data.frame(Freq.transbordoTP)
ggplot(data=Freq.transbordoTP_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.tempo_esperaTP_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de transbordos") +
theme_classic() +
coord_flip()
36 “Que tipo de transbordos realiza na sua viagem”
Freq.transb_autocarro <- table(df$M51_SQ001)
Freq.transb_autocarro_df <- data.frame(Freq.transb_autocarro)
ggplot(data=Freq.transb_autocarro_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "green") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.transb_autocarro_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Entre carreiras de autocarro [transbordo]") +
theme_classic() +
coord_flip()
Freq.transb_metro <- table(df$M51_SQ002)
Freq.transb_metro_df <- data.frame(Freq.transb_metro)
ggplot(data=Freq.transb_metro_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.transb_metro_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Entre linhas de metro [transbordo]") +
theme_classic() +
coord_flip()
Freq.transb_comboio <- table(df$M51_SQ003)
Freq.transb_comboio_df <- data.frame(Freq.transb_comboio)
ggplot(data=Freq.transb_comboio_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.transb_comboio_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Entre linhas de comboio [transbordo]") +
theme_classic() +
coord_flip()
Freq.transb_busmetro <- table(df$M51_SQ004)
Freq.transb_busmetro_df <- data.frame(Freq.transb_busmetro)
ggplot(data=Freq.transb_busmetro_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.transb_busmetro_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Entre autocarro e metro [transbordo]") +
theme_classic() +
coord_flip()
Freq.transb_autocomboio <- table(df$M51_SQ005)
Freq.transb_autocomboio_df <- data.frame(Freq.transb_autocomboio)
ggplot(data=Freq.transb_autocomboio_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.transb_autocomboio_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Entre autocarro e comboio [transbordo]") +
theme_classic() +
coord_flip()
Freq.transb_comboiometro <- table(df$M51_SQ006)
Freq.transb_comboiometro_df <- data.frame(Freq.transb_comboiometro)
ggplot(data=Freq.transb_comboiometro_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.transb_comboiometro_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Entre comboio e metro [transbordo]") +
theme_classic() +
coord_flip()
37 “Quanto tempo costuma demorar em média a realizar o(s) transbordo(s) indicado(s)? Se realizar mais de um transbordo considere o transbordo para o modo de transporte principal da sua viagem (isto é, o que percorre maior distância).Considere como tempo de transbordo o momento desde que sai de um transporte ao momento em que entra no transporte seguinte.”
Freq.transb_tempo <- table(df$M52)
Freq.transb_tempo_df <- data.frame(Freq.transb_tempo)
ggplot(data=Freq.transb_tempo_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.transb_tempo_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Tempo para realizar transbordo") +
theme_classic() +
coord_flip()
38 “Qual o título de transporte que mais tem utilizado? Considere o pleno funcionamento da sua atividade, isto é, sem as limitações de movimento do Estado de Emergência.”
Freq.passe <- table(df$M53)
Freq.passe_df <- data.frame(Freq.passe)
ggplot(data=Freq.passe_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.passe_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Título de transporte") +
theme_classic() +
coord_flip()
39 “Como estaciona habitualmente no seu local de trabalho?”
Freq.estacionamento <- table(df$M60)
Freq.estacionamento_df <- data.frame(Freq.estacionamento)
ggplot(data=Freq.estacionamento_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.estacionamento_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Estacionamento [trabalho]") +
theme_classic() +
coord_flip()
40 “E no seu local de residência, como estaciona habitualmente?”
Freq.estacionamento_res <- table(df$M61)
Freq.estacionamento_res_df <- data.frame(Freq.estacionamento_res)
ggplot(data=Freq.estacionamento_res_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.estacionamento_res_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Estacionamento [residência]") +
theme_classic() +
coord_flip()
41 “Combustível: Quanto costuma gastar em média por mês em combustível? Considere um mês normal de trabalho sem as restrições de circulação impostas pelo Estado de Emergência”
Freq.custocomb <- table(df$M62)
Freq.custocomb_df <- data.frame(Freq.custocomb)
ggplot(data=Freq.custocomb_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.custocomb_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Custo em combustível por mês") +
theme_classic() +
coord_flip()
42 “Estacionamento: Quanto costuma gastar em média por mês em estacionamento? Inclua o custo das avenças / dísticos aplicáveis. Considere também os custos de parqueamento relacionados com compras, recreio, etc.”
Freq.custoesta <- table(df$M63)
Freq.custoesta_df <- data.frame(Freq.custoesta)
ggplot(data=Freq.custocomb_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.custoesta_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Custo do estacionamento por mês") +
theme_classic() +
coord_flip()
43 "“Portagens: Quanto costuma gastar por mês em portagens? Não inclua as portagens relativas a viagens de turismo, recreio e lazer.”
Freq.custoportagem <- table(df$M64)
Freq.custoportagem_df <- data.frame(Freq.custoportagem)
ggplot(data=Freq.custoportagem_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.custoportagem_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Custo de portagem por mês") +
theme_classic() +
coord_flip()
44 “Considere o caminho que faz a pé na deslocação casa-trabalho ou casa-escola. Em que medida concorda com estas afirmações:”
Freq.walk1 <- table(df$M71_SQ001)
Freq.walk1_df <- data.frame(Freq.walk1)
ggplot(data=Freq.walk1_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.walk1_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Caminho accessível para caminhar") +
theme_classic() +
coord_flip()
Freq.walk2 <- table(df$M71_SQ002)
Freq.walk2_df <- data.frame(Freq.walk2)
ggplot(data=Freq.walk2_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.walk2_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Caminho seguro para caminhar") +
theme_classic() +
coord_flip()
Freq.walk3 <- table(df$M71_SQ003)
Freq.walk3_df <- data.frame(Freq.walk3)
ggplot(data=Freq.walk3_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "yellow") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.walk3_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Caminho agradável para caminhar") +
theme_classic() +
coord_flip()
45 “Considere a sua deslocação em automóvel como passageiro na viagem casa-trabalho ou casa-escola. Em que medida concorda com estas afirmações:”
Freq.passageiro1 <- table(df$M73_SQ001)
Freq.passageiro1_df <- data.frame(Freq.passageiro1)
ggplot(data=Freq.passageiro1_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.passageiro1_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Poderia fazer o caminho a pé") +
theme_classic() +
coord_flip()
Freq.passageiro2 <- table(df$M73_SQ002)
Freq.passageiro2_df <- data.frame(Freq.passageiro2)
ggplot(data=Freq.passageiro2_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.passageiro2_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Poderia fazer o caminho de bicicleta") +
theme_classic() +
coord_flip()
Freq.passageiro3 <- table(df$M73_SQ003)
Freq.passageiro3_df <- data.frame(Freq.passageiro3)
ggplot(data=Freq.passageiro3_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.passageiro3_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Poderia fazer o caminho de transporte público") +
theme_classic() +
coord_flip()
Freq.passageiro4 <- table(df$M73_SQ004)
Freq.passageiro4_df <- data.frame(Freq.passageiro4)
ggplot(data=Freq.passageiro4_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.passageiro4_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "O condutor utilizaria o carro da mesma forma") +
theme_classic() +
coord_flip()
46 “Considere o caminho que faz de bicicleta na deslocação casa-trabalho ou casa-escola. Em que medida concorda com estas afirmações:”
Freq.bike1 <- table(df$M72_SQ001)
Freq.bike1_df <- data.frame(Freq.bike1)
ggplot(data=Freq.bike1_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.bike1_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "O caminho é adequado para andar de bicicleta") +
theme_classic() +
coord_flip()
Freq.bike2 <- table(df$M72_SQ002)
Freq.bike2_df <- data.frame(Freq.bike2)
ggplot(data=Freq.bike2_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.bike2_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "O caminho é seguro para andar de bicicleta (face ao trânsito)") +
theme_classic() +
coord_flip()
Freq.bike3 <- table(df$M72_SQ003)
Freq.bike3_df <- data.frame(Freq.bike3)
ggplot(data=Freq.bike3_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.bike3_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "O caminho é agradável para andar de bicicleta") +
theme_classic() +
coord_flip()
Freq.bike4 <- table(df$M72_SQ004)
Freq.bike4_df <- data.frame(Freq.bike4)
ggplot(data=Freq.bike4_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "yellow") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.bike4_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Possui local seguro para parquear a bicicleta no destino") +
theme_classic() +
coord_flip()
Freq.bike5 <- table(df$M72_SQ005)
Freq.bike5_df <- data.frame(Freq.bike5)
ggplot(data=Freq.bike5_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.bike5_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Possui local seguro para parquear a bicicleta na residência") +
theme_classic() +
coord_flip()
Mobilidade senior et al.
47 “Ontem saiu de casa? (mesmo para uma curta deslocação a pé)”
casa = table(df$S1)
pie(casa, main = "Ontem saiu de casa? (mesmo para uma curta deslocação a pé)", col = c("deepskyblue", "green3"), labels = casa)
legend("topleft", legend = c("Sim", "Não"),
fill = c("deepskyblue", "green3"))
48 “Por que motivo não fez qualquer deslocação ontem?”
Freq.nao <- table(df$S11)
Freq.nao_df <- data.frame(Freq.nao)
ggplot(data=Freq.nao_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.nao_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Motivo que não fez qualquer deslocação ontem?") +
theme_classic() +
coord_flip()
49 “[Outro] Por que motivo não fez qualquer deslocação ontem?”
Não possui respostas.
50 “Que atividades realizou ontem?”
Freq.levar <- table(df$S2_SQ001)
Freq.levar_df <- data.frame(Freq.levar)
ggplot(data=Freq.levar_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.levar_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Levar/acompanhar familiares ou amigos") +
theme_classic() +
coord_flip()
Freq.visitar <- table(df$S2_SQ002)
Freq.visitar_df <- data.frame(Freq.visitar)
ggplot(data=Freq.visitar_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.visitar_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Visitar familiares ou amigos") +
theme_classic() +
coord_flip()
Freq.compras <- table(df$S2_SQ003)
Freq.compras_df <- data.frame(Freq.compras)
ggplot(data=Freq.compras_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "yellow") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.compras_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Fazer compras") +
theme_classic() +
coord_flip()
Freq.medico <- table(df$S2_SQ004)
Freq.medico_df <- data.frame(Freq.medico)
ggplot(data=Freq.medico_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.medico_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Ir ao médico, consulta, etc") +
theme_classic() +
coord_flip()
Freq.pessoal <- table(df$S2_SQ005)
Freq.pessoal_df <- data.frame(Freq.pessoal)
ggplot(data=Freq.pessoal_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.pessoal_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Tratar de assuntos pessoais") +
theme_classic() +
coord_flip()
Freq.bar <- table(df$S2_SQ006)
Freq.bar_df <- data.frame(Freq.bar)
ggplot(data=Freq.bar_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.bar_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Ir a um café, bar ou restaurante") +
theme_classic() +
coord_flip()
Freq.grupo <- table(df$S2_SQ007)
Freq.grupo_df <- data.frame(Freq.grupo)
ggplot(data=Freq.grupo_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.grupo_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Ir a atividades em grupos (e.g., igreja)") +
theme_classic() +
coord_flip()
Freq.passear <- table(df$S2_SQ008)
Freq.passear_df <- data.frame(Freq.passear)
ggplot(data=Freq.passear_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "black") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.passear_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Caminhar ou passear com o cachorro") +
theme_classic() +
coord_flip()
Freq.fisica <- table(df$S2_SQ010)
Freq.fisica_df <- data.frame(Freq.fisica)
ggplot(data=Freq.fisica_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "yellow") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.fisica_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Fazer atividade física no ginásio ou ar livre") +
theme_classic() +
coord_flip()
Freq.lazer <- table(df$S2_SQ009)
Freq.lazer_df <- data.frame(Freq.lazer)
ggplot(data=Freq.lazer_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.lazer_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Fazer outra atividade física") +
theme_classic() +
coord_flip()
51 “Como se deslocou ontem para:”
Freq.levar_tr <- table(df$S201)
Freq.levar_tr_df <- data.frame(Freq.levar_tr)
ggplot(data=Freq.levar_tr_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.levar_tr_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Levar familiares ou amigos") +
theme_classic() +
coord_flip()
Freq.levar_tr_other <- table(df$S201_other)
Freq.levar_tr_other_df <- data.frame(Freq.levar_tr_other)
ggplot(data=Freq.levar_tr_other_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.levar_tr_other_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Levar familiares ou amigos [outro]") +
theme_classic() +
coord_flip()
Freq.visitar_tr <- table(df$S202)
Freq.visitar_tr_df <- data.frame(Freq.visitar_tr)
ggplot(data=Freq.visitar_tr_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.visitar_tr_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Visitar familiares ou amigos") +
theme_classic() +
coord_flip()
Freq.visitar_tr_other <- table(df$S202_other)
Freq.visitar_tr_other_df <- data.frame(Freq.visitar_tr_other)
ggplot(data=Freq.visitar_tr_other_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.visitar_tr_other_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Visitar familiares ou amigos [outro]") +
theme_classic() +
coord_flip()
Freq.compras_tr <- table(df$S203)
Freq.compras_tr_df <- data.frame(Freq.compras_tr)
ggplot(data=Freq.compras_tr_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "yellow") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.compras_tr_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Fazer compras") +
theme_classic() +
coord_flip()
# Freq.compras_tr_other <- table(df$S203_other)
# Freq.compras_tr_other_df <- data.frame(Freq.compras_tr_other)
# ggplot(data=Freq.compras_tr_other_df, aes(x=reorder(Var1,Freq), y=Freq)) +
# geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "green") +
# geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
# position = position_dodge(0.5)) +
# ylim(0, max(Freq.compras_tr_other_df$Freq)*1.1) +
# labs(y=element_blank(), x= element_blank(), title = "Fazer compras [other]") +
# theme_classic() +
# coord_flip()
Freq.medico_tr <- table(df$S204)
Freq.medico_tr_df <- data.frame(Freq.medico_tr)
ggplot(data=Freq.medico_tr_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.medico_tr_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Ir ao médico, consulta, etc") +
theme_classic() +
coord_flip()
# Freq.medico_tr_other <- table(df$S204_other)
# Freq.medico_tr_other_df <- data.frame(Freq.medico_tr_other)
# ggplot(data=Freq.medico_tr_other_df, aes(x=reorder(Var1,Freq), y=Freq)) +
# geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
# geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
# position = position_dodge(0.5)) +
# ylim(0, max(Freq.medico_tr_other_df$Freq)*1.1) +
# labs(y=element_blank(), x= element_blank(), title = "Ir ao médico, consulta, etc [other]") +
# theme_classic() +
# coord_flip()
Freq.pessoal_tr <- table(df$S205)
Freq.pessoal_tr_df <- data.frame(Freq.pessoal_tr)
ggplot(data=Freq.pessoal_tr_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.pessoal_tr_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Tratar de assuntos pessoais") +
theme_classic() +
coord_flip()
# Freq.pessoal_tr_other <- table(df$S205_other)
# Freq.pessoal_tr_other_df <- data.frame(Freq.pessoal_tr_other)
# ggplot(data=Freq.pessoal_tr_other_df, aes(x=reorder(Var1,Freq), y=Freq)) +
# geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
# geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
# position = position_dodge(0.5)) +
# ylim(0, max(Freq.pessoal_tr_other_df$Freq)*1.1) +
# labs(y=element_blank(), x= element_blank(), title = "Tratar de assuntos pessoais [other]") +
# theme_classic() +
# coord_flip()
Freq.bar_tr <- table(df$S206)
Freq.bar_tr_df <- data.frame(Freq.bar_tr)
ggplot(data=Freq.bar_tr_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.bar_tr_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Ir a um café, bar ou restaurante") +
theme_classic() +
coord_flip()
# Freq.bar_tr_other <- table(df$S206_other)
# Freq.bar_tr_other_df <- data.frame(Freq.bar_tr_other)
# ggplot(data=Freq.bar_tr_other_df, aes(x=reorder(Var1,Freq), y=Freq)) +
# geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "black") +
# geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
# position = position_dodge(0.5)) +
# ylim(0, max(Freq.bar_tr_other_df$Freq)*1.1) +
# labs(y=element_blank(), x= element_blank(), title = "Ir a um café, bar ou restaurante [other]") +
# theme_classic() +
# coord_flip()
Freq.grupo_tr <- table(df$S207)
Freq.grupo_tr_df <- data.frame(Freq.grupo_tr)
ggplot(data=Freq.grupo_tr_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.grupo_tr_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Ir a atividades em grupos (e.g., igreja)") +
theme_classic() +
coord_flip()
# Freq.grupo_tr_other <- table(df$S207_other)
# Freq.grupo_tr_other_df <- data.frame(Freq.grupo_tr_other)
# ggplot(data=Freq.grupo_tr_other_df, aes(x=reorder(Var1,Freq), y=Freq)) +
# geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
# geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
# position = position_dodge(0.5)) +
# ylim(0, max(Freq.grupo_tr_other_df$Freq)*1.1) +
# labs(y=element_blank(), x= element_blank(), title = "Ir a atividades em grupos (e.g., igreja)[other]") +
# theme_classic() +
# coord_flip()
Freq.fisica_tr <- table(df$S208)
Freq.fisica_tr_df <- data.frame(Freq.fisica_tr)
ggplot(data=Freq.fisica_tr_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "yellow") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.fisica_tr_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Fazer atividade física no ginásio ou ar livre") +
theme_classic() +
coord_flip()
# Freq.fisica_tr_other <- table(df$S208_other)
# Freq.fisica_tr_other_df <- data.frame(Freq.fisica_tr_other)
# ggplot(data=Freq.fisica_tr_other_df, aes(x=reorder(Var1,Freq), y=Freq)) +
# geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
# geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
# position = position_dodge(0.5)) +
# ylim(0, max(Freq.fisica_tr_other_df$Freq)*1.1) +
# labs(y=element_blank(), x= element_blank(), title = "Fazer atividade física") +
# theme_classic() +
# coord_flip()
Freq.lazer_tr <- table(df$S209)
Freq.lazer_tr_df <- data.frame(Freq.lazer_tr)
ggplot(data=Freq.lazer_tr_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.lazer_tr_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Fazer outra atividade física") +
theme_classic() +
coord_flip()
# Freq.lazer_tr_other <- table(df$S209_other)
# Freq.lazer_tr_other_df <- data.frame(Freq.lazer_tr_other)
# ggplot(data=Freq.lazer_tr_other_df, aes(x=reorder(Var1,Freq), y=Freq)) +
# geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
# geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
# position = position_dodge(0.5)) +
# ylim(0, max(Freq.lazer_tr_other_df$Freq)*1.1) +
# labs(y=element_blank(), x= element_blank(), title = "Fazer outra atividade física [other]") +
# theme_classic() +
# coord_flip()obs: Todos os “Outro” que possuem # no código não obtiveram respostas.
52 “Como classifica o acesso a pé, desde a sua casa até parques urbanos, jardins ou espaços verdes?”
Freq.acessope <- table(df$S4)
Freq.acessope_df <- data.frame(Freq.acessope)
ggplot(data=Freq.acessope_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.acessope_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Espaços verdes") +
theme_classic() +
coord_flip()
53 “Como classifica o acesso a pé, desde a sua casa até às paragens de transporte público?”
Freq.peTP <- table(df$S5)
Freq.peTP_df <- data.frame(Freq.peTP)
ggplot(data=Freq.peTP_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.peTP_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Paragens de TP") +
theme_classic() +
coord_flip()
54 “Como classifica o acesso a pé, desde a sua casa até às lojas de produtos essenciais (alimentação, farmácia, etc.)?”
Freq.peloja <- table(df$S6)
Freq.peloja_df <- data.frame(Freq.peloja)
ggplot(data=Freq.peloja_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.peloja_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Lojas essenciais") +
theme_classic() +
coord_flip()
Mobilidade escolar
55 “Atualmente, quantos filhos é que tem a frequentar a escola? Considere a frequência do ensino pré-escolar ao secundário (12º ano), quer no sistema público quer no sistema privado. Para as questões seguintes: Se tem mais de 3 filhos considere apenas os mais novos.”
Freq.nfilho <- table(df$M80)
Freq.nfilho_df <- data.frame(Freq.nfilho)
ggplot(data=Freq.nfilho_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.nfilho_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº filhos a frequentar escola") +
theme_classic() +
coord_flip()
56 “Filho/a 1) Qual a idade do seu filho/a?”
Freq.idadefilho <- table(df$M810)
Freq.idadefilho_df <- data.frame(Freq.idadefilho)
ggplot(data=Freq.idadefilho_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.idadefilho_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Idade do seu filho/a (F1)") +
theme_classic() +
coord_flip()
57 “Filho/a 1) Qual o modo habitual de deslocação do seu filho/a para a escola (viagem de IDA)?”
Freq.modofilho <- table(df$M811)
Freq.modofilho_df <- data.frame(Freq.modofilho)
ggplot(data=Freq.modofilho_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "yellow") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.modofilho_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Ida do/a filho/a a escola (F1)") +
theme_classic() +
coord_flip()
58 “Filho/a 1) Qual o modo habitual de deslocação do seu filho/a da escola para casa (viagem de VOLTA)?”
Freq.modofilhov <- table(df$M812)
Freq.modofilhov_df <- data.frame(Freq.modofilhov)
ggplot(data=Freq.modofilhov_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.modofilhov_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Volta do/a filho/a a escola (F1)") +
theme_classic() +
coord_flip()
59 “A escola do Filho/a 1 localiza-se: Considere como”Perto" uma distância até 1000m, ou seja, até 15 minutos a andar a pé. Caso a escola se localize em concelho/freguesia fora da área de residência indique qual a freguesia na opção “Outro:”
Freq.siteescola1 <- table(df$M813_SQ001)
Freq.siteescola1_df <- data.frame(Freq.siteescola1)
ggplot(data=Freq.siteescola1_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "green") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.siteescola1_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Perto do local de residência da criança (F1)") +
theme_classic() +
coord_flip()
Freq.siteescola2 <- table(df$M813_SQ002)
Freq.siteescola2_df <- data.frame(Freq.siteescola2)
ggplot(data=Freq.siteescola2_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.siteescola2_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Perto do local de trabalho de um dos pais (F1)") +
theme_classic() +
coord_flip()
Freq.siteescola3 <- table(df$M813_SQ003)
Freq.siteescola3_df <- data.frame(Freq.siteescola3)
ggplot(data=Freq.siteescola3_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.siteescola3_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Perto do local de residência do cuidador (F1)") +
theme_classic() +
coord_flip()
60 “A escola do Filho/a 1 localiza-se:”Outro"
Freq.siteescola_other <- table(df$M813_other)
Freq.siteescola_other_df <- data.frame(Freq.siteescola_other)
knitr::kable(Freq.siteescola_other_df)| Var1 | Freq |
|---|---|
| 15 m carro da residência da criança | 1 |
| 15 minutos de bicicleta | 1 |
| 20 minutos de carro | 1 |
| 2000m | 1 |
| 2500 | 1 |
| 3 km da residência | 1 |
| 3 kms de casa | 1 |
| 3km | 1 |
| 4 km | 1 |
| 4km | 1 |
| 4km casa | 1 |
| 5km | 2 |
| 7km | 1 |
| a + 5km da residência | 1 |
| a 4 km de casa | 1 |
| A escola fica a 15m de Carro | 1 |
| A escola fica a 5kms de casa é impossível ir a pé | 1 |
| A escola secundária fica a cerca de 3Km da residência3 | 1 |
| A meio caminho entre a residência e o emprego | 1 |
| Agrupamento que já frequentava | 1 |
| Alcabideche | 1 |
| Alfragide | 1 |
| Antigo trabalho | 1 |
| Atl | 1 |
| Belém | 1 |
| Bobadela | 1 |
| Campo Grande | 1 |
| Carnide | 1 |
| centro de lisboa | 1 |
| Concelho Lisboa | 1 |
| Distância superior 3 kms | 1 |
| Distante tanto do local de trabalho como também da residência | 1 |
| Em Lisboa | 1 |
| escola entre trabalho e casa | 1 |
| Escola Póvoa Santo Adriao | 1 |
| Escola Secundária de Loures | 1 |
| Estoril | 1 |
| Estuda a 10km do seu local de residência | 1 |
| Expo | 1 |
| fica em casa | 2 |
| Fora da freguesia | 1 |
| Freguesia fora da área de residência | 1 |
| Instituto Superior Técnico | 1 |
| lisboa | 1 |
| Lisboa | 16 |
| LISBOA | 1 |
| Lisboa, Alvalade | 1 |
| Lisboa/ Lumiar | 1 |
| longe (mais de 1km) tanto da residência como do local do trabalho de cada pai | 1 |
| Longe da residência e local de trabalho | 1 |
| Longe do local de residência | 1 |
| Longe do local de residência e do local de trabalho de ambos os progenitores | 1 |
| loures | 3 |
| Loures | 13 |
| lumiar | 1 |
| Lumiar | 1 |
| mais de 1000 | 1 |
| Mesmo concelho mas outra freguesia | 1 |
| Montemor | 1 |
| Moscavide | 1 |
| Moscavide e Portela | 1 |
| Moscavide/Portela | 1 |
| Não tinha vaga. Está a 1500m de distancia. | 1 |
| No concelho de residência | 1 |
| No concelho, mas a pelo menos 30 min de distância a pé | 1 |
| No Porto | 1 |
| Noutra freguesia | 1 |
| Noutro concelho | 1 |
| Noutro concelho fora da residência | 1 |
| numa outra freguesia de Loures | 1 |
| odivelas | 1 |
| Odivelas | 2 |
| Odivelas/Póvoa de Santo Adrião | 1 |
| Oeiras | 1 |
| OIERAS | 1 |
| Olivais | 2 |
| OLIVAIS | 1 |
| Outro concelho | 2 |
| Parque das nações | 1 |
| Parque das Nações | 1 |
| Perto do anterior local de trabalho | 1 |
| Pinheiro de Loures | 1 |
| Portela | 6 |
| Portela (Moscavide) | 1 |
| Portela de Sacavém | 1 |
| Portela e Moscavide | 1 |
| Póvoa de Santo Adrião | 2 |
| Póvoa Santa Iria | 1 |
| Póvoa Santo Adrião | 1 |
| S. JOÃO DA TALHA | 1 |
| Sacavem | 1 |
| Sacavém | 3 |
| Santo Antão e São Julião do Tojal | 1 |
| São Domingos de Benfica | 1 |
| São João da talha | 1 |
| São João da Talha | 1 |
| São Julião do tojal | 1 |
| São Julião do Tojal | 1 |
| Situa se a quase 2 km de casa e com o peso na mochila, o não haver transporte público até à escola não é fácil ir a pé | 1 |
61 “Filho/a 2) Qual a idade do seu filho/a?”
Freq.idadefilho2 <- table(df$M820)
Freq.idadefilho2_df <- data.frame(Freq.idadefilho2)
ggplot(data=Freq.idadefilho2_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.idadefilho2_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Idade do seu filho/a (F2)") +
theme_classic() +
coord_flip()
62 “Filho/a 2) Qual o modo habitual de deslocação do seu filho/a para a escola (viagem de IDA)?”
Freq.modofilho2 <- table(df$M821)
Freq.modofilho2_df <- data.frame(Freq.modofilho2)
ggplot(data=Freq.modofilho2_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.modofilho2_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Ida do/a filho/a a escola (F2)") +
theme_classic() +
coord_flip()
63 "“Filho/a 2) Qual o modo habitual de deslocação do seu filho/a da escola para casa (viagem de VOLTA)?”
Freq.modofilhov2 <- table(df$M822)
Freq.modofilhov2_df <- data.frame(Freq.modofilhov2)
ggplot(data=Freq.modofilhov2_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.modofilhov2_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Volta do/a filho/a a escola (F2)") +
theme_classic() +
coord_flip()
64 “A escola do Filho/a 2 localiza-se: Considere como”Perto" uma distância até 1000m, ou seja, até 15 minutos a andar a pé. Caso a escola se localize em concelho/freguesia fora da área de residência indique qual a freguesia na opção “Outro:”."
Freq.siteescola1_2 <- table(df$M823_SQ001)
Freq.siteescola1_2_df <- data.frame(Freq.siteescola1_2)
ggplot(data=Freq.siteescola1_2_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.siteescola1_2_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Perto do local de residência da criança (F2)") +
theme_classic() +
coord_flip()
Freq.siteescola2_2 <- table(df$M823_SQ002)
Freq.siteescola2_2_df <- data.frame(Freq.siteescola2_2)
ggplot(data=Freq.siteescola2_2_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.siteescola2_2_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Perto do local de trabalho de um dos pais (F2)") +
theme_classic() +
coord_flip()
Freq.siteescola3_2 <- table(df$M823_SQ003)
Freq.siteescola3_2_df <- data.frame(Freq.siteescola3_2)
ggplot(data=Freq.siteescola3_2_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.siteescola3_2_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Perto do local de residência do cuidador (F2)") +
theme_classic() +
coord_flip()
65 “A escola do Filho/a 2 localiza-se:”Outro"
Freq.siteescola2_other <- table(df$M823_other)
Freq.siteescola2_other_df <- data.frame(Freq.siteescola2_other)
knitr::kable(Freq.siteescola2_other_df)| Var1 | Freq |
|---|---|
| 15 min de carro; | 1 |
| 20 minutos de carro | 1 |
| 3Km | 1 |
| 4km casa | 1 |
| 5km | 1 |
| a + 5km da residência | 1 |
| a caminho do trabalho dos pais | 1 |
| A escola fica a cerca de 11kms de casa é impossível ir a pé | 1 |
| Afastado da residência e trabalho | 1 |
| Agrupamento de escolas que frequentava | 1 |
| Antigo trabalho | 1 |
| Areeiro, lisboa | 1 |
| Bairro do Estacal | 1 |
| Campo Grande | 2 |
| CAO mais próximo (Moscavide) | 1 |
| Centro de Lisboa | 1 |
| Distante tanto do local de trabalho como também da residência | 1 |
| ENTRE CAMPOS | 1 |
| Estudava 10 km do seu local de residência | 1 |
| Expo | 1 |
| Faculdade de Letras | 1 |
| Famões | 1 |
| Freguesia fora de residência | 1 |
| lisboa | 2 |
| Lisboa | 5 |
| Lisboa, Alvalade | 1 |
| Loures | 5 |
| Montemor | 1 |
| Moscavide | 1 |
| Moscavide/Portela | 1 |
| Não tinha vaga. Está a 4000m de distancia. | 1 |
| No concelho de residência | 1 |
| Noutra freguesia | 1 |
| Noutro concelho | 1 |
| Olivais | 2 |
| OLIVAIS | 1 |
| Outro concelho | 1 |
| portela | 1 |
| Portela | 3 |
| Portela de Sacavém | 1 |
| Póvoa de Santo Adrião | 1 |
| Póvoa Santa Iria | 1 |
| S. JOÃO DA TALHA | 1 |
| Sacavem | 1 |
| Sacavém | 1 |
| Santa iria azoia | 1 |
| Santo Antonio Cavaleiros | 1 |
| São Domingos de Benfica | 1 |
| Tem a ver com.o curso pretendido | 1 |
66 “Filho/a 3) Qual a idade do seu filho/a?”
Freq.idadefilho3 <- table(df$M830)
Freq.idadefilho3_df <- data.frame(Freq.idadefilho3)
ggplot(data=Freq.idadefilho3_df, aes(x=reorder(Var1,Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.idadefilho3_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Idade do seu filho/a (F3)") +
theme_classic() +
coord_flip()
67 “Filho/a 3) Qual o modo habitual de deslocação do seu filho/a para a escola (viagem de IDA)?”
Freq.modofilho3 <- table(df$M831)
Freq.modofilho3_df <- data.frame(Freq.modofilho3)
ggplot(data=Freq.modofilho3_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.modofilho3_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Ida do/a filho/a a escola (F3)") +
theme_classic() +
coord_flip()
68 “Filho/a 3) Qual o modo habitual de deslocação do seu filho/a da escola para casa (viagem de VOLTA)?”
Freq.modofilhov3 <- table(df$M832)
Freq.modofilhov3_df <- data.frame(Freq.modofilhov3)
ggplot(data=Freq.modofilhov3_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.modofilhov3_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Volta do/a filho/a a escola (F3)") +
theme_classic() +
coord_flip()
69 “A escola do Filho/a 3 localiza-se: Considere como”Perto" uma distância até 1000m, ou seja, até 15 minutos a andar a pé. Caso a escola se localize em concelho/freguesia fora da área de residência indique qual a freguesia na opção “Outro:”."
Freq.siteescola1_3 <- table(df$M833_SQ001)
Freq.siteescola1_3_df <- data.frame(Freq.siteescola1_3)
ggplot(data=Freq.siteescola1_3_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "black") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.siteescola1_3_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Perto do local de residência da criança (F3)") +
theme_classic() +
coord_flip()
Freq.siteescola2_3 <- table(df$M833_SQ002)
Freq.siteescola2_3_df <- data.frame(Freq.siteescola2_3)
ggplot(data=Freq.siteescola2_3_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "orange") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.siteescola2_3_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Perto do local de trabalho de um dos pais (F3)") +
theme_classic() +
coord_flip()
Freq.siteescola3_3 <- table(df$M833_SQ003)
Freq.siteescola3_3_df <- data.frame(Freq.siteescola3_3)
ggplot(data=Freq.siteescola3_3_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.siteescola3_3_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Perto do local de residência do cuidador (F3)") +
theme_classic() +
coord_flip()
70 “A escola do Filho/a 3 localiza-se:”Outro""
Freq.siteescola3_other <- table(df$M833_other)
Freq.siteescola3_other_df <- data.frame(Freq.siteescola3_other)
ggplot(data=Freq.siteescola3_other_df, aes(x=reorder(Var1, Freq), y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.siteescola3_other_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Localização da escola (F3)") +
theme_classic() +
coord_flip()
Mobilidade PRE Covid-19
71 “Considere o momento ANTES da crise pandémica Covid-19: ano 2019. Com que frequência utilizava cada um destes modos de transporte (parte 2)”
Freq.cov1 <- table(df$Cov02_SQ007)
Freq.cov1_df <- data.frame(Freq.cov1)
ggplot(data=Freq.cov1_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov1_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens de Autocarro - Antes do Covid-19") +
theme_classic() +
coord_flip()
Freq.cov2 <- table(df$Cov02_SQ008)
Freq.cov2_df <- data.frame(Freq.cov2)
ggplot(data=Freq.cov2_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "black") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov2_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens de Metropolitano - Antes do Covid-19") +
theme_classic() +
coord_flip()
Freq.cov3 <- table(df$Cov02_SQ009)
Freq.cov3_df <- data.frame(Freq.cov3)
ggplot(data=Freq.cov3_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov3_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens de comboio - Antes do Covid-19") +
theme_classic() +
coord_flip()
Freq.cov4 <- table(df$Cov02_SQ010)
Freq.cov4_df <- data.frame(Freq.cov4)
ggplot(data=Freq.cov4_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkgreen") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov4_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens de automóvel (condutor) - Antes do Covid-19") +
theme_classic() +
coord_flip()
Freq.cov5 <- table(df$Cov02_SQ011)
Freq.cov5_df <- data.frame(Freq.cov5)
ggplot(data=Freq.cov5_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov5_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº viagens de automóvel (passageiro) - Antes do Covid-19") +
theme_classic() +
coord_flip()
Freq.cov6 <- table(df$Cov02_SQ015)
Freq.cov6_df <- data.frame(Freq.cov6)
ggplot(data=Freq.cov6_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov6_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens de bicicleta - Antes do Covid-19") +
theme_classic() +
coord_flip()
Freq.cov7 <- table(df$Cov02_SQ013)
Freq.cov7_df <- data.frame(Freq.cov7)
ggplot(data=Freq.cov7_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "green") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov7_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens a pé - Antes do Covid-19") +
theme_classic() +
coord_flip()
Freq.cov8 <- table(df$Cov02_SQ014)
Freq.cov8_df <- data.frame(Freq.cov8)
ggplot(data=Freq.cov8_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "yellow") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov8_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens com mobilidade partilhada - Antes do Covid-19") +
theme_classic() +
coord_flip()
72 “Considere o momento ANTES da crise pandémica Covid-19: ano 2019. Com que frequência realizava cada uma destas atividades (parte 1)”
Freq.cov9 <- table(df$Cov01_SQ001)
Freq.cov9_df <- data.frame(Freq.cov9)
ggplot(data=Freq.cov9_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov9_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Trabalhava / estudava a partir de casa - Antes do Covid-19") +
theme_classic() +
coord_flip()
Freq.cov10 <- table(df$Cov01_SQ002)
Freq.cov10_df <- data.frame(Freq.cov10)
ggplot(data=Freq.cov10_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov10_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Fazia compras em lojas de proximidade - Antes do Covid-19") +
theme_classic() +
coord_flip()
Freq.cov11 <- table(df$Cov01_SQ003)
Freq.cov11_df <- data.frame(Freq.cov11)
ggplot(data=Freq.cov11_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "green") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov11_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Fazia compras em grandes superfícies - Antes do Covid-19") +
theme_classic() +
coord_flip()
Freq.cov12 <- table(df$Cov01_SQ004)
Freq.cov12_df <- data.frame(Freq.cov12)
ggplot(data=Freq.cov12_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov12_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Fazia compras online (pela internet) - Antes do Covid-19") +
theme_classic() +
coord_flip()
Freq.cov13 <- table(df$Cov01_SQ012)
Freq.cov13_df <- data.frame(Freq.cov13)
ggplot(data=Freq.cov13_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov13_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Encomendava comida em casa - Antes do Covid-19") +
theme_classic() +
coord_flip()
Freq.cov14 <- table(df$Cov01_SQ005)
Freq.cov14_df <- data.frame(Freq.cov14)
ggplot(data=Freq.cov14_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov14_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Andava a pé como passeio ou lazer - Antes do Covid-19") +
theme_classic() +
coord_flip()
Freq.cov15 <- table(df$Cov01_SQ013)
Freq.cov15_df <- data.frame(Freq.cov15)
ggplot(data=Freq.cov15_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov15_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Andava de bicicleta como passeio - Antes do Covid-19") +
theme_classic() +
coord_flip()
Mobilidade DURANTE Covid-19
73 “Considere o momento DURANTE a crise pandémica Covid-19: ano 2020 Com que frequência realizava cada uma destas atividades (parte 1)”
Freq.cov16 <- table(df$Cov21_SQ001)
Freq.cov16_df <- data.frame(Freq.cov16)
ggplot(data=Freq.cov16_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov16_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Trabalhava / estudava a partir de casa - Durante o Covid-19") +
theme_classic() +
coord_flip()
Freq.cov17 <- table(df$Cov21_SQ002)
Freq.cov17_df <- data.frame(Freq.cov10)
ggplot(data=Freq.cov17_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov17_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Fazia compras em lojas de proximidade - Durante o Covid-19") +
theme_classic() +
coord_flip()
Freq.cov18 <- table(df$Cov21_SQ003)
Freq.cov18_df <- data.frame(Freq.cov18)
ggplot(data=Freq.cov18_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "green") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov18_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Fazia compras em grandes superfícies - Durante o Covid-19") +
theme_classic() +
coord_flip()
Freq.cov19 <- table(df$Cov21_SQ004)
Freq.cov19_df <- data.frame(Freq.cov19)
ggplot(data=Freq.cov19_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov19_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Fazia compras online (pela internet) - Durante o Covid-19") +
theme_classic() +
coord_flip()
Freq.cov20 <- table(df$Cov21_SQ012)
Freq.cov20_df <- data.frame(Freq.cov20)
ggplot(data=Freq.cov20_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov20_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Encomendava comida em casa - Durante o Covid-19") +
theme_classic() +
coord_flip()
Freq.cov21 <- table(df$Cov21_SQ005)
Freq.cov21_df <- data.frame(Freq.cov21)
ggplot(data=Freq.cov21_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov21_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Andava a pé como passeio ou lazer - Durante o Covid-19") +
theme_classic() +
coord_flip()
Freq.cov22 <- table(df$Cov21_SQ013)
Freq.cov22_df <- data.frame(Freq.cov22)
ggplot(data=Freq.cov22_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov22_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Andava de bicicleta como passeio - Durante o Covid-19") +
theme_classic() +
coord_flip()
74 “Considere o momento DURANTE a crise pandémica Covid-19: ano 2020 Com que frequência utilizava cada um destes modos de transporte (parte 2)”
Freq.cov23 <- table(df$Cov22_SQ007)
Freq.cov23_df <- data.frame(Freq.cov23)
ggplot(data=Freq.cov23_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov23_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens de Autocarro - Durante o Covid-19") +
theme_classic() +
coord_flip()
Freq.cov24 <- table(df$Cov22_SQ008)
Freq.cov24_df <- data.frame(Freq.cov24)
ggplot(data=Freq.cov24_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "black") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov24_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens de Metropolitano - Durante o Covid-19") +
theme_classic() +
coord_flip()
Freq.cov25 <- table(df$Cov22_SQ009)
Freq.cov25_df <- data.frame(Freq.cov25)
ggplot(data=Freq.cov25_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov25_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens de comboio - Durante o Covid-19") +
theme_classic() +
coord_flip()
Freq.cov26 <- table(df$Cov22_SQ010)
Freq.cov26_df <- data.frame(Freq.cov26)
ggplot(data=Freq.cov26_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkgreen") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov26_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens de automóvel (condutor) - Durante o Covid-19") +
theme_classic() +
coord_flip()
Freq.cov27 <- table(df$Cov22_SQ011)
Freq.cov27_df <- data.frame(Freq.cov27)
ggplot(data=Freq.cov27_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov27_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº viagens de automóvel (passageiro) - Durante o Covid-19") +
theme_classic() +
coord_flip()
Freq.cov28 <- table(df$Cov22_SQ015)
Freq.cov28_df <- data.frame(Freq.cov28)
ggplot(data=Freq.cov28_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov28_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens de bicicleta - Durante o Covid-19") +
theme_classic() +
coord_flip()
Freq.cov29 <- table(df$Cov22_SQ013)
Freq.cov29_df <- data.frame(Freq.cov29)
ggplot(data=Freq.cov29_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "green") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov29_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens a pé - Durante o Covid-19") +
theme_classic() +
coord_flip()
Freq.cov30 <- table(df$Cov22_SQ014)
Freq.cov30_df <- data.frame(Freq.cov30)
ggplot(data=Freq.cov30_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "yellow") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov30_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Nº de viagens com mobilidade partilhada- Durante o Covid-19") +
theme_classic() +
coord_flip()
Mobilidade PÓS Covid-19
75 “Considere que nos encontramos no PÓS crise pandémica Covid-19: depois de 2021/2022, em que não existem restrições relacionadas com o Covid-19. Com que frequência tenciona utilizar cada um destes modos de transporte? (parte 2)”
Freq.cov31 <- table(df$Cov32_SQ007)
Freq.cov31_df <- data.frame(Freq.cov31)
ggplot(data=Freq.cov31_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov31_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Viagens de Autocarro - Pós Covid-19") +
theme_classic() +
coord_flip()
Freq.cov32 <- table(df$Cov32_SQ008)
Freq.cov32_df <- data.frame(Freq.cov32)
ggplot(data=Freq.cov32_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "black") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov32_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Viagens de Metropolitano - Pós Covid-19") +
theme_classic() +
coord_flip()
Freq.cov33 <- table(df$Cov32_SQ009)
Freq.cov33_df <- data.frame(Freq.cov33)
ggplot(data=Freq.cov33_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov33_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Viagens de comboio - Pós Covid-19") +
theme_classic() +
coord_flip()
Freq.cov34 <- table(df$Cov32_SQ010)
Freq.cov34_df <- data.frame(Freq.cov34)
ggplot(data=Freq.cov34_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkgreen") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov34_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Viagens de automóvel (condutor) - Pós Covid-19") +
theme_classic() +
coord_flip()
Freq.cov35 <- table(df$Cov32_SQ011)
Freq.cov35_df <- data.frame(Freq.cov35)
ggplot(data=Freq.cov35_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov35_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Viagens de automóvel (passageiro) - Pós Covid-19") +
theme_classic() +
coord_flip()
Freq.cov36 <- table(df$Cov32_SQ015)
Freq.cov36_df <- data.frame(Freq.cov36)
ggplot(data=Freq.cov36_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov36_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Viagens de bicicleta - Pós Covid-19") +
theme_classic() +
coord_flip()
Freq.cov37 <- table(df$Cov32_SQ013)
Freq.cov37_df <- data.frame(Freq.cov37)
ggplot(data=Freq.cov37_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "green") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov37_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Viagens a pé - Pós Covid-19") +
theme_classic() +
coord_flip()
Freq.cov38 <- table(df$Cov32_SQ014)
Freq.cov38_df <- data.frame(Freq.cov38)
ggplot(data=Freq.cov38_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "yellow") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov38_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Mobilidade partilhada- Pós Covid-19") +
theme_classic() +
coord_flip()
76 “Considere que nos encontramos no PÓS crise pandémica Covid-19: depois de 2021/2022, em que não existem restrições relacionadas com o Covid-19. Com que frequência tenciona passar a realizar cada uma destas atividades? (parte 1)”
Freq.cov39 <- table(df$Cov31_SQ001)
Freq.cov39_df <- data.frame(Freq.cov39)
ggplot(data=Freq.cov39_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "red") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov39_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Trabalhar / estudar a partir de casa - Pós Covid-19") +
theme_classic() +
coord_flip()
Freq.cov40 <- table(df$Cov31_SQ002)
Freq.cov40_df <- data.frame(Freq.cov40)
ggplot(data=Freq.cov40_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "blue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov40_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Compras em lojas de proximidade - Pós Covid-19") +
theme_classic() +
coord_flip()
Freq.cov41 <- table(df$Cov31_SQ003)
Freq.cov41_df <- data.frame(Freq.cov41)
ggplot(data=Freq.cov41_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "green") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov41_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Compras em grandes superfícies - Pós Covid-19") +
theme_classic() +
coord_flip()
Freq.cov42 <- table(df$Cov31_SQ004)
Freq.cov42_df <- data.frame(Freq.cov42)
ggplot(data=Freq.cov42_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "grey") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov42_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Compras online (pela internet) - Pós Covid-19") +
theme_classic() +
coord_flip()
Freq.cov43 <- table(df$Cov31_SQ012)
Freq.cov43_df <- data.frame(Freq.cov43)
ggplot(data=Freq.cov43_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "lightblue") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov43_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Encomendar comida em casa - Pós Covid-19") +
theme_classic() +
coord_flip()
Freq.cov44 <- table(df$Cov31_SQ005)
Freq.cov44_df <- data.frame(Freq.cov44)
ggplot(data=Freq.cov44_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "darkred") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov44_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Andar a pé como passeio ou lazer - Pós Covid-19") +
theme_classic() +
coord_flip()
Freq.cov45 <- table(df$Cov31_SQ013)
Freq.cov45_df <- data.frame(Freq.cov45)
ggplot(data=Freq.cov45_df, aes(x=Var1, y=Freq)) +
geom_bar(stat="identity", width = 0.7, position = position_dodge(0.8), fill = "purple") +
geom_text(aes(label = Freq), vjust = 0.25, hjust=-0.2, size = 4,
position = position_dodge(0.5)) +
ylim(0, max(Freq.cov45_df$Freq)*1.1) +
labs(y=element_blank(), x= element_blank(), title = "Andar de bicicleta como passeio - Pós Covid-19") +
theme_classic() +
coord_flip()