now through R studio
gg