Tratamento dos dados do Inquérito Presencial CM-LRS

Primeiras análises do Inquérito

Número de inquéritos incompletos

library(tidyverse)
library(DataExplorer)

df_incomplete = data.frame(df$submitdate)
table(is.na(df_incomplete))

## 
## FALSE  TRUE 
##  2209    79

plot_missing(df_incomplete)

Deletar missing values (“submit date”). Portanto, filtramos apenas os inquéritos que foram submetidos.(Pairwise deletion)

df <- df[!is.na(df$submitdate),]

#Create excel
#library("writexl")
#write_xlsx(df,"Inqueritos.xlsx")

Note: 41% dos inquéritos foram iniciados e não finalizados nesta amostra.

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,300))

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)


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)

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)

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)

idosos_df$Var1[4] <- NA
idosos_df$Freq[3] <- idosos_df$Freq[3] + idosos_df$Freq[4]

idosos_df <- na.omit(idosos_df)

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()

obs: Nimguem respondeu a questão 13.

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-34

Localizaçã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 - 41

19. “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.”

ERRO: Corrigir a apresentação das informações

Freq.tran_pand_other <- table(df$M40_other)
Freq.tran_pand_other_df <- data.frame(Freq.tran_pand_other)
ggplot(data=Freq.tran_pand_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.tran_pand_other_df$Freq)*1.1) +
  labs(y=element_blank(), x= element_blank(), title = "Modo principal (Outro) - Sem restrições") +
  theme_classic() +
  coord_flip()

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.5) +
  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 As categorias com [outro] que aparecem em # não tiveram 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)
ggplot(data=Freq.siteescola_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.siteescola_other_df$Freq)*1.1) +
  labs(y=element_blank(), x= element_blank(), title = "Localização da escola (F1)") +
  theme_classic() +
  coord_flip()

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)
ggplot(data=Freq.siteescola2_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.siteescola2_other_df$Freq)*1.1) +
  labs(y=element_blank(), x= element_blank(), title = "Localização da escola (F2)") +
  theme_classic() +
  coord_flip()

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()