Start off by downloading the required packages

# install.packages("quantmod")
# install.packages("pageviews")

Run the quantmod and pageviews library

library(quantmod)
## Loading required package: xts
## Warning: package 'xts' was built under R version 4.3.3
## Loading required package: zoo
## 
## Attaching package: 'zoo'
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric
## Loading required package: TTR
## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo
library(pageviews)

Question 5

Which of the following exactly return(s) the daily stock prices for Microsoft from 2023-10-01 to 2024-01-31?

getSymbols(“Microsoft”, src=“yahoo”,from = “2023-10-01”, to = “2024-01-31”)
getSymbols(“Microsoft”, src=“yahoo”,from = “2023-10-01”, to = Sys.Date())
getSymbols(c(“GOOG”,“AMZN”), src=“yahoo”)
getSymbols(“MSFT”, src=“yahoo”,from = “2023-10-01”, to = “2024-01-31”)
getSymbols.yahoo(“MSFT”, .GlobalEnv, from = “2023-10-01”, to = “2024-01-31”, periodicity = “weekly”)
getSymbols("MSFT", src="yahoo",from = "2023-10-01", to = "2024-01-31")
## [1] "MSFT"

After running all codes it is determined that getSymbols(“MSFT”, src=“yahoo”,from = “2023-10-01”, to = “2024-01-31”) returns the daily stock prices for Microsoft from 2023-10-01 to 2024-01-31

Question 6

Continuing on the previous question, how many days of stock prices did you obtain?

nrow(MSFT) ##### After doing the getSymbols function and then nrow, you can figure out that there are 83 days worth of stock prices obtained

Question 7

Could you find out in which time period did Microsoft’s Open prices reach the highest?

write.zoo(MSFT, sep = ",", "MSFT.csv")
Microsoft <- read.csv("MSFT.csv")
plot(Microsoft[,2])

If you look at the table you could see that Microsoft’s Open prices reach the highest after January 29th

Question 8

In addition to the stock prices, you can also find other online data sources to observe investors’ interests on Microsoft.

By viewing the multiTimeline, you can see that the number of search hits reached the highest on 2024-01-30

The rising topics include both Microsoft Copilot - Software & Microsoft Bing - Web site

Question 10

Based on our class demos and your coding experience obtained from the above questions (extract data via quantmod or gtrendsR), try writing the R code to get another online data source of Wikipedia views data for Microsoft in English language from 2023-10-01 to 2024-01-31? Once you successfully extract this data, how many observations and variables did you get?

wiki <- pageviews::article_pageviews(project = "en.wikipedia",
                                     article = "Microsoft",
                             platform = "all",
                             user_type = "all",
                             granularity = "daily",
                             start = "2023100100",
                             end = "2024013100",
                             )

