STM1001: Computer Lab 3B Solutions

Data Science Module

Topic 3B: Data Visualisation III

Example R code solutions for the Data Science Computer Lab 3B, which uses data from Horst, Hill, and Gorman (2020), and the plotly (Sievert 2020) R package, are presented below.

1 Preparation

1.1

library(palmerpenguins)
library(plotly)

2 Piping

2.1

penguins_scatter <- plot_ly(data = penguins, 
                            x = ~body_mass_g, y = ~flipper_length_mm, 
                            color = ~sex, colors = "Set1",
                            type = "scatter", mode = "markers")

2.2

penguins_scatter <- plot_ly(data = penguins, 
                            x = ~body_mass_g, y = ~flipper_length_mm, 
                            color = ~sex, colors = "Set1", text = ~species,
                            type = "scatter", mode = "markers")

2.3

penguins_scatter %>% layout(title = "Scatter Plot of Penguin Data")

2.4

No answer required.

2.5

# An example for the yaxis code is shown below
penguins_scatter %>% layout(xaxis = list(title = "Penguin Body Mass (grams)"),
                            yaxis = list(title = "Penguin Flipper Length (mm)")
                            )

2.6

No answer required.

2.7

No answer required.

3 Adding Range Sliders to Plotly plots

3.1

penguins_scatter %>% rangeslider()

3.2

No answer required.

3.3

No answer required.

4 Creating animated Plotly plots

4.1

penguins_scatter_anim <- plot_ly(data = penguins, 
                            x = ~body_mass_g, y = ~flipper_length_mm, 
                            color = ~sex, colors = "Set1", text = ~species,
                            frame = ~year, # Note we have used the frame argument here
                            type = "scatter", mode = "markers")
penguins_scatter_anim

4.2

No answer required.

4.3

We notice that the Gentoo penguins have much larger body masses and longer flipper lengths compared to Chinstrap or Adelie penguins.

5 Adding buttons to Plotly plots

Please note - it may also be helpful to refer to Section 5 of the Data Visualisation in R supplement while checking these solutions.

5.1

The R code below should be run, before creating the subsequent plots:

penguins_scatter <- plot_ly(data = penguins, 
                            x = ~body_mass_g, y = ~flipper_length_mm, 
                            color = ~sex, colors = "Set1",
                            type = "scatter", mode = "markers")

5.2

penguins_plots <- penguins_scatter %>% layout(

  updatemenus = list(
    list(y = 0.8, type = "buttons", 
         buttons = list(
           
          list(method = "restyle",
            args = list(
              list(type = list("scatter"), mode = list("markers"))),
              label = "Scatter Plot"),
      
          list(method = "restyle",
            args = list(
              list(type = list("histogram"))),
              label = "Histogram"))
    )))

penguins_plots

5.3

penguins_plots2 <- penguins_scatter %>% layout(

  updatemenus = list(
    list(y = 0.8, type = "dropdown", 
         buttons = list(
           
          list(method = "restyle",
            args = list(
              list(type = list("scatter"), mode = list("markers"))),
              label = "Scatter Plot"),
      
          list(method = "restyle",
            args = list(
              list(type = list("histogram"))),
              label = "Histogram"))
    )))

penguins_plots2

5.4

penguins_plots2 <- penguins_plots2 %>% layout(barmode ="overlay")

penguins_plots2

5.5

penguin_plots3 <- penguins_plots2 %>% 
                  layout(title = "Penguin Data - Select your plot")  %>% 
                  rangeslider()
penguin_plots3 

Great job! There was a lot of content for this lab.

References

Horst, Allison Marie, Alison Presmanes Hill, and Kristen B Gorman. 2020. Palmerpenguins: Palmer Archipelago (Antarctica) Penguin Data. https://doi.org/10.5281/zenodo.3960218.

Sievert, Carson. 2020. Interactive Web-Based Data Visualization with r, Plotly, and Shiny. Chapman; Hall/CRC. https://plotly-r.com.

These notes have been prepared by Rupert Kuveke. The copyright for the material in these notes resides with the author named above, with the Department of Mathematical and Physical Sciences and with La Trobe University. Copyright in this work is vested in La Trobe University including all La Trobe University branding and naming. Unless otherwise stated, material within this work is licensed under a Creative Commons Attribution-Non Commercial-Non Derivatives License BY-NC-ND.