Skill Builders 8

[1] ‘2.2.1’

[1] ‘4.7.1’

Error in install.packages : Updating loaded packages

Error in dev_mode(TRUE) : could not find function "dev_mode"

Skipping install of 'ggplot2' from a github remote, the SHA1 (ffb40f3f) has not changed since last install.
  Use `force = TRUE` to force installation
Skipping install of 'plotly' from a github remote, the SHA1 (a55da98c) has not changed since last install.
  Use `force = TRUE` to force installation

Attaching package: <U+393C><U+3E31>plotly<U+393C><U+3E32>

The following object is masked from <U+393C><U+3E31>package:ggplot2<U+393C><U+3E32>:

    last_plot

The following object is masked from <U+393C><U+3E31>package:stats<U+393C><U+3E32>:

    filter

The following object is masked from <U+393C><U+3E31>package:graphics<U+393C><U+3E32>:

    layout

[1] ‘2.2.1.9000’

[1] ‘4.7.1.9000’

#Reading the dataset
Cars <- read.csv("C:/MS242 - Master of Analytics/2nd Semester/MATH2270 - Data Visualisation/Class work/Cars.csv")
Cars$Sports<-factor(Cars$Sports, levels=c(0,1), labels=c('No','Yes'), ordered=TRUE)
Cars$Sport_utility<-factor(Cars$Sport_utility, levels=c(0,1), labels=c('No','Yes'), ordered=TRUE)
Cars$Wagon<-factor(Cars$Wagon, levels=c(0,1), labels=c('No','Yes'), ordered=TRUE)
Cars$Minivan<-factor(Cars$Minivan, levels=c(0,1), labels=c('No','Yes'), ordered=TRUE)
Cars$Pickup<-factor(Cars$Pickup, levels=c(0,1), labels=c('No','Yes'), ordered=TRUE)
Cars$All_wheel_drive<-factor(Cars$All_wheel_drive, levels=c(0,1), labels=c('No','Yes'), ordered=TRUE)
Cars$Rear_wheel_drive<-factor(Cars$Rear_wheel_drive, levels=c(0,1), labels=c('No','Yes'), ordered=TRUE)
Cars$Cylinders<-as.numeric(as.factor(Cars$Cylinders))

Question 2

Q8.2 <- ggplot(data = Cars, aes(Length, Width, color=Weight)) + 
  geom_point(size=3.5) + 
  scale_color_gradient(low = "Blue", high = "Red") + 
  ggtitle("Relationship between Car's measurements (Length, Width and Weight) (s3629999)") + 
  xlab("Length") + ylab("Width") + 
  theme_bw()

gg1 <- ggplotly(Q8.2) #, width = 750, height = 450)
gg1

Question 1

p1 <- plot_ly(data = Cars, x = ~Length, y = ~Width,
              size= ~Retail_price, color = ~Weight, type = "scatter", mode = "markers",
              colors = "RdYlGn", hoverinfo = "text",
                text = paste("<b>Length</b> = ", Cars$Length, "cm",
                             "<br><b>Width</b> = ", Cars$Width, "cm",
                             "<br><b>Weight</b> = ", Cars$Weight, "kg",
                             "<br><b>Retail Price</b> = $",Cars$Retail_price)) %>% 
              
  layout(title ="Car's measurement by Length, Width Weight and Retail Price (point size) (s3629999)",
         
         #plot_bgcolor='Grey',
         yaxis = list(zeroline = FALSE, title = "Width (in cm)"),
         xaxis = list(zeroline = FALSE, title = "Length (in cm)"))
p1

username <- "ab1231"
apikey <- "czbyeC13OV3UF0fBN2HW" # Replace this with your API

Sys.setenv("plotly_username"= username)
Sys.setenv("plotly_api_key"= apikey)

plotly_POST(gg1)

'plotly_POST' is deprecated.
Use 'api_create' instead.
See help("Deprecated")Error: Client error: (400) Bad Request
    Figure field is invalid. Reason: Raw data arrays are not allowed at this endpoint. Use grid references instead. Raw data found at the following paths in the figure [('data', 0, u'marker', u'line', u'color'), ('data', 1, u'marker', u'colorbar', u'ticktext'), ('data', 1, u'marker', u'colorbar', u'tickvals')]
    User cannot save as private.
    Sorry, the subscription associated with your account prevents you from creating a private file. Upgrade your account at https://plot.ly/settings/subscription .