R Markdown
### Questions 4,5
bike2 <- read.table("bike_sharing_data.txt", sep="\t", header=TRUE)
bike4 <- read.delim("bike_sharing_data.txt")
bike3 <- read.csv("bike_sharing_data.csv")
bike1 <- read.table("bike_sharing_data.csv", sep=",", header=TRUE)
### Question 6
str(bike1)
###Answer 6
'data.frame': 17379 obs. of 13 variables:
$ datetime : chr "1/1/2011 0:00" "1/1/2011 1:00" "1/1/2011 2:00" "1/1/2011 3:00" ...
$ season : int 1 1 1 1 1 1 1 1 1 1 ...
$ holiday : int 0 0 0 0 0 0 0 0 0 0 ...
$ workingday: int 0 0 0 0 0 0 0 0 0 0 ...
$ weather : int 1 1 1 1 1 2 1 1 1 1 ...
$ temp : num 9.84 9.02 9.02 9.84 9.84 ...
$ atemp : num 14.4 13.6 13.6 14.4 14.4 ...
$ humidity : chr "81" "80" "80" "75" ...
$ windspeed : num 0 0 0 0 0 ...
$ casual : int 3 8 5 3 0 0 2 1 1 8 ...
$ registered: int 13 32 27 10 1 1 0 2 7 6 ...
$ count : int 16 40 32 13 1 1 2 3 8 14 ...
$ sources : chr "ad campaign" "www.yahoo.com" "www.google.fi" "AD campaign" ...
### Question 7
bike1[6251,2]
###Answer 7
[1] 4
### Question 8
table(bike1$season)
###Answer 8
1 2 3 4
4242 4409 4496 4232
### Question 9
question_9 <- bike1[(bike1$season == 4) & (bike1$windspeed > 20), ]
question_9
###Answer 9
datetime season holiday workingday
6410 9/29/2011 15:00 4 0 1
6411 9/29/2011 16:00 4 0 1
6432 9/30/2011 13:00 4 0 1
6437 9/30/2011 18:00 4 0 1
6441 9/30/2011 22:00 4 0 1
6442 9/30/2011 23:00 4 0 1
6443 10/1/2011 0:00 4 0 0
6444 10/1/2011 1:00 4 0 0
6445 10/1/2011 2:00 4 0 0
6446 10/1/2011 3:00 4 0 0
6447 10/1/2011 4:00 4 0 0
6449 10/1/2011 6:00 4 0 0
6451 10/1/2011 8:00 4 0 0
6452 10/1/2011 9:00 4 0 0
6453 10/1/2011 10:00 4 0 0
6454 10/1/2011 11:00 4 0 0
6456 10/1/2011 13:00 4 0 0
6457 10/1/2011 14:00 4 0 0
6476 10/2/2011 9:00 4 0 0
6531 10/4/2011 16:00 4 0 1
6532 10/4/2011 17:00 4 0 1
6549 10/5/2011 10:00 4 0 1
6551 10/5/2011 12:00 4 0 1
6555 10/5/2011 16:00 4 0 1
6711 10/12/2011 4:00 4 0 1
6712 10/12/2011 5:00 4 0 1
6714 10/12/2011 7:00 4 0 1
6715 10/12/2011 8:00 4 0 1
6716 10/12/2011 9:00 4 0 1
6717 10/12/2011 10:00 4 0 1
6718 10/12/2011 11:00 4 0 1
6719 10/12/2011 12:00 4 0 1
6765 10/14/2011 10:00 4 0 1
6768 10/14/2011 13:00 4 0 1
6769 10/14/2011 14:00 4 0 1
6772 10/14/2011 17:00 4 0 1
6774 10/14/2011 19:00 4 0 1
6789 10/15/2011 10:00 4 0 0
6790 10/15/2011 11:00 4 0 0
6791 10/15/2011 12:00 4 0 0
6792 10/15/2011 13:00 4 0 0
6793 10/15/2011 14:00 4 0 0
6794 10/15/2011 15:00 4 0 0
6795 10/15/2011 16:00 4 0 0
6818 10/16/2011 15:00 4 0 0
6819 10/16/2011 16:00 4 0 0
6820 10/16/2011 17:00 4 0 0
6821 10/16/2011 18:00 4 0 0
6822 10/16/2011 19:00 4 0 0
6823 10/16/2011 20:00 4 0 0
6824 10/16/2011 21:00 4 0 0
6825 10/16/2011 22:00 4 0 0
6826 10/16/2011 23:00 4 0 0
6827 10/17/2011 0:00 4 0 1
6828 10/17/2011 1:00 4 0 1
6829 10/17/2011 2:00 4 0 1
6882 10/19/2011 8:00 4 0 1
6883 10/19/2011 9:00 4 0 1
6884 10/19/2011 10:00 4 0 1
6886 10/19/2011 12:00 4 0 1
6896 10/19/2011 22:00 4 0 1
6897 10/19/2011 23:00 4 0 1
6899 10/20/2011 1:00 4 0 1
6900 10/20/2011 2:00 4 0 1
6901 10/20/2011 3:00 4 0 1
6902 10/20/2011 4:00 4 0 1
6903 10/20/2011 5:00 4 0 1
6904 10/20/2011 6:00 4 0 1
6905 10/20/2011 7:00 4 0 1
6906 10/20/2011 8:00 4 0 1
6907 10/20/2011 9:00 4 0 1
6908 10/20/2011 10:00 4 0 1
6909 10/20/2011 11:00 4 0 1
6910 10/20/2011 12:00 4 0 1
6911 10/20/2011 13:00 4 0 1
6912 10/20/2011 14:00 4 0 1
weather temp atemp humidity windspeed casual
6410 1 27.88 31.820 45 26.0027 44
6411 1 27.88 31.820 41 23.9994 45
6432 2 27.06 31.060 47 22.0028 59
6437 1 23.78 27.275 49 23.9994 53
6441 1 21.32 25.000 55 22.0028 19
6442 1 21.32 25.000 55 22.0028 18
6443 1 20.50 24.240 63 26.0027 24
6444 1 19.68 23.485 67 22.0028 11
6445 1 18.86 22.725 63 27.9993 21
6446 1 18.86 22.725 59 27.9993 8
6447 1 18.04 21.970 58 27.9993 2
6449 1 17.22 21.210 67 22.0028 4
6451 2 16.40 20.455 76 22.0028 9
6452 3 16.40 20.455 82 23.9994 17
6453 3 16.40 20.455 76 23.9994 21
6454 3 15.58 19.695 82 22.0028 30
6456 2 16.40 20.455 82 22.0028 27
6457 2 17.22 21.210 71 23.9994 33
6476 1 14.76 16.665 76 23.9994 19
6531 1 23.78 27.275 56 22.0028 36
6532 1 22.96 26.515 60 26.0027 55
6549 1 22.96 26.515 56 26.0027 30
6551 1 25.42 31.060 43 22.0028 34
6555 1 26.24 31.060 47 22.0028 37
6711 3 22.14 25.760 94 26.0027 1
6712 2 22.14 25.760 88 22.0028 0
6714 2 22.14 25.760 88 26.0027 15
6715 2 22.14 25.760 88 26.0027 27
6716 2 22.14 25.760 88 30.0026 14
6717 2 22.14 25.760 88 26.0027 15
6718 3 22.14 25.760 94 22.0028 18
6719 3 22.14 25.760 88 22.0028 9
6765 3 22.14 25.760 88 23.9994 17
6768 1 22.96 26.515 73 23.9994 18
6769 1 25.42 31.060 43 23.9994 37
6772 1 23.78 27.275 46 27.9993 55
6774 1 22.14 25.760 39 22.0028 27
6789 1 22.14 25.760 45 30.0026 115
6790 1 22.96 26.515 40 26.0027 153
6791 1 23.78 27.275 35 36.9974 195
6792 1 24.60 31.060 35 31.0009 171
6793 1 24.60 31.060 33 31.0009 242
6794 1 25.42 31.060 31 32.9975 166
6795 1 25.42 31.060 29 26.0027 179
6818 1 25.42 31.060 35 26.0027 182
6819 1 24.60 31.060 46 26.0027 177
6820 1 23.78 27.275 49 31.0009 152
6821 1 22.96 26.515 49 30.0026 102
6822 1 22.14 25.760 52 26.0027 52
6823 1 22.14 25.760 52 31.0009 49
6824 1 22.14 25.760 52 26.0027 14
6825 1 22.96 26.515 49 27.9993 42
6826 1 22.96 26.515 52 27.9993 14
6827 1 22.14 25.760 56 22.0028 12
6828 1 22.96 26.515 54 26.0027 2
6829 1 22.96 26.515 54 26.0027 4
6882 3 22.14 25.760 70 32.9975 10
6883 3 21.32 25.000 88 32.9975 17
6884 3 21.32 25.000 88 32.9975 14
6886 3 21.32 25.000 94 22.0028 13
6896 2 23.78 27.275 94 23.9994 13
6897 2 23.78 27.275 94 23.9994 14
6899 1 22.96 26.515 88 23.9994 2
6900 1 22.96 26.515 88 30.0026 1
6901 1 20.50 24.240 82 31.0009 1
6902 1 20.50 24.240 82 31.0009 1
6903 1 19.68 23.485 82 23.9994 1
6904 1 18.04 21.970 82 27.9993 3
6905 1 17.22 21.210 77 30.0026 9
6906 1 18.04 21.970 67 35.0008 19
6907 1 18.04 21.970 67 39.0007 17
6908 1 18.86 22.725 59 30.0026 15
6909 1 19.68 23.485 55 35.0008 19
6910 1 19.68 23.485 48 35.0008 22
6911 1 20.50 24.240 45 39.0007 23
6912 2 19.68 23.485 48 36.9974 18
registered count sources
6410 141 185 www.yahoo.com
6411 232 277 www.bing.com
6432 173 232 Twitter
6437 384 437 ad campaign
6441 105 124 www.bing.com
6442 86 104 facebook page
6443 106 130 ad campaign
6444 47 58 ad campaign
6445 46 67 Twitter
6446 17 25 www.yahoo.com
6447 6 8 AD campaign
6449 15 19 ad campaign
6451 58 67 Twitter
6452 112 129 www.google.co.uk
6453 100 121 ad campaign
6454 102 132 direct
6456 98 125 ad campaign
6457 147 180 AD campaign
6476 96 115 www.google.fi
6531 273 309 www.google.com
6532 530 585 www.google.fi
6549 103 133 direct
6551 180 214 Twitter
6555 245 282 www.yahoo.com
6711 6 7 direct
6712 22 22 direct
6714 244 259 ad campaign
6715 377 404 www.google.fi
6716 183 197 AD campaign
6717 98 113 www.bing.com
6718 102 120 www.bing.com
6719 53 62 <NA>
6765 108 125 Twitter
6768 114 132 ad campaign
6769 119 156 www.yahoo.com
6772 426 481 facebook page
6774 221 248 www.bing.com
6789 207 322 www.bing.com
6790 221 374 <NA>
6791 261 456 www.yahoo.com
6792 223 394 www.bing.com
6793 230 472 www.google.com
6794 211 377 www.google.com
6795 264 443 www.google.fi
6818 230 412 www.google.co.uk
6819 289 466 ad campaign
6820 253 405 www.bing.com
6821 226 328 www.google.co.uk
6822 181 233 ad campaign
6823 129 178 www.bing.com
6824 88 102 www.google.fi
6825 88 130 www.bing.com
6826 48 62 www.google.fi
6827 25 37 www.yahoo.com
6828 15 17 www.google.fi
6829 3 7 www.bing.com
6882 200 210 www.google.co.uk
6883 185 202 Twitter
6884 109 123 Ad Campaign
6886 117 130 ad campaign
6896 94 107 www.yahoo.com
6897 55 69 www.google.co.uk
6899 12 14 direct
6900 5 6 <NA>
6901 4 5 ad campaign
6902 4 5 ad campaign
6903 23 24 ad campaign
6904 62 65 www.google.fi
6905 233 242 facebook page
6906 363 382 Twitter
6907 172 189 facebook page
6908 101 116 Twitter
6909 110 129 AD campaign
6910 143 165 ad campaign
6911 134 157 ad campaign
6912 120 138 ad campaign
[ reached 'max' / getOption("max.print") -- omitted 400 rows ]
### Question 10
question_10 <- bike1[(bike1$season %in% c(1, 4)) & (bike1$windspeed >= 40), ]
question_10
###Answer 10
datetime season holiday workingday
1008 2/14/2011 15:00 1 0 1
1010 2/14/2011 17:00 1 0 1
1011 2/14/2011 18:00 1 0 1
1015 2/14/2011 22:00 1 0 1
1018 2/15/2011 1:00 1 0 1
1019 2/15/2011 2:00 1 0 1
1120 2/19/2011 9:00 1 0 0
1124 2/19/2011 13:00 1 0 0
1125 2/19/2011 14:00 1 0 0
1126 2/19/2011 15:00 1 0 0
1127 2/19/2011 16:00 1 0 0
1128 2/19/2011 17:00 1 0 0
1259 2/25/2011 14:00 1 0 1
1260 2/25/2011 15:00 1 0 1
1262 2/25/2011 17:00 1 0 1
1265 2/25/2011 20:00 1 0 1
1333 2/28/2011 19:00 1 0 1
1334 2/28/2011 20:00 1 0 1
1478 3/6/2011 21:00 1 0 0
8068 12/7/2011 19:00 4 0 1
8069 12/7/2011 20:00 4 0 1
8706 1/3/2012 13:00 1 0 1
8943 1/13/2012 11:00 1 0 1
9644 2/11/2012 18:00 1 0 0
9647 2/11/2012 21:00 1 0 0
9653 2/12/2012 3:00 1 0 0
9654 2/12/2012 4:00 1 0 0
9662 2/12/2012 12:00 1 0 0
9957 2/24/2012 21:00 1 0 1
9959 2/24/2012 23:00 1 0 1
9971 2/25/2012 11:00 1 0 0
9972 2/25/2012 12:00 1 0 0
10169 3/4/2012 18:00 1 0 0
10193 3/5/2012 18:00 1 0 1
10260 3/8/2012 13:00 1 0 1
10261 3/8/2012 14:00 1 0 1
10262 3/8/2012 15:00 1 0 1
10263 3/8/2012 16:00 1 0 1
10264 3/8/2012 17:00 1 0 1
10290 3/9/2012 19:00 1 0 1
16208 11/13/2012 1:00 4 0 1
16473 11/24/2012 2:00 4 0 0
16483 11/24/2012 12:00 4 0 0
17150 12/22/2012 8:00 1 0 0
17154 12/22/2012 12:00 1 0 0
17345 12/30/2012 13:00 1 0 0
weather temp atemp humidity windspeed casual
1008 1 22.96 26.515 21 43.9989 19
1010 1 18.86 22.725 33 40.9973 25
1011 1 16.40 20.455 40 40.9973 11
1015 1 13.94 14.395 46 43.9989 1
1018 1 12.30 12.120 42 51.9987 0
1019 1 11.48 11.365 41 46.0022 1
1120 1 16.40 20.455 16 43.9989 18
1124 1 18.04 21.970 16 40.9973 52
1125 1 18.86 22.725 15 43.9989 102
1126 1 18.04 21.970 16 50.0021 84
1127 1 18.04 21.970 16 43.0006 39
1128 1 17.22 21.210 19 40.9973 36
1259 3 22.96 26.515 56 40.9973 22
1260 1 18.86 22.725 41 54.0020 31
1262 1 13.12 13.635 49 50.0021 13
1265 1 12.30 12.880 49 40.9973 3
1333 3 18.04 21.970 88 40.9973 8
1334 3 18.04 21.970 88 40.9973 8
1478 3 9.84 9.090 93 40.9973 1
8068 3 13.94 14.395 87 43.0006 2
8069 3 13.94 14.395 87 43.0006 1
8706 1 7.38 6.060 34 43.9989 5
8943 1 9.84 9.090 38 40.9973 12
9644 2 9.02 9.090 47 43.9989 3
9647 1 5.74 3.790 43 43.0006 5
9653 2 4.10 2.275 46 46.0022 0
9654 2 4.10 2.275 46 47.9988 0
9662 1 5.74 3.790 39 43.0006 7
9957 1 17.22 21.210 35 54.0020 12
9959 1 15.58 19.695 37 46.0022 9
9971 1 12.30 12.880 39 40.9973 29
9972 1 13.12 13.635 29 43.9989 49
10169 1 13.12 13.635 33 40.9973 20
10193 3 11.48 11.365 55 43.9989 12
10260 2 24.60 31.060 49 43.0006 35
10261 2 25.42 31.060 43 43.0006 48
10262 1 26.24 31.060 38 46.0022 24
10263 2 25.42 31.060 41 43.0006 37
10264 1 25.42 31.060 38 43.9989 52
10290 1 17.22 21.210 28 40.9973 12
16208 3 18.04 21.970 88 43.0006 0
16473 1 13.12 13.635 39 40.9973 5
16483 2 12.30 12.880 36 40.9973 39
17150 1 10.66 10.605 44 40.9973 8
17154 1 12.30 12.880 36 43.9989 30
17345 1 12.30 12.880 36 43.9989 28
registered count sources
1008 71 90 www.google.co.uk
1010 218 243 ad campaign
1011 194 205 ad campaign
1015 44 45 www.google.co.uk
1018 5 5 www.google.fi
1019 2 3 www.google.fi
1120 37 55 Ad Campaign
1124 103 155 Twitter
1125 94 196 Twitter
1126 87 171 ad campaign
1127 81 120 blog
1128 91 127 Ad Campaign
1259 55 77 www.bing.com
1260 98 129 www.google.co.uk
1262 180 193 www.google.com
1265 66 69 direct
1333 76 84 Twitter
1334 47 55 facebook page
1478 6 7 ad campaign
8068 31 33 ad campaign
8069 25 26 Twitter
8706 68 73 www.google.co.uk
8943 102 114 www.yahoo.com
9644 105 108 <NA>
9647 43 48 Twitter
9653 14 14 www.yahoo.com
9654 1 1 www.bing.com
9662 133 140 ad campaign
9957 138 150 ad campaign
9959 71 80 Twitter
9971 155 184 www.google.com
9972 218 267 www.google.com
10169 164 184 <NA>
10193 363 375 www.yahoo.com
10260 198 233 www.bing.com
10261 155 203 ad campaign
10262 161 185 ad campaign
10263 305 342 AD campaign
10264 545 597 blog
10290 232 244 www.google.fi
16208 5 5 Twitter
16473 29 34 facebook page
16483 227 266 direct
17150 75 83 ad campaign
17154 169 199 www.yahoo.com
17345 152 180 ad campaign
111