Add simple R plot over total population