Create plot with R