Q4: Data Import
bike1 <- read.table("bike_sharing_data.csv", sep=",", header=TRUE)
Q7: Indexing to retrieve row and column
value <- bike1[6251,"season"]
Q8: Using table()
table(bike1$season)
##
## 1 2 3 4
## 4242 4409 4496 4232
Q10: Windspeed
bike1[bike1$windspeed>=40,]
## datetime season holiday workingday weather temp atemp humidity
## 1008 2/14/2011 15:00 1 0 1 1 22.96 26.515 21
## 1010 2/14/2011 17:00 1 0 1 1 18.86 22.725 33
## 1011 2/14/2011 18:00 1 0 1 1 16.40 20.455 40
## 1015 2/14/2011 22:00 1 0 1 1 13.94 14.395 46
## 1018 2/15/2011 1:00 1 0 1 1 12.30 12.120 42
## 1019 2/15/2011 2:00 1 0 1 1 11.48 11.365 41
## 1120 2/19/2011 9:00 1 0 0 1 16.40 20.455 16
## 1124 2/19/2011 13:00 1 0 0 1 18.04 21.970 16
## 1125 2/19/2011 14:00 1 0 0 1 18.86 22.725 15
## 1126 2/19/2011 15:00 1 0 0 1 18.04 21.970 16
## 1127 2/19/2011 16:00 1 0 0 1 18.04 21.970 16
## 1128 2/19/2011 17:00 1 0 0 1 17.22 21.210 19
## 1259 2/25/2011 14:00 1 0 1 3 22.96 26.515 56
## 1260 2/25/2011 15:00 1 0 1 1 18.86 22.725 41
## 1262 2/25/2011 17:00 1 0 1 1 13.12 13.635 49
## 1265 2/25/2011 20:00 1 0 1 1 12.30 12.880 49
## 1333 2/28/2011 19:00 1 0 1 3 18.04 21.970 88
## 1334 2/28/2011 20:00 1 0 1 3 18.04 21.970 88
## 1478 3/6/2011 21:00 1 0 0 3 9.84 9.090 93
## 1874 3/23/2011 20:00 2 0 1 3 14.76 15.150 87
## 2157 4/4/2011 17:00 2 0 1 1 30.34 32.575 23
## 2848 5/3/2011 13:00 2 0 1 2 28.70 32.575 58
## 4316 7/3/2011 17:00 3 0 0 3 32.80 37.120 49
## 4317 7/3/2011 18:00 3 0 0 3 32.80 37.120 49
## 5156 8/7/2011 17:00 3 0 0 3 30.34 35.605 74
## 5636 8/27/2011 17:00 3 0 0 3 26.24 28.790 89
## 5640 8/28/2011 10:00 3 0 0 1 28.70 32.575 61
## 6077 9/15/2011 18:00 3 0 1 3 19.68 23.485 67
## 8068 12/7/2011 19:00 4 0 1 3 13.94 14.395 87
## 8069 12/7/2011 20:00 4 0 1 3 13.94 14.395 87
## 8706 1/3/2012 13:00 1 0 1 1 7.38 6.060 34
## 8943 1/13/2012 11:00 1 0 1 1 9.84 9.090 38
## 9644 2/11/2012 18:00 1 0 0 2 9.02 9.090 47
## 9647 2/11/2012 21:00 1 0 0 1 5.74 3.790 43
## 9653 2/12/2012 3:00 1 0 0 2 4.10 2.275 46
## 9654 2/12/2012 4:00 1 0 0 2 4.10 2.275 46
## 9662 2/12/2012 12:00 1 0 0 1 5.74 3.790 39
## 9957 2/24/2012 21:00 1 0 1 1 17.22 21.210 35
## 9959 2/24/2012 23:00 1 0 1 1 15.58 19.695 37
## 9971 2/25/2012 11:00 1 0 0 1 12.30 12.880 39
## 9972 2/25/2012 12:00 1 0 0 1 13.12 13.635 29
## 10169 3/4/2012 18:00 1 0 0 1 13.12 13.635 33
## 10193 3/5/2012 18:00 1 0 1 3 11.48 11.365 55
## 10260 3/8/2012 13:00 1 0 1 2 24.60 31.060 49
## 10261 3/8/2012 14:00 1 0 1 2 25.42 31.060 43
## 10262 3/8/2012 15:00 1 0 1 1 26.24 31.060 38
## 10263 3/8/2012 16:00 1 0 1 2 25.42 31.060 41
## 10264 3/8/2012 17:00 1 0 1 1 25.42 31.060 38
## 10290 3/9/2012 19:00 1 0 1 1 17.22 21.210 28
## 10691 3/26/2012 13:00 2 0 1 1 19.68 23.485 29
## 10693 3/26/2012 15:00 2 0 1 1 19.68 23.485 29
## 10694 3/26/2012 16:00 2 0 1 1 19.68 23.485 25
## 11025 4/9/2012 12:00 2 0 1 1 22.14 25.760 28
## 13625 7/26/2012 21:00 3 0 1 1 32.80 37.120 49
## 13626 7/26/2012 22:00 3 0 1 1 32.80 37.120 49
## 14910 9/18/2012 10:00 3 0 1 3 27.88 31.820 79
## 14911 9/18/2012 11:00 3 0 1 2 27.88 31.820 79
## 16208 11/13/2012 1:00 4 0 1 3 18.04 21.970 88
## 16473 11/24/2012 2:00 4 0 0 1 13.12 13.635 39
## 16483 11/24/2012 12:00 4 0 0 2 12.30 12.880 36
## 17150 12/22/2012 8:00 1 0 0 1 10.66 10.605 44
## 17154 12/22/2012 12:00 1 0 0 1 12.30 12.880 36
## 17345 12/30/2012 13:00 1 0 0 1 12.30 12.880 36
## windspeed casual registered count sources
## 1008 43.9989 19 71 90 www.google.co.uk
## 1010 40.9973 25 218 243 ad campaign
## 1011 40.9973 11 194 205 ad campaign
## 1015 43.9989 1 44 45 www.google.co.uk
## 1018 51.9987 0 5 5 www.google.fi
## 1019 46.0022 1 2 3 www.google.fi
## 1120 43.9989 18 37 55 Ad Campaign
## 1124 40.9973 52 103 155 Twitter
## 1125 43.9989 102 94 196 Twitter
## 1126 50.0021 84 87 171 ad campaign
## 1127 43.0006 39 81 120 blog
## 1128 40.9973 36 91 127 Ad Campaign
## 1259 40.9973 22 55 77 www.bing.com
## 1260 54.0020 31 98 129 www.google.co.uk
## 1262 50.0021 13 180 193 www.google.com
## 1265 40.9973 3 66 69 direct
## 1333 40.9973 8 76 84 Twitter
## 1334 40.9973 8 47 55 facebook page
## 1478 40.9973 1 6 7 ad campaign
## 1874 43.0006 3 42 45 direct
## 2157 40.9973 83 283 366 ad campaign
## 2848 40.9973 50 144 194 facebook page
## 4316 56.9969 181 177 358 ad campaign
## 4317 56.9969 74 107 181 AD campaign
## 5156 43.0006 63 131 194 www.google.co.uk
## 5636 55.9986 23 86 109 ad campaign
## 5640 40.9973 101 169 270 ad campaign
## 6077 40.9973 22 222 244 Twitter
## 8068 43.0006 2 31 33 ad campaign
## 8069 43.0006 1 25 26 Twitter
## 8706 43.9989 5 68 73 www.google.co.uk
## 8943 40.9973 12 102 114 www.yahoo.com
## 9644 43.9989 3 105 108 <NA>
## 9647 43.0006 5 43 48 Twitter
## 9653 46.0022 0 14 14 www.yahoo.com
## 9654 47.9988 0 1 1 www.bing.com
## 9662 43.0006 7 133 140 ad campaign
## 9957 54.0020 12 138 150 ad campaign
## 9959 46.0022 9 71 80 Twitter
## 9971 40.9973 29 155 184 www.google.com
## 9972 43.9989 49 218 267 www.google.com
## 10169 40.9973 20 164 184 <NA>
## 10193 43.9989 12 363 375 www.yahoo.com
## 10260 43.0006 35 198 233 www.bing.com
## 10261 43.0006 48 155 203 ad campaign
## 10262 46.0022 24 161 185 ad campaign
## 10263 43.0006 37 305 342 AD campaign
## 10264 43.9989 52 545 597 blog
## 10290 40.9973 12 232 244 www.google.fi
## 10691 46.0022 93 177 270 www.google.com
## 10693 40.9973 93 179 272 Twitter
## 10694 43.0006 87 298 385 www.google.co.uk
## 11025 47.9988 94 186 280 <NA>
## 13625 40.9973 47 253 300 ad campaign
## 13626 40.9973 40 184 224 ad campaign
## 14910 43.0006 30 130 160 www.bing.com
## 14911 43.0006 36 115 151 www.yahoo.com
## 16208 43.0006 0 5 5 Twitter
## 16473 40.9973 5 29 34 facebook page
## 16483 40.9973 39 227 266 direct
## 17150 40.9973 8 75 83 ad campaign
## 17154 43.9989 30 169 199 www.yahoo.com
## 17345 43.9989 28 152 180 ad campaign