Hello
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?