best frontend

library(dplyr) Stu_Rollno=c(1:226) Stu_name=c('A','B','C','A','B','B','C','G','F','F','F','G','G', 'F', 'F','A','B','A','B','C','G','F','F','F','G','G', 'F', 'F','A','B','A','B','C','G','F','F','F','G','G', 'F', 'F','A','B','A','B','C','G','F','F','F','G','G', 'F', 'F','A','B','A','B','C','G','F','F','F','G','G', 'F', 'F','A','B','A','B','C','G','F','F','F','G','G', 'F', 'F','A','B','A','B','C','G','F','F','F','G','G', 'F', 'F','A','B','A','B','C','G','F','F','F','G','G', 'F', 'F','A','B','A','B','C','G','F','F','F','G','G', 'F', 'F','A','B','A','B','C','G','F','F','F','G','G', 'F', 'F','A','B','A','B','C','G','F','F','F','G','G', 'F', 'F','A','B','A','B','C','G','F','F','F','G','G', 'F', 'F','A','B','C','G','F','F','F','G','G', 'F', 'F','A','B','C','G','F','F','F','G','G', 'F', 'F','A','B','C','G','F','F','F','G','G', 'F', 'F','F','A', 'B', 'C', 'G', 'F', 'F', 'F', 'G', 'G', 'F', 'F','A', 'B', 'C', 'G', 'F', 'F', 'F', 'G', 'G', 'F', 'F','A', 'B', 'C', 'G', 'F', 'F', 'F', 'G', 'G', 'F','G', 'F') Stu_stop<-c("Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Periyar nagar","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri") print("The Total Students Bus Allocation Details") df<-data.frame(Stu_Rollno,Stu_name,Stu_stop) print(df) a=(df %>% count(Stu_stop)) print(a) H<-c(50,46,45,45,40) N<-c("Arakkonam","Kanchipuram","Periyarngr","Ponneri","Tambaram") barplot(H,names.arg=N) print(barplot) b=((a$n)/30) c<-c(30,30,30,30,30) Buses_required<-ceiling(b) print("The Total Bus Required is allocated") df1 <- data.frame(a,b,Buses_required) print(df1) area<-c("Arakkonam","Kanchipuram","Periyarngr","Ponneri","Tambaram") km<-c(30,40,50,50,50) bus_km<-data.frame(area,km,Buses_required) Fuel_price<-c(100) Milage<-c(10) as.integer(Fuel_price) as.integer(Milage) dff<-data.frame(area,km,Buses_required,Fuel_price,Milage) Fuel_needed=((dff$km)/10) as.integer(Fuel_needed) df<-data.frame(area,km,Buses_required,Fuel_price,Milage,Fuel_needed) Fuel_cost=((df$Fuel_needed)100) print("The Fuel Required is calculated(in ltrs)") data<-data.frame(area,km,Buses_required,Fuel_price,Milage,Fuel_needed,Fuel_cost) Tot_Fuel_cost<-(data$Buses_required)(data$Fuel_cost) data<-data.frame(area,km,Buses_required,Fuel_price,Milage,Fuel_needed,Fuel_cost,Tot_Fuel_cost) print(data) z=sum(data$Fuel_needed) cat("The Total Litres of fuel required",z) y=sum(data$Tot_Fuel_cost) cat(". The Total Fuel .cost",y) print("Today's Bus Required is allocated") Stu_Rollno2=c(1:129) Stu_name2=c('A','B','C','G','F','F','F','G','G', 'F', 'F','C','G','F','F','F', 'F', 'F','C','G','F','F','F', 'F', 'F','C','G','F','F','F', 'F', 'F','C','G','F','F','F','G','G', 'F','G','F','F','G','F','F','F','G','G', 'F','G','F','F','F','G','G', 'F','F','G','G', 'F','G','F','F','F','G','G', 'F','G','F','F','F','G','G', 'F', 'F','C','G','F','F','F','G','G', 'F', 'F','C','G','F','F','F','G','G', 'F', 'F', 'F','A', 'B', 'C', 'G', 'F', 'F', 'F', 'G', 'G', 'F', 'F','A', 'B', 'C', 'G', 'F', 'F', 'F', 'G', 'G', 'F', 'F','A', 'B', 'C', 'G', 'F', 'F', 'F', 'G', 'G', 'F','G', 'F') Stu_stop2<-c("Periyar nagar","Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Periyar nagar", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Arakkonam", "Kanchipuram","Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Kanchipuram", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Ponneri", "Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram","Tambaram") print("The Total Students Bus Details") df<-data.frame(Stu_Rollno2,Stu_name2,Stu_stop2) print(df) a=(df %>% count(Stu_stop2)) print(a) H1<-c(26,30,22,26,25) N1<-c("Arakkonam","Kanchipuram","Periyarngr","Ponneri","Tambaram") barplot(H1,names.arg=N1) print(barplot) b=((a$n)/30) c<-c(30,30,30,30,30) Buses_required2<-ceiling(b) print("The no of Bus Required is allocated") df1 <- data.frame(a,b,Buses_required2) print(df1) area<-c("Arakkonam","Kanchipuram","Periyar_nagar","Ponneri","Tambaram") km<-c(30,40,50,50,50) bus_km<-data.frame(area,km,Buses_required2) as.integer(Fuel_price) as.integer(Milage) dfff<-data.frame(area,km,Buses_required2,Fuel_price,Milage) Fuel_needed2=((dfff$km)/10) as.integer(Fuel_needed2) df<-data.frame(area,km,Buses_required2,Fuel_price,Milage,Fuel_needed2) Fuel_cost2=((df$Fuel_needed2)100) print("The Fuel Required is calculated(in ltrs)") data<-data.frame(area,km,Buses_required2,Fuel_price,Milage,Fuel_needed,Fuel_cost2) print(data) Tot_Fuel_cost1<-(data$Buses_required2)(data$Fuel_cost2) df<-data.frame(area,km,Buses_required2,Fuel_price,Milage,Fuel_needed2,Fuel_cost2,Tot_Fuel_cost1) print(df) z2=sum(df$Fuel_needed) cat("The Total Litres of fuel required",z2) y2=sum(df$Fuel_cost) cat("The Total Fuel cost",y2) mm=z-z2 cat("The Reduced fuel through the allocation is",mm) mmm=y-y2 cat("The Reduced fuel through the allocation is",mmm)