ggplot(df, aes(make, age, fill=make)) + geom_bar(stat = 'summary', fun='mean')
x <- 5
The radius is 5