Page 299 - Data Science class 11
P. 299
people_score <- c(19, 23, 11, 5, 16, 21, 32,
14, 19, 27, 39,32,35,32,22,21,34,28,19,17,4,6)
hist(people_score, xlab = “No.of people in different age groups who visited the counter
“,
col = “yellow”, border = “black”)
expenditure <- c(15000, 6000, 5000, 2500,3000)
result <- pie(expenditure,
main = “A student’s Monthly Expenditure Breakdown”,
labels = c(“Housing”, “Food”, “Cloths”, “Entertainment”, “Other”),
col = c(“red”, “orange”, “yellow”, “blue”, “green”)
print(result)
Projects 297

