Plotly Statistical Plots in R

#install.packages("plotly")
library(plotly)
packageVersion('plotly')

[1] ‘4.5.6’

Sys.setenv("plotly_username"="bigdatagal")
Sys.setenv("plotly_api_key"="hvginfgvwe")

Histograms

mpg <- mtcars$mpg
mpg

 [1] 21.0 21.0 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 17.8 16.4 17.3 15.2 10.4 10.4 14.7 32.4 30.4 33.9 21.5 15.5 15.2 13.3 19.2 27.3 26.0 30.4 15.8 19.7 15.0 21.4

histogram_1 <- plot_ly(mtcars, x = ~mpg, type = "histogram")
#histogram_1
web_link = plotly_POST(histogram_1, filename="histogram-1")

No encoding supplied: defaulting to UTF-8.
Success! Modified your plotly here -> https://plot.ly/~bigdatagal/159

web_link

set.seed(25)
histogram_2 <- plot_ly(x = ~rnorm(36), type = "histogram", color = I('pink'))
#histogram_2
web_link = plotly_POST(histogram_2, filename="histogram-2")

No encoding supplied: defaulting to UTF-8.
Success! Modified your plotly here -> https://plot.ly/~bigdatagal/161

web_link

Boxplots

boxplot_1 <- plot_ly(iris, y = ~iris$Sepal.Length, type="box")%>%
  add_trace(y = ~iris$Sepal.Width)
#boxplot_1
web_link = plotly_POST(boxplot_1, filename="boxplot-1")

No encoding supplied: defaulting to UTF-8.
Success! Modified your plotly here -> https://plot.ly/~bigdatagal/163

web_link

set.seed(25)
boxplot_2 <- plot_ly(y = ~rnorm(36), type = "box") %>%
  add_trace(y = ~rnorm(36, .5))
#boxplot_2
web_link = plotly_POST(boxplot_2, filename="boxplot-2")

No encoding supplied: defaulting to UTF-8.
Success! Modified your plotly here -> https://plot.ly/~bigdatagal/165

web_link

Puromycin

boxplot_3 <- ggplot(Puromycin, aes(x = state, y = rate, fill=state)) +
    geom_boxplot(size = .8)
#boxplot_3
web_link = plotly_POST(boxplot_3, filename="boxplot-3")

No encoding supplied: defaulting to UTF-8.
Success! Modified your plotly here -> https://plot.ly/~bigdatagal/167

web_link

Scatter Charts

scatter_chart_1 <- plot_ly(data = mtcars, x = ~mpg, y = ~disp)
#scatter_chart_1
web_link = plotly_POST(scatter_chart_1, filename="scatter-chart-1")

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
No encoding supplied: defaulting to UTF-8.
Success! Modified your plotly here -> https://plot.ly/~bigdatagal/169

web_link

scatter_chart_2 <- plot_ly(mtcars, x = ~mpg, y = ~disp, color = ~mpg,
        size = ~mpg, text = ~paste("Horsepower: ", hp))
web_link = plotly_POST(scatter_chart_2, filename="scatter-chart-2")

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
No encoding supplied: defaulting to UTF-8.
Success! Modified your plotly here -> https://plot.ly/~bigdatagal/171

web_link

Want access to the instructional videos that teach you how to make these for yourself? The course is closed at the moment, but will reopen REAL soon. Sign-up on the waitlist and I will let you know when they’ve been released publicly. The waitlist Google doc is here: https://goo.gl/forms/aJLQBoeHwmOxDS4t2

All Rights Reserved (c), Data-Mania, LLC - 2017