Create ggplot bar and hist