Lesson 6. Create interactive plots in R - time series & scatterplots using plotly and dygraphs

Learning objectives

After completing this tutorial, you will be able to:

  • Create an interactive time series plot using plot.ly in R
  • Create an interactive time series plot using dygraphs in R

What you need

You will need a computer with internet access to complete this lesson and the data for week 4 of the course.

Download week 4 data (~500 MB)

In this lesson we will explore using 2 interactive tools to create interactive plots of our data:

  1. plotly and
  2. dygraphs

First, we will load all of the needed libraries.

# install plotly from git - ropensci

# load libraries

options(stringsAsFactors = FALSE)

Next, let’s import some time series data

discharge_time <- read.csv("data/week_02/discharge/06730200-discharge-daily-1986-2013.csv")

# fix date using pipes
discharge_time <- discharge_time %>%
 mutate(datetime = as.Date(datetime, format = "%m/%d/%y"))

We can plot the data using ggplot().

annual_precip <- ggplot(discharge_time, aes(x = datetime, y = disValue)) +
  geom_point() +
  labs(x = "Time",
       y = "discharge value",
       title = "my title")


annual precipation patterns

Time series - plotly

We can use plotly to create an interactive plot that we can use in the R console.

# create interactive plotly plot

Time series - dygraph

Dygraph is a powerful and easy to use interactive time series plot generator. Below, notice how we can quickly create a dygraph interactive plot. The output format of the plot is html so it won’t work with a pdf rmd output but it will work with html!

# interactive time series
# create time series objects (class xs)

# create time series object
discharge_timeSeries <- xts(x = discharge_time$disValue,
                            order.by = discharge_time$datetime)

Then you can call the dygraph() function to create your interactive time-series plot.

# create a basic interactive element
interact_time <- dygraph(discharge_timeSeries)
# create a basic interactive element
interact_time2 <- dygraph(discharge_timeSeries) %>% dyRangeSelector()


Leave a Comment