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