attention bar graph r script