Create ggplot density