MATH2270 Module 8

Skill Builder - Plotly

Equivalent to plot three at the following link;

• http://rpubs.com/AlistairGJ/Diamonds

Plotly

• https://plot.ly/~AlistairGJ/4#plot

Loading the Packages

library(ggplot2)
library(dplyr)
library(plotly)

Defining the Variables

Diamonds <- read.csv("Diamonds.csv")
Diamonds$cut<- factor(Diamonds$cut, levels=c('Fair','Good','Very Good','Premium','Ideal'), 
                       ordered=TRUE)
Diamonds$color<- factor(Diamonds$color, levels=c('J','I','H','G','F','E','D'), 
                         ordered=TRUE)
Diamonds$clarity<- factor(Diamonds$clarity, levels=c('I1','SI2','SI1','VS2','VS1','VVS2','VVS1','IF'), 
                           ordered=TRUE)

Plot

p2 <- plot_ly(data = Diamonds, x = ~carat, y = ~price,
              color = ~color, type = "scatter", mode = "markers",
              colors = "RdYlBu") %>% 
  
  layout(yaxis = list(zeroline = FALSE, title = "Price"),
         xaxis = list(zeroline = FALSE, title = "Carat"))
p2