-
Notifications
You must be signed in to change notification settings - Fork 0
/
05_preparation.R
236 lines (216 loc) · 35.4 KB
/
05_preparation.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
library(tidyverse)
library(readxl)
getwd()
#GET DATA##################################################
#asia
asia <- read_excel("data/05_MMC_Asia_Covid19_20200409_01_WorkingFile_20200608.xlsx", na = c("", "n/a"), sheet = 3) #file is xlsx despite extension
#eay
eay <- read_excel("data/05_MMC_EAY_Covid19_ValidatedData_20200417_20200604.xlsx", na = c("", "n/a"), sheet = 3) ##note 2 cols have same id, 'c10_1'
#lac
lac <- read_excel("data/05_MMC_LAC_Covid19_ValidatedData_20200605_110811.xlsx", na = c("", "n/a"), sheet = 3)
# na
na <- read_excel("data/05_MMC_NA_Covid19_NA_DataforGVA_20200407_20200602.xlsx", na = c("", "n/a"), sheet = 3) #note 2 cols have same id, 'c10_1'. Also note one new unnamed column (the very last one)
warnings() #inspect na warning
#wa
wa <- read_excel("data/05_MMC_WA_Covid19_GlobalValidatedData_2020_05_26___2020_06_08.xlsx", na = c("", "n/a"), sheet = 3)
#inspect####
f <- function(x) {dim = dim(x)}
x <- list(asia=asia, eay=eay, lac=lac, na=na, wa=wa)
dimensions <- data.frame(lapply(x, f), row.names = c("obs", "vars")) %>% print()
#SELECT VARS###############################################
#asia####
asia2 <- asia %>%
filter(start != "start") %>% #remove second header
select(c(`_id`, start, Q25, Q23, Q20, Q13_1c, #PROFILES AND COUNTRY
c1, c2, c3, c4, c5, #covid overall #AWARENESS AND RISK
c11, `c11/Sometimes there are no symptoms`, `c11/Dry cough`, `c11/Aches and pains`, `c11/Fever`, `c11/Difficulties breathing`, `c11/Tiredness`, `c11/Other (specify)`, `c11/Don't know`, `c11/Refused`, #symptoms
c12, `c12/Babies and children under five`, `c12/Children and adolesents up to 15`, `c12/Adults (18 years and over)`, `c12/Older people (60 years and over)`, `c12/People who are already ill with another condition`, `c12/Pregnant women`, `c12/Health workers`, `c12/Other (specify)`, `c12/Don't know`, `c12/Refused`, #groups at risks
c13, `c13/Nothing`, `c13/Washing my hands more regularly/using hand sanitizer`, `c13/Not touching my face`, `c13/Wearing a mask`, `c13/Wearing gloves`, `c13/Avoiding crowded spaces`, `c13/Keeping a large physical distance from other people`, `c13/Staying at home and isolating myself from others`, `c13/Other (specify)`, `c13/Refused`, #protection measures
c14, `c14/I do not feel it is necessary`, `c14/I do not know what precautions to take`, `c14/I do not have access to protective gear (mask, gloves, sanitizer)`, `c14/I cannot practice physical distancing due to my living situation`, `c14/Other (specify)`, `c14/Refused`, #if not why
c15, c31, c32, #tested, 1.5 distance, and accommodation
c6, `c6/Friends/family in country of departure`, `c6/Friends/family in another country`, `c6/Travel agents`, `c6/Smugglers`, `c6/Online community/network`, `c6/NGOs / UN`, `c6/Foreign embassies / consulates`, `c6/National government / authorities`, `c6/Other migrants`, `c6/Local people I met on my journey`, `c6/Health professionals`, `c6/Spiritual/religious leaders`, `c6/Community leaders/mobilizers`, `c6/Other (specify)`, `c6/I don't remember`, `c6/Refused`, `c6/I did not receive any information`, #INFORMATION #provider
c7, `c7/Street advertising (billboards/ leafleting)`, `c7/Radio/TV/newspapers`, `c7/Websites (not social media/messaging)`, `c7/Social media or messaging apps`, `c7/In-person`, `c7/Phone call`, `c7/Other`, `c7/I don't remember`, `c7/Refused`, #channel
c8, `c8/Facebook`, `c8/WhatsApp`, `c8/Instagram`, `c8/Viber`, `c8/Twitter`, `c8/Telegram`, `c8/YouTube`, `c8/Snapchat`, `c8/imo`, `c8/Other (specify)`, `c8/Don't know`, `c8/Refused`, #social media
c10, `c10/Friends/family in country of departure`, `c10/Friends/family in another country`, `c10/Travel agents`, `c10/Smugglers`, `c10/Online community/network`, `c10/NGOs / UN`, `c10/Foreign embassies / consulates`, `c10/National government / authorities`, `c10/Other migrants`, `c10/Local people I met on my journey`, `c10/Health professionals`, `c10/Spiritual/religious leaders`, `c10/Community leaders/mobilizers`, `c10/Other (specify)`, `c10/I don't remember`, `c10/Refused`,`c10/I did not receive any information`, #trustworthy
c17, c18, `c18/I don't know where to go for healthcare`, `c18/The advice for testing and treating coronavirus is unclear here`, `c18/I don't have the money to pay for health services`, `c18/I don't have the right or the legal documentation to access health services here`, `c18/I am afraid of being reported to authorities, or arrest, or deportation`, `c18/Discrimination against foreigners limits access to services`, `c18/I don't speak the language`, `c18/General insecurity and conflict prevent me from accessing healthcare`, `c18/There are no health services here`, `c18/Services are overwhelmed and access is difficult for everyone`, `c18/Other (specify)`, `c18/Don't know`, `c18/Refused`,`c18/None`,#HEALTHCARE
c23, #ASSISTANCE #received additional
c24, `c24/Access to health services`, `c24/Distribution of sanitary items (sanitizer/ mask/ gloves/ etc)`, `c24/Cash`, `c24/Cash to pay for health services`, `c24/Documentation to access health services`, `c24/Information about the virus: symptoms/ what to do if I have symptoms/ how to protect myself`, `c24/Other basic needs: food, water, shelter`, `c24/Support to return home`, `c24/Access to work and livelihoods`, `c24/Psychological assistance`, `c24/Childcare`, `c24/Other (specify)`, `c24/Refused`, #what kind
c25, `c25/The government of the country I was/am in`, `c25/My country of nationality's consulate`, `c25/UN`, `c25/NGOs`, `c25/Local population/community organisations`, `c25/Family/friends`, `c25/Fellow migrants`, `c25/Other (specify)`, `c25/Don't know`, `c25/Refused`, #asssitance provider
c26, #in need of extra help
c27, `c27/Access to health services`, `c27/Distribution of sanitary items (sanitizer/ mask/ gloves/ etc)`, `c27/Cash`, `c27/Cash to pay for health services`, `c27/Documentation to access health services`, `c27/Information about the virus: symptoms/ what to do if I have symptoms/ how to protect myself`, `c27/Other basic needs: food, water, shelter`, `c27/Support to return home`, `c27/Access to work and livelihoods`, `c27/Psychological assistance`, `c27/Childcare`, `c27/Other (specify)`, `c27/Refused`, #what kind of extra help
c20, `c20/Increased racism and xenophobia`, `c20/Reduced access to asylum application`, `c20/Reduced availability of basic goods`, `c20/Reduced access to work`, `c20/I am more worried and stressed`, `c20/Other (specify)`, `c20/Refused`, `c20/None`,#IMPACT OF LIFE #what impact
c21, c22, `c22/I am unable to afford basic goods`, `c22/Loss of housing`, `c22/Increased worry and anxiety`, `c22/I am unable to pay remittances`, `c22/I am unable to continue my journey`, `c22/Other (specify)`, `c22/Refused`, `c22/None`, #lost income
c19, `c19/None`, `c19/Increased difficulty crossing borders`, `c19/Increased risk of detention and deportation`, `c19/Reduced access to smugglers`, `c19/Increased difficulty moving around inside countries`, `c19/I was going to be resettled, but this is now delayed`, `c19/Disembarked / deported back to previous country`, `c19/I've been delayed because I was sick, or because I had to stop and take care of people who got sick`, `c19/I feel too afraid to move (to continue my journey or return)`, `c19/Other (specify)`, `c19/Refused`, #IMPACT ON JOURNEY #type
c29, #changed plans
c34, c35, Q29 #qualitative data, nationality
)) %>%
mutate(Region = as.factor("Asia"), N_region = length(Region)) %>%
group_by(Q13_1c) %>% mutate(N_country = length(Q13_1c)) %>% ungroup() %>%
rename(`c6/None`=`c6/I did not receive any information`, `c10/None`=`c10/I did not receive any information`)
dim(asia2) #302 207
View(asia2)
#eay####
eay2 <- eay %>%
filter(start != "start") %>%
select(c(`_id`, start, Q25, Q23, Q20, Q13_1c, #PROFILES AND COUNTRY
c1, c2, c3, c4, c5, #covid overall #AWARENESS AND RISK
c11, `c11/Sometimes there are no symptoms`, `c11/Dry cough`, `c11/Aches and pains`, `c11/Fever`, `c11/Difficulties breathing`, `c11/Tiredness`, `c11/Other (specify)`, `c11/Don't know`, `c11/Refused`, #symptoms
c12, `c12/Babies and children under five`, `c12/Children and adolesents up to 15`, `c12/Adults (18 years and over)`, `c12/Older people (60 years and over)`, `c12/People who are already ill with another condition`, `c12/Pregnant women`, `c12/Health workers`, `c12/Other (specify)`, `c12/Don't know`, `c12/Refused`, #groups at risks
c13, `c13/Nothing`, `c13/Washing my hands more regularly/using hand sanitizer`, `c13/Not touching my face`, `c13/Wearing a mask`, `c13/Wearing gloves`, `c13/Avoiding crowded spaces`, `c13/Keeping a large physical distance from other people`, `c13/Staying at home and isolating myself from others`, `c13/Other (specify)`, `c13/Refused`, #protection measures
c14, `c14/I do not feel it is necessary`, `c14/I do not know what precautions to take`, `c14/I do not have access to protective gear (mask, gloves, sanitizer)`, `c14/I cannot practice physical distancing due to my living situation`, `c14/Other (specify)`, `c14/Refused`, #if not why
c15, c31, c32, #tested, 1.5 distance, and accommodation
c6, `c6/Friends/family in country of departure`, `c6/Friends/family in another country`, `c6/Travel agents`, `c6/Smugglers`, `c6/Online community/network`, `c6/NGOs / UN`, `c6/Foreign embassies / consulates`, `c6/National government / authorities`, `c6/Other migrants`, `c6/Local people I met on my journey`, `c6/Health professionals`, `c6/Spiritual/religious leaders`, `c6/Community leaders/mobilizers`, `c6/Other (specify)`, `c6/I don't remember`, `c6/Refused`, `c6/I did not receive any information`, #INFORMATION #provider
c7, `c7/Street advertising (billboards/ leafleting)`, `c7/Radio/TV/newspapers`, `c7/Websites (not social media/messaging)`, `c7/Social media or messaging apps`, `c7/In-person`, `c7/Phone call`, `c7/Other`, `c7/I don't remember`, `c7/Refused`, #channel
c8, `c8/Facebook`, `c8/WhatsApp`, `c8/Instagram`, `c8/Viber`, `c8/Twitter`, `c8/Telegram`, `c8/YouTube`, `c8/Snapchat`, `c8/imo`, `c8/Other (specify)`, `c8/Don't know`, `c8/Refused`, #social media
c10, `c10/Friends/family in country of departure`, `c10/Friends/family in another country`, `c10/Travel agents`, `c10/Smugglers`, `c10/Online community/network`, `c10/NGOs / UN`, `c10/Foreign embassies / consulates`, `c10/National government / authorities`, `c10/Other migrants`, `c10/Local people I met on my journey`, `c10/Health professionals`, `c10/Spiritual/religious leaders`, `c10/Community leaders/mobilizers`, `c10/Other (specify)`, `c10/I don't remember`, `c10/Refused`,`c10/I did not receive any information`, #trustworthy
c17, c18, `c18/I don't know where to go for healthcare`, `c18/The advice for testing and treating coronavirus is unclear here`, `c18/I don't have the money to pay for health services`, `c18/I don't have the right or the legal documentation to access health services here`, `c18/I am afraid of being reported to authorities, or arrest, or deportation`, `c18/Discrimination against foreigners limits access to services`, `c18/I don't speak the language`, `c18/General insecurity and conflict prevent me from accessing healthcare`, `c18/There are no health services here`, `c18/Services are overwhelmed and access is difficult for everyone`, `c18/Other (specify)`, `c18/Don't know`, `c18/Refused`,`c18/None`,#HEALTHCARE
c23, #ASSISTANCE #received additional
c24, `c24/Access to health services`, `c24/Distribution of sanitary items (sanitizer/ mask/ gloves/ etc)`, `c24/Cash`, `c24/Cash to pay for health services`, `c24/Documentation to access health services`, `c24/Information about the virus: symptoms/ what to do if I have symptoms/ how to protect myself`, `c24/Other basic needs: food, water, shelter`, `c24/Support to return home`, `c24/Access to work and livelihoods`, `c24/Psychological assistance`, `c24/Childcare`, `c24/Other (specify)`, `c24/Refused`, #what kind
c25, `c25/The government of the country I was/am in`, `c25/My country of nationality's consulate`, `c25/UN`, `c25/NGOs`, `c25/Local population/community organisations`, `c25/Family/friends`, `c25/Fellow migrants`, `c25/Other (specify)`, `c25/Don't know`, `c25/Refused`, #asssitance provider
c26, #in need of extra help
c27, `c27/Access to health services`, `c27/Distribution of sanitary items (sanitizer/ mask/ gloves/ etc)`, `c27/Cash`, `c27/Cash to pay for health services`, `c27/Documentation to access health services`, `c27/Information about the virus: symptoms/ what to do if I have symptoms/ how to protect myself`, `c27/Other basic needs: food, water, shelter`, `c27/Support to return home`, `c27/Access to work and livelihoods`, `c27/Psychological assistance`, `c27/Childcare`, `c27/Other (specify)`, `c27/Refused`, #what kind of extra help
c20, `c20/Increased racism and xenophobia`, `c20/Reduced access to asylum application`, `c20/Reduced availability of basic goods`, `c20/Reduced access to work`, `c20/I am more worried and stressed`, `c20/Other (specify)`, `c20/Refused`, `c20/None`,#IMPACT OF LIFE #what impact
c21, c22, `c22/I am unable to afford basic goods`, `c22/Loss of housing`, `c22/Increased worry and anxiety`, `c22/I am unable to pay remittances`, `c22/I am unable to continue my journey`, `c22/Other (specify)`, `c22/Refused`, `c22/None`, #lost income
c19, `c19/None`, `c19/Increased difficulty crossing borders`, `c19/Increased risk of detention and deportation`, `c19/Reduced access to smugglers`, `c19/Increased difficulty moving around inside countries`, `c19/I was going to be resettled, but this is now delayed`, `c19/Disembarked / deported back to previous country`, `c19/I've been delayed because I was sick, or because I had to stop and take care of people who got sick`, `c19/I feel too afraid to move (to continue my journey or return)`, `c19/Other (specify)`, `c19/Refused`, #IMPACT ON JOURNEY #type
c29, #changed plans
c34, c35, Q29 #qualitative data, nationality
)) %>%
mutate(Region = as.factor("East Africa"), N_region = length(Region)) %>%
group_by(Q13_1c) %>% mutate(N_country = length(Q13_1c)) %>% ungroup() %>%
rename(`c6/None`=`c6/I did not receive any information`, `c10/None`=`c10/I did not receive any information`)
dim(eay2) #161 207
View(eay2)
#lac####
lac2 <- lac %>%
filter(start != "start") %>%
select(c(`_id`, start, Q25, Q23, Q20, Q13_1c, #PROFILES AND COUNTRY
c1, c2, c3, c4, c5, #covid overall #AWARENESS AND RISK
c11, `c11/Sometimes there are no symptoms`, `c11/Dry cough`, `c11/Aches and pains`, `c11/Fever`, `c11/Difficulties breathing`, `c11/Tiredness`, `c11/Other (specify)`, `c11/Don't know`, `c11/Refused`, #symptoms
c12, `c12/Babies and children under five`, `c12/Children and adolesents up to 15`, `c12/Adults (18 years and over)`, `c12/Older people (60 years and over)`, `c12/People who are already ill with another condition`, `c12/Pregnant women`, `c12/Health workers`, `c12/Other (specify)`, `c12/Don't know`, `c12/Refused`, #groups at risks
c13, `c13/Nothing`, `c13/Washing my hands more regularly/using hand sanitizer`, `c13/Not touching my face`, `c13/Wearing a mask`, `c13/Wearing gloves`, `c13/Avoiding crowded spaces`, `c13/Keeping a large physical distance from other people`, `c13/Staying at home and isolating myself from others`, `c13/Other (specify)`, `c13/Refused`, #protection measures
c14, `c14/I do not feel it is necessary`, `c14/I do not know what precautions to take`, `c14/I do not have access to protective gear (mask, gloves, sanitizer)`, `c14/I cannot practice physical distancing due to my living situation`, `c14/Other (specify)`, `c14/Refused`, #if not why
c15, c31, c32, #tested, 1.5 distance, and accommodation
c6, `c6/Friends/family in country of departure`, `c6/Friends/family in another country`, `c6/Travel agents`, `c6/Smugglers`, `c6/Online community/network`, `c6/NGOs / UN`, `c6/Foreign embassies / consulates`, `c6/National government / authorities`, `c6/Other migrants`, `c6/Local people I met on my journey`, `c6/Health professionals`, `c6/Spiritual/religious leaders`, `c6/Community leaders/mobilizers`, `c6/Other (specify)`, `c6/I don't remember`, `c6/Refused`, `c6/None`,#INFORMATION #provider
c7, `c7/Street advertising (billboards/ leafleting)`, `c7/Radio/TV/newspapers`, `c7/Websites (not social media/messaging)`, `c7/Social media or messaging apps`, `c7/In-person`, `c7/Phone call`, `c7/Other`, `c7/I don't remember`, `c7/Refused`, #channel
c8, `c8/Facebook`, `c8/WhatsApp`, `c8/Instagram`, `c8/Viber`, `c8/Twitter`, `c8/Telegram`, `c8/YouTube`, `c8/Snapchat`, `c8/imo`, `c8/Other (specify)`, `c8/Don't know`, `c8/Refused`, #social media
c10, `c10/Friends/family in country of departure`, `c10/Friends/family in another country`, `c10/Travel agents`, `c10/Smugglers`, `c10/Online community/network`, `c10/NGOs / UN`, `c10/Foreign embassies / consulates`, `c10/National government / authorities`, `c10/Other migrants`, `c10/Local people I met on my journey`, `c10/Health professionals`, `c10/Spiritual/religious leaders`, `c10/Community leaders/mobilizers`, `c10/Other (specify)`, `c10/I don't remember`, `c10/Refused`, `c10/None`,#trustworthy
c17, c18, `c18/I don't know where to go for healthcare`, `c18/The advice for testing and treating coronavirus is unclear here`, `c18/I don't have the money to pay for health services`, `c18/I don't have the right or the legal documentation to access health services here`, `c18/I am afraid of being reported to authorities, or arrest, or deportation`, `c18/Discrimination against foreigners limits access to services`, `c18/I don't speak the language`, `c18/General insecurity and conflict prevent me from accessing healthcare`, `c18/There are no health services here`, `c18/Services are overwhelmed and access is difficult for everyone`, `c18/Other (specify)`, `c18/Don't know`, `c18/Refused`, `c18/None`,#HEALTHCARE
c23, #ASSISTANCE #received additional
c24, `c24/Access to health services`, `c24/Distribution of sanitary items (sanitizer/ mask/ gloves/ etc)`, `c24/Cash`, `c24/Cash to pay for health services`, `c24/Documentation to access health services`, `c24/Information about the virus: symptoms/ what to do if I have symptoms/ how to protect myself`, `c24/Other basic needs: food, water, shelter`, `c24/Support to return home`, `c24/Access to work and livelihoods`, `c24/Psychological assistance`, `c24/Childcare`, `c24/Other (specify)`, `c24/Refused`, #what kind
c25, `c25/The government of the country I was/am in`, `c25/My country of nationality's consulate`, `c25/UN`, `c25/NGOs`, `c25/Local population/community organisations`, `c25/Family/friends`, `c25/Fellow migrants`, `c25/Other (specify)`, `c25/Don't know`, `c25/Refused`, #asssitance provider
c26, #in need of extra help
c27, `c27/Access to health services`, `c27/Distribution of sanitary items (sanitizer/ mask/ gloves/ etc)`, `c27/Cash`, `c27/Cash to pay for health services`, `c27/Documentation to access health services`, `c27/Information about the virus: symptoms/ what to do if I have symptoms/ how to protect myself`, `c27/Other basic needs: food, water, shelter`, `c27/Support to return home`, `c27/Access to work and livelihoods`, `c27/Psychological assistance`, `c27/Childcare`, `c27/Other (specify)`, `c27/Refused`, #what kind of extra help
c20, `c20/Increased racism and xenophobia`, `c20/Reduced access to asylum application`, `c20/Reduced availability of basic goods`, `c20/Reduced access to work`, `c20/I am more worried and stressed`, `c20/Other (specify)`, `c20/Refused`, `c20/None`,#IMPACT OF LIFE #what impact
c21, c22, `c22/I am unable to afford basic goods`, `c22/Loss of housing`, `c22/Increased worry and anxiety`, `c22/I am unable to pay remittances`, `c22/I am unable to continue my journey`, `c22/Other (specify)`, `c22/Refused`, `c22/None`, #lost income
c19, `c19/None`, `c19/Increased difficulty crossing borders`, `c19/Increased risk of detention and deportation`, `c19/Reduced access to smugglers`, `c19/Increased difficulty moving around inside countries`, `c19/I was going to be resettled, but this is now delayed`, `c19/Disembarked / deported back to previous country`, `c19/I've been delayed because I was sick, or because I had to stop and take care of people who got sick`, `c19/I feel too afraid to move (to continue my journey or return)`, `c19/Other (specify)`, `c19/Refused`, #IMPACT ON JOURNEY #type
c29, #changed plans
c34, c35, Q29 #qualitative data, nationality
)) %>%
mutate(Region = as.factor("Latin America"), N_region = length(Region)) %>%
group_by(Q13_1c) %>% mutate(N_country = length(Q13_1c)) %>% ungroup()
dim(lac2) #646 207
View(lac2)
#na####
na2 <- na %>%
filter(start != "start") %>%
select(c(`_id`, start, Q25, Q23, Q20, Q13_1c, #PROFILES AND COUNTRY
c1, c2, c3, c4, c5, #covid overall #AWARENESS AND RISK
c11, `c11/Sometimes there are no symptoms`, `c11/Dry cough`, `c11/Aches and pains`, `c11/Fever`, `c11/Difficulties breathing`, `c11/Tiredness`, `c11/Other (specify)`, `c11/Don't know`, `c11/Refused`, #symptoms
c12, `c12/Babies and children under five`, `c12/Children and adolesents up to 15`, `c12/Adults (18 years and over)`, `c12/Older people (60 years and over)`, `c12/People who are already ill with another condition`, `c12/Pregnant women`, `c12/Health workers`, `c12/Other (specify)`, `c12/Don't know`, `c12/Refused`, #groups at risks
c13, `c13/Nothing`, `c13/Washing my hands more regularly/using hand sanitizer`, `c13/Not touching my face`, `c13/Wearing a mask`, `c13/Wearing gloves`, `c13/Avoiding crowded spaces`, `c13/Keeping a large physical distance from other people`, `c13/Staying at home and isolating myself from others`, `c13/Other (specify)`, `c13/Refused`, #protection measures
c14, `c14/I do not feel it is necessary`, `c14/I do not know what precautions to take`, `c14/I do not have access to protective gear (mask, gloves, sanitizer)`, `c14/I cannot practice physical distancing due to my living situation`, `c14/Other (specify)`, `c14/Refused`, #if not why
c15, c31, c32, #tested, 1.5 distance, and accommodation
c6, `c6/Friends/family in country of departure`, `c6/Friends/family in another country`, `c6/Travel agents`, `c6/Smugglers`, `c6/Online community/network`, `c6/NGOs / UN`, `c6/Foreign embassies / consulates`, `c6/National government / authorities`, `c6/Other migrants`, `c6/Local people I met on my journey`, `c6/Health professionals`, `c6/Spiritual/religious leaders`, `c6/Community leaders/mobilizers`, `c6/Other (specify)`, `c6/I don't remember`, `c6/Refused`, #INFORMATION #provider
c7, `c7/Street advertising (billboards/ leafleting)`, `c7/Radio/TV/newspapers`, `c7/Websites (not social media/messaging)`, `c7/Social media or messaging apps`, `c7/In-person`, `c7/Phone call`, `c7/Other`, `c7/I don't remember`, `c7/Refused`, #channel
c8, `c8/Facebook`, `c8/WhatsApp`, `c8/Instagram`, `c8/Viber`, `c8/Twitter`, `c8/Telegram`, `c8/YouTube`, `c8/Snapchat`, `c8/imo`, `c8/Other (specify)`, `c8/Don't know`, `c8/Refused`, #social media
c10, `c10/Friends/family in country of departure`, `c10/Friends/family in another country`, `c10/Travel agents`, `c10/Smugglers`, `c10/Online community/network`, `c10/NGOs / UN`, `c10/Foreign embassies / consulates`, `c10/National government / authorities`, `c10/Other migrants`, `c10/Local people I met on my journey`, `c10/Health professionals`, `c10/Spiritual/religious leaders`, `c10/Community leaders/mobilizers`, `c10/Other (specify)`, `c10/I don't remember`, `c10/Refused`, #trustworthy
c17, c18, `c18/I don't know where to go for healthcare`, `c18/The advice for testing and treating coronavirus is unclear here`, `c18/I don't have the money to pay for health services`, `c18/I don't have the right or the legal documentation to access health services here`, `c18/I am afraid of being reported to authorities, or arrest, or deportation`, `c18/Discrimination against foreigners limits access to services`, `c18/I don't speak the language`, `c18/General insecurity and conflict prevent me from accessing healthcare`, `c18/There are no health services here`, `c18/Services are overwhelmed and access is difficult for everyone`, `c18/Other (specify)`, `c18/Don't know`, `c18/Refused`,#HEALTHCARE
c23, #ASSISTANCE #received additional
c24, `c24/Access to health services`, `c24/Distribution of sanitary items (sanitizer/ mask/ gloves/ etc)`, `c24/Cash`, `c24/Cash to pay for health services`, `c24/Documentation to access health services`, `c24/Information about the virus: symptoms/ what to do if I have symptoms/ how to protect myself`, `c24/Other basic needs: food, water, shelter`, `c24/Support to return home`, `c24/Access to work and livelihoods`, `c24/Psychological assistance`, `c24/Childcare`, `c24/Other (specify)`, `c24/Refused`, #what kind
c25, `c25/The government of the country I was/am in`, `c25/My country of nationality's consulate`, `c25/UN`, `c25/NGOs`, `c25/Local population/community organisations`, `c25/Family/friends`, `c25/Fellow migrants`, `c25/Other (specify)`, `c25/Don't know`, `c25/Refused`, #asssitance provider
c26, #in need of extra help
c27, `c27/Access to health services`, `c27/Distribution of sanitary items (sanitizer/ mask/ gloves/ etc)`, `c27/Cash`, `c27/Cash to pay for health services`, `c27/Documentation to access health services`, `c27/Information about the virus: symptoms/ what to do if I have symptoms/ how to protect myself`, `c27/Other basic needs: food, water, shelter`, `c27/Support to return home`, `c27/Access to work and livelihoods`, `c27/Psychological assistance`, `c27/Childcare`, `c27/Other (specify)`, `c27/Refused`, #what kind of extra help
c20, `c20/Increased racism and xenophobia`, `c20/Reduced access to asylum application`, `c20/Reduced availability of basic goods`, `c20/Reduced access to work`, `c20/I am more worried and stressed`, `c20/Other (specify)`, `c20/Refused`, #IMPACT OF LIFE #what impact
c21, c22, `c22/I am unable to afford basic goods`, `c22/Loss of housing`, `c22/Increased worry and anxiety`, `c22/I am unable to pay remittances`, `c22/I am unable to continue my journey`, `c22/Other (specify)`, `c22/Refused`, `c22/None`, #lost income
c19, `c19/None`, `c19/Increased difficulty crossing borders`, `c19/Increased risk of detention and deportation`, `c19/Reduced access to smugglers`, `c19/Increased difficulty moving around inside countries`, `c19/I was going to be resettled, but this is now delayed`, `c19/Disembarked / deported back to previous country`, `c19/I've been delayed because I was sick, or because I had to stop and take care of people who got sick`, `c19/I feel too afraid to move (to continue my journey or return)`, `c19/Other (specify)`, `c19/Refused`, #IMPACT ON JOURNEY #type
c29, #changed plans
c34, c35, Q29 #qualitative data, nationality
)) %>%
mutate(Region = as.factor("North Africa"), N_region = length(Region)) %>%
group_by(Q13_1c) %>% mutate(N_country = length(Q13_1c)) %>% ungroup() %>%
add_column("c6/None"=NA, .after = 70) %>%
add_column("c10/None"=NA, .after = 111) %>%
add_column("c18/None"=NA, .after = 127) %>%
add_column("c20/None"=NA, .after = 177)
dim(na2) #1886 207
View(na2)
#wa####
wa2 <- wa %>%
filter(start != "start") %>%
select(c(`_id`, start, Q25, Q23, Q20, Q13_1c, #PROFILES AND COUNTRY
c1, c2, c3, c4, c5, #covid overall #AWARENESS AND RISK
c11, `c11/Sometimes there are no symptoms`, `c11/Dry cough`, `c11/Aches and pains`, `c11/Fever`, `c11/Difficulties breathing`, `c11/Tiredness`, `c11/Other (specify)`, `c11/Don't know`, `c11/Refused`, #symptoms
c12, `c12/Babies and children under five`, `c12/Children and adolesents up to 15`, `c12/Adults (18 years and over)`, `c12/Older people (60 years and over)`, `c12/People who are already ill with another condition`, `c12/Pregnant women`, `c12/Health workers`, `c12/Other (specify)`, `c12/Don't know`, `c12/Refused`, #groups at risks
c13, `c13/Nothing`, `c13/Washing my hands more regularly/using hand sanitizer`, `c13/Not touching my face`, `c13/Wearing a mask`, `c13/Wearing gloves`, `c13/Avoiding crowded spaces`, `c13/Keeping a large physical distance from other people`, `c13/Staying at home and isolating myself from others`, `c13/Other (specify)`, `c13/Refused`, #protection measures
c14, `c14/I do not feel it is necessary`, `c14/I do not know what precautions to take`, `c14/I do not have access to protective gear (mask, gloves, sanitizer)`, `c14/I cannot practice physical distancing due to my living situation`, `c14/Other (specify)`, `c14/Refused`, #if not why
c15, c31, c32, #tested, 1.5 distance, and accommodation
c6, `c6/Friends/family in country of departure`, `c6/Friends/family in another country`, `c6/Travel agents`, `c6/Smugglers`, `c6/Online community/network`, `c6/NGOs / UN`, `c6/Foreign embassies / consulates`, `c6/National government / authorities`, `c6/Other migrants`, `c6/Local people I met on my journey`, `c6/Health professionals`, `c6/Spiritual/religious leaders`, `c6/Community leaders/mobilizers`, `c6/Other (specify)`, `c6/I don't remember`, `c6/Refused`, `c6/I did not receive any information`,#INFORMATION #provider
c7, `c7/Street advertising (billboards/ leafleting)`, `c7/Radio/TV/newspapers`, `c7/Websites (not social media/messaging)`, `c7/Social media or messaging apps`, `c7/In-person`, `c7/Phone call`, `c7/Other`, `c7/I don't remember`, `c7/Refused`, #channel
c8, `c8/Facebook`, `c8/WhatsApp`, `c8/Instagram`, `c8/Viber`, `c8/Twitter`, `c8/Telegram`, `c8/YouTube`, `c8/Snapchat`, `c8/imo`, `c8/Other (specify)`, `c8/Don't know`, `c8/Refused`, #social media
c10, `c10/Friends/family in country of departure`, `c10/Friends/family in another country`, `c10/Travel agents`, `c10/Smugglers`, `c10/Online community/network`, `c10/NGOs / UN`, `c10/Foreign embassies / consulates`, `c10/National government / authorities`, `c10/Other migrants`, `c10/Local people I met on my journey`, `c10/Health professionals`, `c10/Spiritual/religious leaders`, `c10/Community leaders/mobilizers`, `c10/Other (specify)`, `c10/I don't remember`, `c10/Refused`, `c10/I did not receive any information`,#trustworthy
c17, c18, `c18/I don't know where to go for healthcare`, `c18/The advice for testing and treating coronavirus is unclear here`, `c18/I don't have the money to pay for health services`, `c18/I don't have the right or the legal documentation to access health services here`, `c18/I am afraid of being reported to authorities, or arrest, or deportation`, `c18/Discrimination against foreigners limits access to services`, `c18/I don't speak the language`, `c18/General insecurity and conflict prevent me from accessing healthcare`, `c18/There are no health services here`, `c18/Services are overwhelmed and access is difficult for everyone`, `c18/Other (specify)`, `c18/Don't know`, `c18/Refused`,`c18/None`,#HEALTHCARE
c23, #ASSISTANCE #received additional
c24, `c24/Access to health services`, `c24/Distribution of sanitary items (sanitizer/ mask/ gloves/ etc)`, `c24/Cash`, `c24/Cash to pay for health services`, `c24/Documentation to access health services`, `c24/Information about the virus: symptoms/ what to do if I have symptoms/ how to protect myself`, `c24/Other basic needs: food, water, shelter`, `c24/Support to return home`, `c24/Access to work and livelihoods`, `c24/Psychological assistance`, `c24/Childcare`, `c24/Other (specify)`, `c24/Refused`, #what kind
c25, `c25/The government of the country I was/am in`, `c25/My country of nationality's consulate`, `c25/UN`, `c25/NGOs`, `c25/Local population/community organisations`, `c25/Family/friends`, `c25/Fellow migrants`, `c25/Other (specify)`, `c25/Don't know`, `c25/Refused`, #asssitance provider
c26, #in need of extra help
c27, `c27/Access to health services`, `c27/Distribution of sanitary items (sanitizer/ mask/ gloves/ etc)`, `c27/Cash`, `c27/Cash to pay for health services`, `c27/Documentation to access health services`, `c27/Information about the virus: symptoms/ what to do if I have symptoms/ how to protect myself`, `c27/Other basic needs: food, water, shelter`, `c27/Support to return home`, `c27/Access to work and livelihoods`, `c27/Psychological assistance`, `c27/Childcare`, `c27/Other (specify)`, `c27/Refused`, #what kind of extra help
c20, `c20/Increased racism and xenophobia`, `c20/Reduced access to asylum application`, `c20/Reduced availability of basic goods`, `c20/Reduced access to work`, `c20/I am more worried and stressed`, `c20/Other (specify)`, `c20/Refused`, `c20/None`,#IMPACT OF LIFE #what impact
c21, c22, `c22/I am unable to afford basic goods`, `c22/Loss of housing`, `c22/Increased worry and anxiety`, `c22/I am unable to pay remittances`, `c22/I am unable to continue my journey`, `c22/Other (specify)`, `c22/Refused`, `c22/None`, #lost income
c19, `c19/None`, `c19/Increased difficulty crossing borders`, `c19/Increased risk of detention and deportation`, `c19/Reduced access to smugglers`, `c19/Increased difficulty moving around inside countries`, `c19/I was going to be resettled, but this is now delayed`, `c19/Disembarked / deported back to previous country`, `c19/I've been delayed because I was sick, or because I had to stop and take care of people who got sick`, `c19/I feel too afraid to move (to continue my journey or return)`, `c19/Other (specify)`, `c19/Refused`, #IMPACT ON JOURNEY #type
c29, #changed plans
c34, c35, Q29 #qualitative data, nationality
)) %>%
mutate(Region = as.factor("West Africa"), N_region = length(Region)) %>%
group_by(Q13_1c) %>% mutate(N_country = length(Q13_1c)) %>% ungroup()%>%
rename(`c6/None`=`c6/I did not receive any information`, `c10/None`=`c10/I did not receive any information`)
dim(wa2) #1129 207
View(wa2)
#CHECK COLNAMES BEFORE BINDING#############################
variables_names <- as.matrix(data.frame(asia = colnames(asia2), eay = colnames(eay2), lac = colnames(lac2), na = colnames(na2), wa = colnames(wa2)))
View(variables_names)
all(variables_names[,1]==variables_names)
#BIND######################################################
data <- rbind(asia2, eay2, lac2, na2, wa2)
dim(data) #4124 obs, 207 vars
#DEFINE VARIABLE TYPES#####################################
str(data)
View(colnames(data))
numerics <- c(4, 206:207)
data[numerics] <- lapply(data[numerics], as.numeric)
factors <- c(1:3, 5:205)
data[factors] <- lapply(data[factors], as.factor)
str(data)
#HARMONIZE 'NONE' ANSWER OPTIONS###########################
levels(data$`c6/None`) #inconsistent
levels(data$`c10/None`)#inconsistent
#c6
data$`c6/None` <- as.character(data$`c6/None`)
data$`c6/None`[data$`c6/None`=="I did not receive any information"] <- "None"
data$`c6/None` <- as.factor(data$`c6/None`)
#c10
data$`c10/None` <- as.character(data$`c10/None`)
data$`c10/None`[data$`c10/None`=="I did not receive any information"] <- "None"
data$`c10/None` <- as.factor(data$`c10/None`)
#FORMAT DATE###############################################
data <- data %>%
mutate(start=as.Date(start)) %>%
rename(`Date`=`start`)
str(data$Date)
View(data)
#SAVE######################################################
#rda
save(data, file = "rda/05_cleaned_data_20200609.rda")
#csv
write.csv(data, "data_outputs/05_cleaned_data_20200609.csv")
#column names
write.csv(colnames(data), "data_outputs/05_variables_names_20200609.csv")