Crawl and extract data
Grabbing data from APIs
Export and read Data
data wrangling & analysis
SEO traffic Forecast x
⚠️ THIS IS A WORK IN PROGRESS
1
path <- file.choose()
2
3
4
df <- read.csv(path, skip = 6)
5
6
View(df)
7
8
df <- data<-na.omit(df)
9
10
library(lubridate)
11
library(prophet)
12
13
origin_date <- ymd("2019-01-01")
14
15
origin_date + ddays(1)
16
17
df$index <- as.numeric(rownames(df))-1
18
19
df$ds <- origin_date+ddays(df$index-1)
20
21
df$ds <- df$Day.Index
22
23
df$y <- df$Sessions
24
25
df$Sessions <- NULL
26
df$Day.Index <- NULL
27
28
29
#ggplot(df)
30
31
m <- prophet(df)
32
33
34
future <- make_future_dataframe(m, periods = 365)
35
36
# R
37
forecast <- predict(m, future)
38
tail(forecast[c('ds', 'yhat', 'yhat_lower', 'yhat_upper')])
39
40
41
# View(forecast)
42
43
plot(m, forecast)
44
45
prophet_plot_components(m, forecast)
46
47
dyplot.prophet(m, forecast)
48
49
Copied!
Copy link