change loading bar and ggplot2