I'm a beginner at R and ggplot2.
I'm practicing on the diamonds dataset using this code
library(ggplot2) library(dplyr) avg_diam <- diamonds %>% group_by(cut) %>% summarise(avg_price=mean(price)) ggplot(data = avg_diam, mapping = aes(x=cut, y=avg_price, fill=cut))+ geom_bar(stat = 'identity')
The chart that I'm getting is like this
The chart shows that the average price of the fair cut is more than the ideal cut.
Is that true or am I doing something wrong?