From a09828f0b2c80b6725390765b693c68dbc6c1668 Mon Sep 17 00:00:00 2001
From: Shuyib <benmainye@gmail.com>
Date: Sun, 10 Feb 2019 13:55:12 +0300
Subject: [PATCH] add ggplot2 code to fix the lack of captioning code that
 plotly lacks.

---
 YT_dataviz.Rproj        | 13 +++++++++++++
 shiny-time-series/app.R | 16 ++++++++++++----
 2 files changed, 25 insertions(+), 4 deletions(-)
 create mode 100644 YT_dataviz.Rproj

diff --git a/YT_dataviz.Rproj b/YT_dataviz.Rproj
new file mode 100644
index 0000000..8e3c2eb
--- /dev/null
+++ b/YT_dataviz.Rproj
@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
diff --git a/shiny-time-series/app.R b/shiny-time-series/app.R
index d4f6483..c896a85 100644
--- a/shiny-time-series/app.R
+++ b/shiny-time-series/app.R
@@ -20,10 +20,16 @@ df2 <- read_csv('data/exotic_yt_date.csv')
 # date and any other variables that follow which i presume will be in the y axis
 
 # starter code for the plot
-ggplot(df, aes(date, subscribers_gained)) + geom_area() + geom_line()
+p1 <- ggplot(df, aes(date, subscribers_gained)) + geom_line() + geom_area(fill = "red") +
+  xlab("Date") + ylab("Views") + labs(caption = "Sliceace channel")
 
 # Using pipes
-df %>% ggplot(aes(date, subscribers_gained)) + geom_line() + geom_area()
+p2 <- df2 %>% ggplot(aes(date, subscribers_gained)) + geom_line() + geom_area(fill = "green") +
+  xlab("Date") + ylab("Views") + labs(caption = "James channel")
+
+
+# joining the plots to appear side by side
+grid.arrange(p1,p2, ncol = 2)
 
 # Make a function that  will allow you to call a different variable in the y axis 
 # adding ggplotly functionality
@@ -31,13 +37,15 @@ df %>% ggplot(aes(date, subscribers_gained)) + geom_line() + geom_area()
 # fix the title or add a subtitle to distinguish the plots
 choose_y_axis_plot <- function(dataframe, yaxis = readline(), dataframe2, yaxis2 = readline()) {
   # define variable p1 with ggplot specifications for the first plot 
-  p1 <- ggplot(dataframe, aes(date, yaxis)) + geom_line() + geom_area(fill = "green") +
+  p1 <- ggplot(dataframe, aes(date, yaxis)) + geom_area(fill = "green") +
    xlab("Date") + ylab("Views") + labs(caption = "Sliceace channel")
   
   # for the second plot 
-  p2 <- ggplot(dataframe2, aes(date,yaxis2)) + geom_line() + geom_area(fill = "red") +
+  p2 <- ggplot(dataframe2, aes(date,yaxis2)) + geom_area(fill = "red") +
   xlab("Date") + ylab("Views") + labs(caption = "James channel")
   
+  # joining the plots together with regular ggplot2
+  
   # convert the plots to plotly plots this is how it's done 
   plot_p1 <- ggplotly(p1)
   plot_p2 <- ggplotly(p2)