use 7363_F1.dta, clear
// Prepare wave variable
label define wavex 1 "1991" 2 "1995" 3 "2000" 4 "2005" 5 "2010"
label val wave wavex
// Using the internet
fre y10_q_16
tab y10_q_16 wave
keep if wave > 3 // Drop waves where variable is missing
// Create variable of interest
generate nointernetuse = .
replace nointernetuse = (y10_q_16 == 7) if !missing(y10_q_16)
// Collapse data
collapse (mean) nointernetuse, by(countid wave)
replace nointernetuse = nointernetuse * 100
reshape wide nointernetuse, i(countid) j(wave)
// Sort variable labels
egen order_ = rank(-nointernetuse5), unique
labmask order_, val(countid) decode
label define order_ 8 "Macedonia", modify
twoway (pcarrow nointernetuse4 order_ nointernetuse5 order_, horizontal) ///
(scatter order_ nointernetuse5 if missing(nointernetuse4)) ///
, ylabel(1/34, val) legend(order(1 "Decrease 2005 to 2010" ///
2 "No data for 2005") pos(7) ring(0) size(*.8)) ///
ytitle("") ysize(8) xscale(alt) xtitle("% of labor force" ///
"never using internet/email" ///
"for professional reasons") ///
xlabel(10 (10) 80, grid) ///
note(" " "{it:Source:} European Working Conditions Survey 2005 and 2010", span)
