# install.packages("wbstats")
library(wbstats)
# install.packages("quantmod")
library(quantmod)
## Loading required package: xts
## 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
getSymbols("MSFT")
## [1] "MSFT"
getSymbols("MSFT", src="yahoo",from = "2023-10-01", to = "2024-01-31")
## [1] "MSFT"
View(MSFT)
plot(MSFT$MSFT.Open)
# install.packages("pageviews")
library(pageviews)
microsoft_viewers <- article_pageviews(project = "en.wikipedia", article = "Microsoft", start = "2023100100", end = "2024013100")
head(microsoft_viewers)
## 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
## views
## 1 8927
## 2 9271
## 3 14240
## 4 9662
## 5 9856
## 6 9312
High_amt_Views <- subset(microsoft_viewers, views > 30000)
print(High_amt_Views)
## project language article access agent granularity date
## 86 wikipedia en Microsoft all-access all-agents daily 2023-12-25
## views
## 86 63147
This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
summary(cars)
## speed dist
## Min. : 4.0 Min. : 2.00
## 1st Qu.:12.0 1st Qu.: 26.00
## Median :15.0 Median : 36.00
## Mean :15.4 Mean : 42.98
## 3rd Qu.:19.0 3rd Qu.: 56.00
## Max. :25.0 Max. :120.00
You can also embed plots, for example:
Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.