Simple R plotting script