Mar 10, 2016

Random graphs (62): Histograms

qui summarize challenging
local m = round(r(mean), .1)
local sd = round(r(mean), .1)
local n = r(N)
numlabel challenging, add mask("# ")
twoway histogram challenging, discrete yla(, valuelabel) horizontal gap(20)  ///
                              freq ytitle("") start(1) xlabel(0/4, grid) ///
                              title("How" "{bf:challenging}" "was this paper?", span) ///
                              xsize(3) note("Mean = `m', {it:SD} = `sd', {it:N} = `n'", span) ///
                              name(challenging, replace)

qui summarize interesting
local m = round(r(mean), .1)
local sd = round(r(mean), .1)
local n = r(N)
numlabel interesting, add mask("# ")
twoway histogram interesting, discrete yla(, valuelabel) gap(20) horizontal ///
                              freq ytitle("") start(1) xlabel(0/4, grid) ///
                              title("How" "{bf:interesting}" "was this paper?", span) ///
                              xsize(3) note("Mean = `m', {it:SD} = `sd', {it:N} = `n'", span) ///
                              name(interesting, replace)

qui summarize recommendable
local m = round(r(mean), .1)
local sd = round(r(mean), .1)
local n = r(N)
numlabel recommendable, add mask("# ")
twoway histogram recommendable, discrete yla(, valuelabel) gap(20) horizontal ///
                                freq ytitle("") start(1) xlabel(0/4, grid) ///
                                title("How likely are you to" "{bf:recommend}" "this paper to a friend?", span) ///
                                xsize(3) note("Mean = `m', {it:SD} = `sd', {it:N} = `n'", span) ///
                                name(recommendable, replace)
         
graph combine challenging interesting recommendable, row(1)