add r bar chart