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
   294   295   296   297   298   299   300   301   302   303   304