|
|
|
@ -55,3 +55,27 @@ nrow(school.freq)
|
|
|
|
|
colors
|
|
|
|
|
barplot(composition.freq, col=colors)
|
|
|
|
|
q()
|
|
|
|
|
library(MASS)
|
|
|
|
|
school = painters$school
|
|
|
|
|
school
|
|
|
|
|
school = painters$School
|
|
|
|
|
school
|
|
|
|
|
school.freq = table(school)
|
|
|
|
|
pip(school.freq)
|
|
|
|
|
pie(school.freq)
|
|
|
|
|
colors = c("red", "yellow", "green", "violet", "orange", "blue", "pink", "cyan")
|
|
|
|
|
pie(school.freq, col=colors)
|
|
|
|
|
composition = painters$Composition
|
|
|
|
|
composition.freq = table(composition)
|
|
|
|
|
pip(composition.freq, col=colors)
|
|
|
|
|
pie(composition.freq, col=colors)
|
|
|
|
|
library(MASS)
|
|
|
|
|
school = painters$School
|
|
|
|
|
c_school = school == "C"
|
|
|
|
|
c_painters = painters[c_school,]
|
|
|
|
|
mean(c_painters$Composition)
|
|
|
|
|
pie(tapply(painters$Composition, painters$School, mean)
|
|
|
|
|
pie(tapply(painters$Composition, painters$School, mean))
|
|
|
|
|
barchart(tapply(painters$Composition, painters$School, mean))
|
|
|
|
|
barplot(tapply(painters$Composition, painters$School, mean))
|
|
|
|
|
q()
|
|
|
|
|