Skip to content

Refactor comments, improve code clarity, add autotabgraph #10

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: main
Choose a base branch
from
Open

Refactor comments, improve code clarity, add autotabgraph #10

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
279 changes: 141 additions & 138 deletions data/scheme_test.do
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -13,201 +13,204 @@
****************************
****************************

// Source
* https://github.com/asjadnaqvi/stata-schemepack
* https://medium.com/the-stata-guide

// report errors here:
// Report errors here:
* https://github.com/asjadnaqvi/stata-schemepack/issues



set autotabgraph on
clear
foreach graph in scatter line pie box histogram bar hbar ci range ///
area scatter_label scatter_by {
cap graph drop `graph'
}

// See github page to check if there are version differences between SSC and GitHub

// install from ssc
*ssc install schemepack, replace

// OR install from GitHub
*net install schemepack, from("https://raw.githubusercontent.com/asjadnaqvi/stata-schemepack/main/installation/") replace

// read the data
use "https://github.com/asjadnaqvi/stata-schemepack/blob/main/data/scheme_test.dta?raw=true", clear

// you either type:
* set scheme white_tableau
* set scheme black_tableau
* set scheme gg_tableau
* Installation
// See GitHub page to check if there are version differences between SSC and GitHub

// or permanently set the theme
* set scheme white_tableau, perm

// or set it in a graph directly
* twoway (scatter var2 date if group==1), scheme(white_tableau)
// install from ssc
*ssc install schemepack, replace

// OR install from GitHub
*net install schemepack, from("https://raw.githubusercontent.com/asjadnaqvi/stata-schemepack/main/installation/") replace

// read the data
use "https://github.com/asjadnaqvi/stata-schemepack/blob/main/data/scheme_test.dta?raw=true", clear


* Setup
// Set the scheme, e.g.:
* set scheme white_tableau
* set scheme black_tableau
* set scheme gg_tableau

// Feel free to try these on your own datasets and please report errors if any
// Or permanently set the theme
* set scheme white_tableau, perm

// Or set it in a graph directly
* twoway (scatter var2 date if group==1), scheme(white_tableau)

set scheme white_tableau
set scheme white_tableau


*****************************************
*********** TEST GRAPHS BELOW ***********
*****************************************

// note that some schemes might only have only 6 or 8 color. Therefore the cycle repeats once the last defined
// color of a scheme is reached.
// Feel free to try these on your own datasets; report errors if you find any.

// Note that some schemes might only have only 6 or 8 colors. Therefore, the
// cycle repeats once the last defined color of a scheme is reached.

*** Scatter plot

twoway ///
(scatter var2 date if group==1) ///
(scatter var2 date if group==2) ///
(scatter var2 date if group==3) ///
(scatter var2 date if group==4) ///
(scatter var2 date if group==5) ///
(scatter var2 date if group==6) ///
(scatter var2 date if group==7) ///
(scatter var2 date if group==8) ///
(scatter var2 date if group==9) ///
(scatter var2 date if group==10) ///
(scatter var2 date if group==11) ///
(scatter var2 date if group==12) ///
, ///
legend(order(1 "group1" 2 "group2" 3 "group3" 4 "group4" 5 "group5" 6 "group6" 7 "group7" 8 "group8" 9 "group9" 10 "group10" 11 "group11" 12 "group12")) ///
title("Scatter plot") ///
note("By the Stata Guide")



(scatter var2 date if group==1) ///
(scatter var2 date if group==2) ///
(scatter var2 date if group==3) ///
(scatter var2 date if group==4) ///
(scatter var2 date if group==5) ///
(scatter var2 date if group==6) ///
(scatter var2 date if group==7) ///
(scatter var2 date if group==8) ///
(scatter var2 date if group==9) ///
(scatter var2 date if group==10) ///
(scatter var2 date if group==11) ///
(scatter var2 date if group==12), ///
legend(order(1 "group1" 2 "group2" 3 "group3" 4 "group4" 5 "group5" ///
6 "group6" 7 "group7" 8 "group8" 9 "group9" 10 "group10" ///
11 "group11" 12 "group12")) ///
title("Scatter plot") ///
subtitle("A subtitle example") ///
note("The Stata Guide") ///
name(scatter)


*** Line graph

twoway ///
(line var2 date if group==1) ///
(line var2 date if group==2) ///
(line var2 date if group==3) ///
(line var2 date if group==4) ///
(line var2 date if group==5) ///
(line var2 date if group==6) ///
(line var2 date if group==7) ///
(line var2 date if group==8) ///
(line var2 date if group==9) ///
(line var2 date if group==10) ///
(line var2 date if group==11) ///
(line var2 date if group==12) ///
, ///
legend(order(1 "group1" 2 "group2" 3 "group3" 4 "group4" 5 "group5" 6 "group6" 7 "group7" 8 "group8" 9 "group9" 10 "group10" 11 "group11" 12 "group12")) ///
title("Line plot") ///
note("The Stata Guide", size(vsmall))




(line var2 date if group==1) ///
(line var2 date if group==2) ///
(line var2 date if group==3) ///
(line var2 date if group==4) ///
(line var2 date if group==5) ///
(line var2 date if group==6) ///
(line var2 date if group==7) ///
(line var2 date if group==8) ///
(line var2 date if group==9) ///
(line var2 date if group==10) ///
(line var2 date if group==11) ///
(line var2 date if group==12), ///
legend(order(1 "group1" 2 "group2" 3 "group3" 4 "group4" 5 "group5" ///
6 "group6" 7 "group7" 8 "group8" 9 "group9" 10 "group10" ///
11 "group11" 12 "group12")) ///
title("Line plot") ///
note("The Stata Guide", size(vsmall)) ///
name(line)


*** Pie chart

graph pie var2 if group <= 10, ///
over(group) plabel(_all percent, format(%9.2f)) ///
line(lcolor(black) lwidth(vvthin)) /// // outline colors have to be manually added
title("Pie plot") ///
note("The Stata Guide", size(vsmall))


graph pie var2 if group <= 10, ///
over(group) plabel(_all percent, format(%9.2f)) ///
line(lcolor(black) lwidth(vvthin)) /// outline colors manually added ///
title("Pie plot") ///
note("The Stata Guide", size(vsmall)) ///
name(pie)

*** Box plot

graph box ///
var* ///
, ///
title("Box plot") ///
note("The Stata Guide", size(vsmall))
graph box ///
var*, ///
title("Box plot") ///
note("The Stata Guide", size(vsmall)) ///
name(box)


*** Histogram

histogram var4, percent ///
title("Histogram") ///
note("The Stata Guide", size(vsmall))

histogram var4, percent ///
title("Histogram") ///
note("The Stata Guide", size(vsmall)) ///
name(histogram) ///


*** Bar graph

graph bar ///
var* ///
, ///
blabel(bar, format(%9.2f)) ///
title("Bar graph") ///
note("The Stata Guide", size(vsmall))
graph bar ///
var*, ///
blabel(bar, format(%9.2f)) ///
title("Bar graph") ///
note("The Stata Guide", size(vsmall)) ///
name(bar)



*** Horizontal bar graph

graph hbar (mean) ///
var* ///
if group <= 6, ///
over(group) ///
percentages stack ///
legend(order(1 "Var 1" 2 "Var 2" 3 "Var 3" 4 "Var 4" 5 "Var 5" 6 "Var 6")) ///
title("Bar graph") ///
note("The Stata Guide", size(vsmall))

graph hbar (mean) ///
var* ///
if group <= 6, ///
over(group) ///
percentages stack ///
legend(order(1 "Var 1" 2 "Var 2" 3 "Var 3" 4 "Var 4" 5 "Var 5" 6 "Var 6")) ///
title("Bar graph") ///
note("The Stata Guide", size(vsmall)) ///
name(hbar)


*** Confidence bands

twoway ///
(lpolyci var1 var9, fcolor(%80)) ///
(lpolyci var2 var9, fcolor(%80)) ///
(lpolyci var3 var9, fcolor(%80)) ///
, ///
title("Confidence Interval") ///
note("The Stata Guide", size(vsmall))
twoway ///
(lpolyci var1 var9, fcolor(%80)) ///
(lpolyci var2 var9, fcolor(%80)) ///
(lpolyci var3 var9, fcolor(%80)), ///
title("Confidence Interval") ///
note("The Stata Guide", size(vsmall)) ///
name(ci)


*** Range graphs
twoway ///
(rcapsym var2 var3 date if group==1, sort) ///
(rcapsym var2 var3 date if group==2, sort) ///
, ///
title("Range plots") ///
note("The Stata Guide", size(vsmall))

twoway ///
(rcapsym var2 var3 date if group==1, sort) ///
(rcapsym var2 var3 date if group==2, sort), ///
title("Range plots") ///
note("The Stata Guide", size(vsmall)) ///
name(range)


*** Area graphs

twoway ///
(area den1d den1x, fcolor(%50)) ///
(area gen2d gen2x, fcolor(%50)) ///
(area gen3d gen3x, fcolor(%50)), ///
title("Density plots") ///
note("The Stata Guide", size(vsmall))
twoway ///
(area den1d den1x, fcolor(%50)) ///
(area gen2d gen2x, fcolor(%50)) ///
(area gen3d gen3x, fcolor(%50)), ///
title("Density plots") ///
note("The Stata Guide", size(vsmall)) ///
name(area)


*** Scatter labels

twoway ///
(scatter var2 var1, mlabel(group)) ///
if date==22320 ///
, ///
title("Confidence Interval") ///
note("The Stata Guide", size(vsmall))

twoway ///
(scatter var2 var1, mlabel(group)) ///
if date==22320, ///
title("Confidence Interval") ///
note("The Stata Guide", size(vsmall)) ///
name(scatter_label)


*** By graphs

twoway ///
(scatter var2 var1) ///
if group <= 12, ///
by(group, yrescale xrescale) ///
by(, title("By graphs") note("The Stata Guide", size(vsmall)))


twoway ///
(scatter var2 var1) ///
if group <= 12, ///
by(group, yrescale xrescale) ///
by(, title("By graphs") note("The Stata Guide", size(vsmall))) ///
name(scatter_by)


//// ******* END OF FILE ******* \\\\