first cut of plotting with R