(I've posted the same question on SO, not sure if there are rules against that or not?)
diamonds %>% ggplot(aes(scale(price) %>% as.vector)) + geom_density() + xlim(-3, 3) + facet_wrap(vars(cut))
Returns a plot:
Since I used scale, those numbers are the zscores or standard deviations away from the mean of each break.
I would like to add as a row underneath the equivalent non scaled raw number that corresponds to each.
diamonds$price %>% log %>% mean %>% exp (i.e. the exp transformed Geo mean) would go underneath the middle at break 0.
diamonds %>% ggplot(aes(scale(price) %>% as.vector)) + geom_density() + xlim(-3, 3) + facet_wrap(vars(cut)) + geom_text(aes(label = price))
Error: geom_text requires the following missing aesthetics: y
I then tried changing my call to
geom_text(data = diamonds, aes(price), label = price)
This results in the same error message.
My primary question is how can I add the raw values underneath -3:3 of each break? I don't want to change those breaks, I still want 6 breaks between -3:3.
Secondary question, how can I get -3 and 3 to actually show up in the chart? They have been trimmed.