Painters Dataset - Qualitative Data

R-Tutor.com - Qualitative Example

library (MASS)
library (colorspace)
school = painters$School
school.freq = table(school)
barplot(school.freq, col=rainbow_hcl(nrow(school.freq)))
title(main = "Painters by School", font.main = 4)

library (MASS)
library (colorspace)
school = painters$School
school.freq = table(school)
school.relative_freq = school.freq / nrow(painters)
barplot(school.relative_freq, col=rainbow_hcl(nrow(school.relative_freq)))
title(main = "Relative Frequency Painters by School", font.main = 4)

library (MASS)
library (colorspace)
school = painters$School
school.freq = table(school)
pie(school.freq, col=rainbow_hcl(nrow(school.relative_freq)))
title(main = "Painters by School", font.main = 4)

library (MASS)
library (colorspace)
school = painters$School
#mean composition scores
painter_school_mean = tapply(painters$Composition, painters$School, mean)
barplot(painter_school_mean, col=rainbow_hcl(nrow(school.relative_freq)))
title(main = "School Mean Composition score", font.main = 4)