Chapter 2 Stats In class work , R

Chapter 2 Stats In class work

Ford <- "Ford"
Chevy <- "Chevy"
Honda <- "Honda"
Toyota <- "Toyota"
Nissan <- "Nissan"
Kia <- "Kia"
Mercedes <- "Mercedes"
Porsche <- "Porsche"
Hyundai <- "Hyundai"
Saturn <- "Saturn"
cars <- c(Ford, Chevy, Honda, Toyota, Toyota, Nissan, Kia, Nissan,Chevy, Toyota, Honda, Chevy, Toyota,  Nissan,  Ford,Toyota,  Nissan,  Mercedes,  Chevy,  Ford,  Nissan,  Toyota,Nissan,  Ford,  Chevy,  Toyota,  Nissan,  Honda,  Porsche,Hyundai,  Chevy,  Chevy,  Honda,  Toyota,  Chevy,  Ford,Nissan,  Toyota,  Chevy,  Honda,  Chevy,  Saturn,  Toyota,Chevy,  Chevy,  Nissan,  Honda,  Toyota,  Toyota,  Nissan)
cars.t <- table(cars)
cars.t
cars.df <- data.frame(cars.t)
cars.df
cars.df[ ,"Rel.Freq"] <- cars.df$Freq/length(cars)
cars.df
levels(cars.df$cars) <- c(levels(cars.df$cars), "TOTALS")
row11 <- c("TOTALS", sum(cars.df$Freq), sum(cars.df$Rel.Freq))
cars.df[11, ] <- row11 
cars.df  
barplot(cars.t)
Hyundai <- "Other"
Kia <- "Other"
Mercedes <- "Other"
Porsche <- "Other"
Saturn <- "Other"
cars.s <- c(Ford,  Chevy,  Honda,  Toyota,  Toyota,  Nissan,  Kia,  Nissan,Chevy,  Toyota,  Honda,  Chevy,  Toyota,  Nissan,  Ford,Toyota,  Nissan,  Mercedes,  Chevy,  Ford,  Nissan,  Toyota,Nissan,  Ford,  Chevy,  Toyota,  Nissan,  Honda,  Porsche,Hyundai,  Chevy,  Chevy,  Honda,  Toyota,  Chevy,  Ford,Nissan,  Toyota,  Chevy,  Honda,  Chevy,  Saturn,  Toyota,Chevy,  Chevy,  Nissan,  Honda,  Toyota,  Toyota,  Nissan)
cars.st <- table(cars.s)[c(2,1,3,6,4,5)]
cars.st
barplot(cars.st)
barplot(cars.st, main="Type of Car Driven", xlab="Car Type", ylab="Frequency", col="Blue")
pie(cars.st)
cars.sp <- sort(cars.st, decreasing=TRUE)
barplot(cars.st, main="Pareto Chart For Car Type", xlab="Car Type", ylab="Frequency", col="blue")
cars.sp


run \| edit \| history \| help	0