From c583835f186b2d2e012477003c6bdb44852f2f50 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E5=BC=A0=E9=92=A7=E5=A4=A9?=
 <zhangjuntian@tens-macbook-ea.myfiosgateway.com>
Date: Thu, 5 May 2022 14:23:52 -0400
Subject: [PATCH] interactive

---
 06-interactive.Rmd | 65 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)

diff --git a/06-interactive.Rmd b/06-interactive.Rmd
index 6679698..b025870 100644
--- a/06-interactive.Rmd
+++ b/06-interactive.Rmd
@@ -1,3 +1,68 @@
 # Interactive component
 
+```{r}
+library(plotly)
+```
+
+## Add Buttons
+
+We put the volatility of USDC and USDT into one plot because the volatility of the two cryptos have similar trends. In this interactive plot, we create three buttons that includes three options: showing the volatility of USDC, showing the volatility of USDT, and showing both cryptos. 
+
+```{r}
+##set the dataframe
+df_USDC<-df.crypto[df.crypto$cryptocurrency =="USDC",]
+df_USDT<-df.crypto[df.crypto$cryptocurrency =="USDT",]
+df_J_I<-data.frame(cbind(df_USDT$Date,df_USDT$volatility,
+                         df_USDC$volatility))
+colnames(df_J_I) <- c("Date","USDT_vol","USDC_vol")
+fig_J_I <- plot_ly(df_J_I, type = "scatter" , mode = "lines")
+fig_J_I<- fig_J_I %>% add_lines(x=~Date, y=~USDT_vol, name="USDT",
+            line=list(color="red")) 
+fig_J_I<- fig_J_I%>% add_lines(x=~Date, y=~USDC_vol, name="USDC",
+            line=list(color="blue")) 
+
+update_trace <- list(list(active = -1,type= 'buttons',
+    buttons = list(list(label = "USDT",
+                        method = "update",
+                        args = list(
+                          list(visible = c(FALSE, TRUE)),
+                          list(title = "USDT_vol",
+                               annotations = 
+                                 list(c(),df_J_I$USDT_vol)))),
+                   list(label = "USDC",method = "update",
+                        args = list(
+                          list(visible = c(TRUE, FALSE)),
+                          list(title = "USDC_vol",
+                               annotations = 
+                                 list(df_J_I$USDC_vol, c())))),
+                   list(label = "Both",method = "update",
+                        args = list(list(visible = c(TRUE, TRUE)),
+                                    list(title = "Volatility by time",
+                                         annotations = 
+                                           list(df_J_I$USDT_vol,
+                                                df_J_I$USDC_vol)))))))
+fig_J_I_update <- fig_J_I %>% layout(title = "Volatility", showlegend=FALSE,
+                                     xaxis=list(title="Date"),
+                                     yaxis=list(title="Volatility"),
+                                     updatemenus=update_trace)
+
+fig_J_I_update
+```
+
+## Range Slider
+
+In this interactive plot, we add the range slider, so if people want to observe the plot of volatility in a specific range, the can move the buttons which are in the two side of the range slider.  
+
+```{r}
+fig_J_I_range<-fig_J_I%>% 
+  layout(xaxis = list(rangeslider = list(visible = T)))
+fig_J_I_range
+```
+
+
+
+
+
+
+