Workshop 2
Chris Millerick
2024-09-20
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 zoolibrary(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.
Now you will write the R code to extract the google trends data for Microsoft during the same date range from 2023-10-01 to 2024-01-31. Based on the google trends data you obtained for Microsoft, on which date does the number of search hits reached the highest?
multiTimeline <- read.csv("~/Downloads/multiTimeline.csv")
# View(multiTimeline)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 17153There 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