library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
Stu_Rollno=c(101:326)
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")
## [1] "The Total Students Bus Allocation Details"
df<-data.frame(Stu_Rollno,Stu_stop)
print(df)
## Stu_Rollno Stu_stop
## 1 101 Periyar nagar
## 2 102 Periyar nagar
## 3 103 Periyar nagar
## 4 104 Periyar nagar
## 5 105 Periyar nagar
## 6 106 Periyar nagar
## 7 107 Periyar nagar
## 8 108 Periyar nagar
## 9 109 Periyar nagar
## 10 110 Periyar nagar
## 11 111 Periyar nagar
## 12 112 Periyar nagar
## 13 113 Periyar nagar
## 14 114 Periyar nagar
## 15 115 Periyar nagar
## 16 116 Periyar nagar
## 17 117 Periyar nagar
## 18 118 Periyar nagar
## 19 119 Periyar nagar
## 20 120 Periyar nagar
## 21 121 Periyar nagar
## 22 122 Periyar nagar
## 23 123 Periyar nagar
## 24 124 Periyar nagar
## 25 125 Periyar nagar
## 26 126 Periyar nagar
## 27 127 Periyar nagar
## 28 128 Periyar nagar
## 29 129 Periyar nagar
## 30 130 Periyar nagar
## 31 131 Periyar nagar
## 32 132 Periyar nagar
## 33 133 Periyar nagar
## 34 134 Periyar nagar
## 35 135 Periyar nagar
## 36 136 Periyar nagar
## 37 137 Periyar nagar
## 38 138 Periyar nagar
## 39 139 Periyar nagar
## 40 140 Periyar nagar
## 41 141 Periyar nagar
## 42 142 Periyar nagar
## 43 143 Periyar nagar
## 44 144 Periyar nagar
## 45 145 Periyar nagar
## 46 146 Tambaram
## 47 147 Tambaram
## 48 148 Tambaram
## 49 149 Tambaram
## 50 150 Tambaram
## 51 151 Tambaram
## 52 152 Tambaram
## 53 153 Tambaram
## 54 154 Tambaram
## 55 155 Tambaram
## 56 156 Tambaram
## 57 157 Tambaram
## 58 158 Tambaram
## 59 159 Tambaram
## 60 160 Tambaram
## 61 161 Tambaram
## 62 162 Tambaram
## 63 163 Tambaram
## 64 164 Tambaram
## 65 165 Tambaram
## 66 166 Tambaram
## 67 167 Tambaram
## 68 168 Tambaram
## 69 169 Tambaram
## 70 170 Tambaram
## 71 171 Tambaram
## 72 172 Tambaram
## 73 173 Tambaram
## 74 174 Tambaram
## 75 175 Tambaram
## 76 176 Tambaram
## 77 177 Tambaram
## 78 178 Tambaram
## 79 179 Tambaram
## 80 180 Tambaram
## 81 181 Tambaram
## 82 182 Tambaram
## 83 183 Tambaram
## 84 184 Tambaram
## 85 185 Tambaram
## 86 186 Arakkonam
## 87 187 Arakkonam
## 88 188 Arakkonam
## 89 189 Arakkonam
## 90 190 Arakkonam
## 91 191 Arakkonam
## 92 192 Arakkonam
## 93 193 Arakkonam
## 94 194 Arakkonam
## 95 195 Arakkonam
## 96 196 Arakkonam
## 97 197 Arakkonam
## 98 198 Arakkonam
## 99 199 Arakkonam
## 100 200 Arakkonam
## 101 201 Arakkonam
## 102 202 Arakkonam
## 103 203 Arakkonam
## 104 204 Arakkonam
## 105 205 Arakkonam
## 106 206 Arakkonam
## 107 207 Arakkonam
## 108 208 Arakkonam
## 109 209 Arakkonam
## 110 210 Arakkonam
## 111 211 Arakkonam
## 112 212 Arakkonam
## 113 213 Arakkonam
## 114 214 Arakkonam
## 115 215 Arakkonam
## 116 216 Arakkonam
## 117 217 Arakkonam
## 118 218 Arakkonam
## 119 219 Arakkonam
## 120 220 Arakkonam
## 121 221 Arakkonam
## 122 222 Arakkonam
## 123 223 Arakkonam
## 124 224 Arakkonam
## 125 225 Arakkonam
## 126 226 Arakkonam
## 127 227 Arakkonam
## 128 228 Arakkonam
## 129 229 Arakkonam
## 130 230 Arakkonam
## 131 231 Arakkonam
## 132 232 Arakkonam
## 133 233 Arakkonam
## 134 234 Arakkonam
## 135 235 Arakkonam
## 136 236 Kanchipuram
## 137 237 Kanchipuram
## 138 238 Kanchipuram
## 139 239 Kanchipuram
## 140 240 Kanchipuram
## 141 241 Kanchipuram
## 142 242 Kanchipuram
## 143 243 Kanchipuram
## 144 244 Kanchipuram
## 145 245 Kanchipuram
## 146 246 Kanchipuram
## 147 247 Kanchipuram
## 148 248 Kanchipuram
## 149 249 Kanchipuram
## 150 250 Kanchipuram
## 151 251 Kanchipuram
## 152 252 Kanchipuram
## 153 253 Kanchipuram
## 154 254 Kanchipuram
## 155 255 Kanchipuram
## 156 256 Kanchipuram
## 157 257 Kanchipuram
## 158 258 Kanchipuram
## 159 259 Kanchipuram
## 160 260 Kanchipuram
## 161 261 Kanchipuram
## 162 262 Kanchipuram
## 163 263 Kanchipuram
## 164 264 Kanchipuram
## 165 265 Kanchipuram
## 166 266 Kanchipuram
## 167 267 Kanchipuram
## 168 268 Kanchipuram
## 169 269 Kanchipuram
## 170 270 Kanchipuram
## 171 271 Kanchipuram
## 172 272 Kanchipuram
## 173 273 Kanchipuram
## 174 274 Kanchipuram
## 175 275 Kanchipuram
## 176 276 Kanchipuram
## 177 277 Kanchipuram
## 178 278 Kanchipuram
## 179 279 Kanchipuram
## 180 280 Kanchipuram
## 181 281 Kanchipuram
## 182 282 Ponneri
## 183 283 Ponneri
## 184 284 Ponneri
## 185 285 Ponneri
## 186 286 Ponneri
## 187 287 Ponneri
## 188 288 Ponneri
## 189 289 Ponneri
## 190 290 Ponneri
## 191 291 Ponneri
## 192 292 Ponneri
## 193 293 Ponneri
## 194 294 Ponneri
## 195 295 Ponneri
## 196 296 Ponneri
## 197 297 Ponneri
## 198 298 Ponneri
## 199 299 Ponneri
## 200 300 Ponneri
## 201 301 Ponneri
## 202 302 Ponneri
## 203 303 Ponneri
## 204 304 Ponneri
## 205 305 Ponneri
## 206 306 Ponneri
## 207 307 Ponneri
## 208 308 Ponneri
## 209 309 Ponneri
## 210 310 Ponneri
## 211 311 Ponneri
## 212 312 Ponneri
## 213 313 Ponneri
## 214 314 Ponneri
## 215 315 Ponneri
## 216 316 Ponneri
## 217 317 Ponneri
## 218 318 Ponneri
## 219 319 Ponneri
## 220 320 Ponneri
## 221 321 Ponneri
## 222 322 Ponneri
## 223 323 Ponneri
## 224 324 Ponneri
## 225 325 Ponneri
## 226 326 Ponneri
a=(df %>% count(Stu_stop))
print(a)
## Stu_stop n
## 1 Arakkonam 50
## 2 Kanchipuram 46
## 3 Periyar nagar 45
## 4 Ponneri 45
## 5 Tambaram 40
H<-c(50,46,45,45,40)
N<-c("Arakkonam","Kanchi","Periyarngr","Ponneri","Tambaram")
barplot(H,names.arg=N,col = c("red", "green", "yellow", "blue"))
print(barplot)
## function (height, ...)
## UseMethod("barplot")
## <bytecode: 0x00000169af449118>
## <environment: namespace:graphics>
b=((a$n)/30)
c<-c(30,30,30,30,30)
Buses_required<-ceiling(b)
print("The Total Bus Required is allocated")
## [1] "The Total Bus Required is allocated"
df1 <- data.frame(a,b,Buses_required)
print(df1)
## Stu_stop n b Buses_required
## 1 Arakkonam 50 1.666667 2
## 2 Kanchipuram 46 1.533333 2
## 3 Periyar nagar 45 1.500000 2
## 4 Ponneri 45 1.500000 2
## 5 Tambaram 40 1.333333 2
area<-c("Arakkonam","Kanchipuram","Periyar nagar","Ponneri","Tambaram")
km<-c(30,40,50,50,50)
bus_km<-data.frame(area,km)
print(bus_km)
## area km
## 1 Arakkonam 30
## 2 Kanchipuram 40
## 3 Periyar nagar 50
## 4 Ponneri 50
## 5 Tambaram 50
Fuel_price<-c(100)
Milage<-c(10)
as.integer(Fuel_price)
## [1] 100
as.integer(Milage)
## [1] 10
dff<-data.frame(area,km,Buses_required,Fuel_price,Milage)
Fuel_needed=((dff$km)/10)
as.integer(Fuel_needed)
## [1] 3 4 5 5 5
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)")
## [1] "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)
## area km Buses_required Fuel_price Milage Fuel_needed Fuel_cost
## 1 Arakkonam 30 2 100 10 3 300
## 2 Kanchipuram 40 2 100 10 4 400
## 3 Periyar nagar 50 2 100 10 5 500
## 4 Ponneri 50 2 100 10 5 500
## 5 Tambaram 50 2 100 10 5 500
## Tot_Fuel_cost
## 1 600
## 2 800
## 3 1000
## 4 1000
## 5 1000
y=sum(data$Tot_Fuel_cost)
cat(". The Total Fuel cost",y)
## . The Total Fuel cost 4400
print("Today's Required Bus allocation")
## [1] "Today's Required Bus allocation"
Stu_Rollno2=c(101:229)
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")
## [1] "The Total Students Bus Details"
df<-data.frame(Stu_Rollno2,Stu_stop2)
print(df)
## Stu_Rollno2 Stu_stop2
## 1 101 Periyar nagar
## 2 102 Periyar nagar
## 3 103 Periyar nagar
## 4 104 Periyar nagar
## 5 105 Periyar nagar
## 6 106 Periyar nagar
## 7 107 Periyar nagar
## 8 108 Periyar nagar
## 9 109 Periyar nagar
## 10 110 Periyar nagar
## 11 111 Periyar nagar
## 12 112 Periyar nagar
## 13 113 Periyar nagar
## 14 114 Periyar nagar
## 15 115 Periyar nagar
## 16 116 Periyar nagar
## 17 117 Periyar nagar
## 18 118 Periyar nagar
## 19 119 Periyar nagar
## 20 120 Periyar nagar
## 21 121 Periyar nagar
## 22 122 Periyar nagar
## 23 123 Arakkonam
## 24 124 Arakkonam
## 25 125 Arakkonam
## 26 126 Arakkonam
## 27 127 Arakkonam
## 28 128 Arakkonam
## 29 129 Arakkonam
## 30 130 Arakkonam
## 31 131 Arakkonam
## 32 132 Arakkonam
## 33 133 Arakkonam
## 34 134 Arakkonam
## 35 135 Arakkonam
## 36 136 Arakkonam
## 37 137 Arakkonam
## 38 138 Arakkonam
## 39 139 Arakkonam
## 40 140 Arakkonam
## 41 141 Arakkonam
## 42 142 Arakkonam
## 43 143 Arakkonam
## 44 144 Arakkonam
## 45 145 Arakkonam
## 46 146 Arakkonam
## 47 147 Arakkonam
## 48 148 Arakkonam
## 49 149 Kanchipuram
## 50 150 Kanchipuram
## 51 151 Kanchipuram
## 52 152 Kanchipuram
## 53 153 Kanchipuram
## 54 154 Kanchipuram
## 55 155 Kanchipuram
## 56 156 Kanchipuram
## 57 157 Kanchipuram
## 58 158 Kanchipuram
## 59 159 Kanchipuram
## 60 160 Kanchipuram
## 61 161 Kanchipuram
## 62 162 Kanchipuram
## 63 163 Kanchipuram
## 64 164 Kanchipuram
## 65 165 Kanchipuram
## 66 166 Kanchipuram
## 67 167 Kanchipuram
## 68 168 Kanchipuram
## 69 169 Kanchipuram
## 70 170 Kanchipuram
## 71 171 Kanchipuram
## 72 172 Kanchipuram
## 73 173 Kanchipuram
## 74 174 Kanchipuram
## 75 175 Kanchipuram
## 76 176 Kanchipuram
## 77 177 Kanchipuram
## 78 178 Kanchipuram
## 79 179 Ponneri
## 80 180 Ponneri
## 81 181 Ponneri
## 82 182 Ponneri
## 83 183 Ponneri
## 84 184 Ponneri
## 85 185 Ponneri
## 86 186 Ponneri
## 87 187 Ponneri
## 88 188 Ponneri
## 89 189 Ponneri
## 90 190 Ponneri
## 91 191 Ponneri
## 92 192 Ponneri
## 93 193 Ponneri
## 94 194 Ponneri
## 95 195 Ponneri
## 96 196 Ponneri
## 97 197 Ponneri
## 98 198 Ponneri
## 99 199 Ponneri
## 100 200 Ponneri
## 101 201 Ponneri
## 102 202 Ponneri
## 103 203 Ponneri
## 104 204 Ponneri
## 105 205 Tambaram
## 106 206 Tambaram
## 107 207 Tambaram
## 108 208 Tambaram
## 109 209 Tambaram
## 110 210 Tambaram
## 111 211 Tambaram
## 112 212 Tambaram
## 113 213 Tambaram
## 114 214 Tambaram
## 115 215 Tambaram
## 116 216 Tambaram
## 117 217 Tambaram
## 118 218 Tambaram
## 119 219 Tambaram
## 120 220 Tambaram
## 121 221 Tambaram
## 122 222 Tambaram
## 123 223 Tambaram
## 124 224 Tambaram
## 125 225 Tambaram
## 126 226 Tambaram
## 127 227 Tambaram
## 128 228 Tambaram
## 129 229 Tambaram
a=(df %>% count(Stu_stop2))
print(a)
## Stu_stop2 n
## 1 Arakkonam 26
## 2 Kanchipuram 30
## 3 Periyar nagar 22
## 4 Ponneri 26
## 5 Tambaram 25
H<-c(26,30,22,26,25)
N<-c("Arakkonam","Kanchi","Periyarngr","Ponneri","Tambaram")
barplot(H,names.arg=N,col = c("red", "green", "yellow", "blue"))
print(barplot)
## function (height, ...)
## UseMethod("barplot")
## <bytecode: 0x00000169af449118>
## <environment: namespace:graphics>
b=((a$n)/30)
c<-c(30,30,30,30,30)
Buses_required2<-ceiling(b)
print("The no of Bus Required is allocated")
## [1] "The no of Bus Required is allocated"
df1 <- data.frame(a,b,Buses_required2)
print(df1)
## Stu_stop2 n b Buses_required2
## 1 Arakkonam 26 0.8666667 1
## 2 Kanchipuram 30 1.0000000 1
## 3 Periyar nagar 22 0.7333333 1
## 4 Ponneri 26 0.8666667 1
## 5 Tambaram 25 0.8333333 1
area<-c("Arakkonam","Kanchipuram","Periyar nagar","Ponneri","Tambaram")
km<-c(30,40,50,50,50)
bus_km<-data.frame(area,km)
print(bus_km)
## area km
## 1 Arakkonam 30
## 2 Kanchipuram 40
## 3 Periyar nagar 50
## 4 Ponneri 50
## 5 Tambaram 50
as.integer(Fuel_price)
## [1] 100
as.integer(Milage)
## [1] 10
dfff<-data.frame(area,km,Buses_required2,Fuel_price,Milage)
Fuel_needed2=((dfff$km)/10)
as.integer(Fuel_needed2)
## [1] 3 4 5 5 5
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)")
## [1] "The Fuel Required is calculated(in ltrs)"
data<-data.frame(area,km,Buses_required2,Fuel_price,Milage,Fuel_needed,Fuel_cost2)
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)
## area km Buses_required2 Fuel_price Milage Fuel_needed2 Fuel_cost2
## 1 Arakkonam 30 1 100 10 3 300
## 2 Kanchipuram 40 1 100 10 4 400
## 3 Periyar nagar 50 1 100 10 5 500
## 4 Ponneri 50 1 100 10 5 500
## 5 Tambaram 50 1 100 10 5 500
## Tot_Fuel_cost1
## 1 300
## 2 400
## 3 500
## 4 500
## 5 500
y2=sum(df$Fuel_cost)
cat("The Total Fuel cost",y2)
## The Total Fuel cost 2200
mmm=y-y2
cat("The Reduced fuel through the allocation is",mmm)
## The Reduced fuel through the allocation is 2200
H1<-c(4400,2200)
N1<-c("Regular","Today")
barplot(H1,names.arg=N1,col = c("orange", "green"))
print(barplot)
## function (height, ...)
## UseMethod("barplot")
## <bytecode: 0x00000169af449118>
## <environment: namespace:graphics>