Random graphs (36): Small-multiples line plot

clear
input str2 cntry r1998 r2001 r2004 r2007 r2010 r2013
AT 6 6 6 6 6 3
BE 6 6 2 3 6 6
BG . . 4 6 6 3
CA 6 6 6 6 . .
CH . 4 3 6 3 3
CZ 4 4 6 3 . 6
DE 3 3 3 3 3 .
DK 3 3 3 3 2 3
GR 6 6 6 4 4 .
ES 6 6 6 3 3 3
FI 6 6 6 6 . 6
FR 6 6 6 . . 3
HR . . . 3 3 .
HU 4 4 4 4 4 4
IE 6 3 6 6 . 6
IL 6 4 6 6 6 1
IS . . . . 2 6
IT 4 4 6 3 . 6
JP 4 4 3 . 1 2
LV . . . 3 3 3
NL 6 6 6 6 2 .
NO 6 6 6 3 . 6
PL 3 3 3 . 6 .
PT 6 3 4 6 . .
RO . . 6 6 3 .
SE 3 3 2 2 2 2
SI . . 3 3 3 3
TR 6 6 6 6 3 2
UK 2 2 3 2 3 2
US 6 5 6 5 . 6
end

reshape long r, i(cntry) j(year)

label define r 6 "No limit"
label val r r

twoway (connected r year, by(cntry, note("")) /// // by(, note("")) suppresses
                          ylabel(0(1)6, val) ///  // "Graphs by"
                          xlabel(1998 2001 2004 2007 2010 2013) ///                          
                          lwidth(thick) cmissing(no) msize(large) msymbol(O) ///
                          xtitle("") ytitle("Maximum number of embryos per cycle"))