Miscellaneous small scripts for R figures