If I may be so bold:
*! 3.14159 24 January 2007
* Michael Blasnik, Svend Juul, Nick Cox
program asciiplot
version 8
preserve
clear
qui set obs 223
gen asciin = _n + 32
gen ascii = char(asciin)
gen x = int(asciin/10)
gen y = mod(asciin,10)
local scheme "`c(scheme)'"
capture set scheme lean1
twoway scatter y x , msymbol(i) ///
mlab(ascii) mlabpos(0) mlabsize(large) ///
ylabel(0(1)9 , nogrid notick) ymticks(-0.5(1)9.5 , grid) ///
ytitle("Last Digit") ysc(reverse) ///
xaxis(1 2) xtitle("First Digit(s) of ASCII Code", axis(2)) ///
xlabel(3(1)25, axis(2) nogrid notick) ///
xmticks(2.5(1)25.5, axis(2) grid) ///
xscale(off axis(1)) ///
xsize(6) ysize(4) plotregion(margin(zero))
set scheme `scheme'
end
This doesn't destroy data in memory, and doesn't fail
if for some unfathomable reason you have not yet installed
scheme -lean1-.
Nick
n.j.cox@durham.ac.uk