R scripts that created figures