Plotly

Sinopsis

This essay focuses on using plotly, and using it on the mtcars dataset, let’s start with loading the mtcars dataset.

Plots

Now we can go for the plots: ### Scatter Plots

Basic scatter plot:

plot_ly(mtcars, x = ~mpg, y = ~hp, mode = 'markers', type = "scatter")

## Warning: replacing previous import by 'Rcpp::evalCpp' when loading 'later'

## Warning: replacing previous import by 'shiny::validateCssUnit' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::br' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::tags' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::div' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h1' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h2' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h3' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h4' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h5' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h6' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::knit_print.html' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::tagSetChildren' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::includeScript' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::em' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::tagAppendChild' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::is.singleton' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::includeHTML' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::includeMarkdown' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::code' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::tagList' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::a' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::tagAppendAttributes' when
## loading 'crosstalk'

## Warning: replacing previous import by 'shiny::singleton' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::hr' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::p' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::suppressDependencies' when
## loading 'crosstalk'

## Warning: replacing previous import by 'shiny::tagAppendChildren' when
## loading 'crosstalk'

## Warning: replacing previous import by 'shiny::includeText' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::pre' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::span' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::withTags' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::htmlTemplate' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::img' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::tag' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::includeCSS' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::knit_print.shiny.tag' when
## loading 'crosstalk'

## Warning: replacing previous import by 'shiny::knit_print.shiny.tag.list'
## when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::strong' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::HTML' when loading
## 'crosstalk'

Scatter plot with different color:

plot_ly(mtcars, x = ~mpg, y = ~hp, mode = 'markers', type = "scatter",color = ~cyl)

Scatter plot by size:

plot_ly(mtcars, x = ~mpg, y = ~hp, mode = 'markers', type = "scatter",color = ~cyl,size=~hp*4)

## Warning: `line.width` does not currently support multiple values.

Scatter plot 3d:

set.seed(432523)
temp<-rnorm(100,mean=30,sd=5)
pressure<-rnorm(100)
dtime<-1:100
plot_ly(mtcars, x = ~temp, y = ~pressure, z = ~dtime,mode = 'markers', type = "scatter3d",color = temp)

Line plots

As for the line plots we will use another dataset

data("airmiles")

The first chart (data points):

  plot_ly(x=time(airmiles),y=airmiles)

## No trace type specified:
##   Based on info supplied, a 'scatter' trace seems appropriate.
##   Read more about this trace type -> https://plot.ly/r/reference/#scatter

## No scatter mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode

The second chart (line):

  plot_ly(x=time(airmiles),y=airmiles,mode="line")

## No trace type specified:
##   Based on info supplied, a 'scatter' trace seems appropriate.
##   Read more about this trace type -> https://plot.ly/r/reference/#scatter

Now we try to add more than one timeseries in the same plot:

data("EuStockMarkets")
stocks<-as.data.frame(EuStockMarkets) %>%
  gather(index,price) %>%
  mutate(time=rep(time(EuStockMarkets),4))

## Warning: The `printer` argument is deprecated as of rlang 0.3.0.
## This warning is displayed once per session.

plot_ly(stocks,x=~time,y=~price,color=~index,mode="line")

## No trace type specified:
##   Based on info supplied, a 'scatter' trace seems appropriate.
##   Read more about this trace type -> https://plot.ly/r/reference/#scatter