wiki
##       project language   article     access      agent granularity       date
## 1   wikipedia       en Microsoft all-access all-agents       daily 2023-10-01
## 2   wikipedia       en Microsoft all-access all-agents       daily 2023-10-02
## 3   wikipedia       en Microsoft all-access all-agents       daily 2023-10-03
## 4   wikipedia       en Microsoft all-access all-agents       daily 2023-10-04
## 5   wikipedia       en Microsoft all-access all-agents       daily 2023-10-05
## 6   wikipedia       en Microsoft all-access all-agents       daily 2023-10-06
## 7   wikipedia       en Microsoft all-access all-agents       daily 2023-10-07
## 8   wikipedia       en Microsoft all-access all-agents       daily 2023-10-08
## 9   wikipedia       en Microsoft all-access all-agents       daily 2023-10-09
## 10  wikipedia       en Microsoft all-access all-agents       daily 2023-10-10
## 11  wikipedia       en Microsoft all-access all-agents       daily 2023-10-11
## 12  wikipedia       en Microsoft all-access all-agents       daily 2023-10-12
## 13  wikipedia       en Microsoft all-access all-agents       daily 2023-10-13
## 14  wikipedia       en Microsoft all-access all-agents       daily 2023-10-14
## 15  wikipedia       en Microsoft all-access all-agents       daily 2023-10-15
## 16  wikipedia       en Microsoft all-access all-agents       daily 2023-10-16
## 17  wikipedia       en Microsoft all-access all-agents       daily 2023-10-17
## 18  wikipedia       en Microsoft all-access all-agents       daily 2023-10-18
## 19  wikipedia       en Microsoft all-access all-agents       daily 2023-10-19
## 20  wikipedia       en Microsoft all-access all-agents       daily 2023-10-20
## 21  wikipedia       en Microsoft all-access all-agents       daily 2023-10-21
## 22  wikipedia       en Microsoft all-access all-agents       daily 2023-10-22
## 23  wikipedia       en Microsoft all-access all-agents       daily 2023-10-23
## 24  wikipedia       en Microsoft all-access all-agents       daily 2023-10-24
## 25  wikipedia       en Microsoft all-access all-agents       daily 2023-10-25
## 26  wikipedia       en Microsoft all-access all-agents       daily 2023-10-26
## 27  wikipedia       en Microsoft all-access all-agents       daily 2023-10-27
## 28  wikipedia       en Microsoft all-access all-agents       daily 2023-10-28
## 29  wikipedia       en Microsoft all-access all-agents       daily 2023-10-29
## 30  wikipedia       en Microsoft all-access all-agents       daily 2023-10-30
## 31  wikipedia       en Microsoft all-access all-agents       daily 2023-10-31
## 32  wikipedia       en Microsoft all-access all-agents       daily 2023-11-01
## 33  wikipedia       en Microsoft all-access all-agents       daily 2023-11-02
## 34  wikipedia       en Microsoft all-access all-agents       daily 2023-11-03
## 35  wikipedia       en Microsoft all-access all-agents       daily 2023-11-04
## 36  wikipedia       en Microsoft all-access all-agents       daily 2023-11-05
## 37  wikipedia       en Microsoft all-access all-agents       daily 2023-11-06
## 38  wikipedia       en Microsoft all-access all-agents       daily 2023-11-07
## 39  wikipedia       en Microsoft all-access all-agents       daily 2023-11-08
## 40  wikipedia       en Microsoft all-access all-agents       daily 2023-11-09
## 41  wikipedia       en Microsoft all-access all-agents       daily 2023-11-10
## 42  wikipedia       en Microsoft all-access all-agents       daily 2023-11-11
## 43  wikipedia       en Microsoft all-access all-agents       daily 2023-11-12
## 44  wikipedia       en Microsoft all-access all-agents       daily 2023-11-13
## 45  wikipedia       en Microsoft all-access all-agents       daily 2023-11-14
## 46  wikipedia       en Microsoft all-access all-agents       daily 2023-11-15
## 47  wikipedia       en Microsoft all-access all-agents       daily 2023-11-16
## 48  wikipedia       en Microsoft all-access all-agents       daily 2023-11-17
## 49  wikipedia       en Microsoft all-access all-agents       daily 2023-11-18
## 50  wikipedia       en Microsoft all-access all-agents       daily 2023-11-19
## 51  wikipedia       en Microsoft all-access all-agents       daily 2023-11-20
## 52  wikipedia       en Microsoft all-access all-agents       daily 2023-11-21
## 53  wikipedia       en Microsoft all-access all-agents       daily 2023-11-22
## 54  wikipedia       en Microsoft all-access all-agents       daily 2023-11-23
## 55  wikipedia       en Microsoft all-access all-agents       daily 2023-11-24
## 56  wikipedia       en Microsoft all-access all-agents       daily 2023-11-25
## 57  wikipedia       en Microsoft all-access all-agents       daily 2023-11-26
## 58  wikipedia       en Microsoft all-access all-agents       daily 2023-11-27
## 59  wikipedia       en Microsoft all-access all-agents       daily 2023-11-28
## 60  wikipedia       en Microsoft all-access all-agents       daily 2023-11-29
## 61  wikipedia       en Microsoft all-access all-agents       daily 2023-11-30
## 62  wikipedia       en Microsoft all-access all-agents       daily 2023-12-01
## 63  wikipedia       en Microsoft all-access all-agents       daily 2023-12-02
## 64  wikipedia       en Microsoft all-access all-agents       daily 2023-12-03
## 65  wikipedia       en Microsoft all-access all-agents       daily 2023-12-04
## 66  wikipedia       en Microsoft all-access all-agents       daily 2023-12-05
## 67  wikipedia       en Microsoft all-access all-agents       daily 2023-12-06
## 68  wikipedia       en Microsoft all-access all-agents       daily 2023-12-07
## 69  wikipedia       en Microsoft all-access all-agents       daily 2023-12-08
## 70  wikipedia       en Microsoft all-access all-agents       daily 2023-12-09
## 71  wikipedia       en Microsoft all-access all-agents       daily 2023-12-10
## 72  wikipedia       en Microsoft all-access all-agents       daily 2023-12-11
## 73  wikipedia       en Microsoft all-access all-agents       daily 2023-12-12
## 74  wikipedia       en Microsoft all-access all-agents       daily 2023-12-13
## 75  wikipedia       en Microsoft all-access all-agents       daily 2023-12-14
## 76  wikipedia       en Microsoft all-access all-agents       daily 2023-12-15
## 77  wikipedia       en Microsoft all-access all-agents       daily 2023-12-16
## 78  wikipedia       en Microsoft all-access all-agents       daily 2023-12-17
## 79  wikipedia       en Microsoft all-access all-agents       daily 2023-12-18
## 80  wikipedia       en Microsoft all-access all-agents       daily 2023-12-19
## 81  wikipedia       en Microsoft all-access all-agents       daily 2023-12-20
## 82  wikipedia       en Microsoft all-access all-agents       daily 2023-12-21
## 83  wikipedia       en Microsoft all-access all-agents       daily 2023-12-22
## 84  wikipedia       en Microsoft all-access all-agents       daily 2023-12-23
## 85  wikipedia       en Microsoft all-access all-agents       daily 2023-12-24
## 86  wikipedia       en Microsoft all-access all-agents       daily 2023-12-25
## 87  wikipedia       en Microsoft all-access all-agents       daily 2023-12-26
## 88  wikipedia       en Microsoft all-access all-agents       daily 2023-12-27
## 89  wikipedia       en Microsoft all-access all-agents       daily 2023-12-28
## 90  wikipedia       en Microsoft all-access all-agents       daily 2023-12-29
## 91  wikipedia       en Microsoft all-access all-agents       daily 2023-12-30
## 92  wikipedia       en Microsoft all-access all-agents       daily 2023-12-31
## 93  wikipedia       en Microsoft all-access all-agents       daily 2024-01-01
## 94  wikipedia       en Microsoft all-access all-agents       daily 2024-01-02
## 95  wikipedia       en Microsoft all-access all-agents       daily 2024-01-03
## 96  wikipedia       en Microsoft all-access all-agents       daily 2024-01-04
## 97  wikipedia       en Microsoft all-access all-agents       daily 2024-01-05
## 98  wikipedia       en Microsoft all-access all-agents       daily 2024-01-06
## 99  wikipedia       en Microsoft all-access all-agents       daily 2024-01-07
## 100 wikipedia       en Microsoft all-access all-agents       daily 2024-01-08
## 101 wikipedia       en Microsoft all-access all-agents       daily 2024-01-09
## 102 wikipedia       en Microsoft all-access all-agents       daily 2024-01-10
## 103 wikipedia       en Microsoft all-access all-agents       daily 2024-01-11
## 104 wikipedia       en Microsoft all-access all-agents       daily 2024-01-12
## 105 wikipedia       en Microsoft all-access all-agents       daily 2024-01-13
## 106 wikipedia       en Microsoft all-access all-agents       daily 2024-01-14
## 107 wikipedia       en Microsoft all-access all-agents       daily 2024-01-15
## 108 wikipedia       en Microsoft all-access all-agents       daily 2024-01-16
## 109 wikipedia       en Microsoft all-access all-agents       daily 2024-01-17
## 110 wikipedia       en Microsoft all-access all-agents       daily 2024-01-18
## 111 wikipedia       en Microsoft all-access all-agents       daily 2024-01-19
## 112 wikipedia       en Microsoft all-access all-agents       daily 2024-01-20
## 113 wikipedia       en Microsoft all-access all-agents       daily 2024-01-21
## 114 wikipedia       en Microsoft all-access all-agents       daily 2024-01-22
## 115 wikipedia       en Microsoft all-access all-agents       daily 2024-01-23
## 116 wikipedia       en Microsoft all-access all-agents       daily 2024-01-24
## 117 wikipedia       en Microsoft all-access all-agents       daily 2024-01-25
## 118 wikipedia       en Microsoft all-access all-agents       daily 2024-01-26
## 119 wikipedia       en Microsoft all-access all-agents       daily 2024-01-27
## 120 wikipedia       en Microsoft all-access all-agents       daily 2024-01-28
## 121 wikipedia       en Microsoft all-access all-agents       daily 2024-01-29
## 122 wikipedia       en Microsoft all-access all-agents       daily 2024-01-30
## 123 wikipedia       en Microsoft all-access all-agents       daily 2024-01-31
##     views
## 1    8927
## 2    9271
## 3   14240
## 4    9662
## 5    9856
## 6    9312
## 7    8659
## 8    8019
## 9    9538
## 10   9975
## 11   9945
## 12  10794
## 13  14311
## 14  12168
## 15  10795
## 16  11313
## 17  11484
## 18  10988
## 19  11358
## 20   9782
## 21   9519
## 22   8877
## 23   9809
## 24  10343
## 25  10969
## 26  11177
## 27  10109
## 28   9075
## 29   8337
## 30  10785
## 31  10854
## 32  10529
## 33  10395
## 34  10218
## 35   9946
## 36   8570
## 37  10625
## 38  11680
## 39  10625
## 40  10659
## 41  10292
## 42   9336
## 43   8861
## 44  11143
## 45  10379
## 46  12478
## 47  10520
## 48  12968
## 49  15905
## 50  18499
## 51  22728
## 52  16567
## 53  14932
## 54  11871
## 55  10142
## 56   9675
## 57   8865
## 58  13720
## 59  11311
## 60  11364
## 61  10853
## 62  11004
## 63   9952
## 64   9633
## 65  10477
## 66  11047
## 67  11789
## 68  10841
## 69  10079
## 70   9911
## 71   8938
## 72  10142
## 73  10217
## 74  10182
## 75  10396
## 76  10038
## 77   8766
## 78   8555
## 79  10274
## 80  10074
## 81   9686
## 82   9686
## 83   9170
## 84   8018
## 85   7668
## 86  63147
## 87   9546
## 88   9610
## 89  11007
## 90   9278
## 91   9870
## 92   8551
## 93   8990
## 94  12407
## 95  10290
## 96  11784
## 97  12058
## 98  10083
## 99   9832
## 100 11114
## 101 16830
## 102 16116
## 103 17731
## 104 18168
## 105 19695
## 106 17656
## 107 17815
## 108 19823
## 109 18231
## 110 18339
## 111 17683
## 112 14784
## 113 15814
## 114 18885
## 115 18187
## 116 18651
## 117 18408
## 118 15730
## 119 15774
## 120 14126
## 121 17689
## 122 17597
## 123 17153

There are 123 Observations and 8 Variables

Question 11

Based on your extracted data above, how many days in total are with a Wikipedia views over 30,000?

subset(wiki, views >30000)
##      project language   article     access      agent granularity       date
## 86 wikipedia       en Microsoft all-access all-agents       daily 2023-12-25
##    views
## 86 63147

There is one day with a Wikipedia views over 30000

Question 12

Given the Stock prices and the Wikipedia views data you extracted above for Microsoft from 2023-10-01 to 2024-01-31, is it ok to directly combine these two data objects as one dataframe?

This is false because the number of observations is not the same