STM1001: Computer Lab 1B Solutions

Data Science Stream

Topic 1B: Using RStudio

Example R code solutions for the Data Science Computer Lab 1, which uses the packages meme (Yu 2021), magick (Ooms 2021), and palmerpenguins (Horst, Hill, and Gorman 2020), are presented below.

Checklist

No answer required. Just make sure you have completed the tasks listed in the dot-points.

1 Installing new R packages

1.1

install.packages("meme")

1.2

No answer required.

1.3

library(meme)

2 Making memes in RStudio

2.1

hagrid <- "https://i.imgflip.com/13wb2t.jpg"

2.2

meme(hagrid, "Yer a wizard", "with coding", font = "sans")

Note: Some warnings may appear in your R Console as this code is executing. Don’t worry about it, it is safe to ignore these warnings.

2.3 How to save RStudio images

success_kid <- "http://i0.kym-cdn.com/entries/icons/mobile/000/000/745/success.jpg"
success <- meme(success_kid, "Using R", "to make memes", font = "sans")
success

2.3.1 Option A: Base R function

windows() # or quartz, if you are a Mac user
success # render the image in the graphics device
savePlot(filename = "successkid", type = "png") 

2.3.2 Option B: A function from a specific package

An example command to save the success object to the imaginary filepath "STM1001/Data Science/success_kid_R_meme.png" is shown below.

meme_save(success, file="STM1001/Data Science/success_kid_R_meme.png") 

2.3.3 Option C: Via the RStudio Plots window

No answer required.

2.4

Please refer to the previous steps of 2 for a guide on loading an image, adding text, and then saving your creation.

3 Customizing GIFs in RStudio

Please note that for this question, while the code to present the GIFs is included, the GIFs themselves are not reproduced in the documentation below.

3.1

install.packages("magick")

library(magick)

3.2

Earth <- image_read("https://i.giphy.com/media/mf8UbIDew7e8g/giphy.gif")
Earth

3.3

rev(Earth) %>% 
           image_flip() %>% 
           image_annotate("      Meanwhile, in Australia", size = 40, color = "white")

4 Palmer Penguins Data Set

4.1

install.packages("palmerpenguins")

library(palmerpenguins)

## 
## Attaching package: 'palmerpenguins'

## The following objects are masked from 'package:datasets':
## 
##     penguins, penguins_raw

4.2

# This code checks the dimensions of the data in the `palmerpenguins` package
dim(penguins)

## [1] 344   8

nrow(penguins)

## [1] 344

ncol(penguins)

## [1] 8

4.3

# This code summarises the data in the `palmerpenguins` package
summary(penguins)

##       species          island    bill_length_mm  bill_depth_mm  
##  Adelie   :152   Biscoe   :168   Min.   :32.10   Min.   :13.10  
##  Chinstrap: 68   Dream    :124   1st Qu.:39.23   1st Qu.:15.60  
##  Gentoo   :124   Torgersen: 52   Median :44.45   Median :17.30  
##                                  Mean   :43.92   Mean   :17.15  
##                                  3rd Qu.:48.50   3rd Qu.:18.70  
##                                  Max.   :59.60   Max.   :21.50  
##                                  NA's   :2       NA's   :2      
##  flipper_length_mm  body_mass_g       sex           year     
##  Min.   :172.0     Min.   :2700   female:165   Min.   :2007  
##  1st Qu.:190.0     1st Qu.:3550   male  :168   1st Qu.:2007  
##  Median :197.0     Median :4050   NA's  : 11   Median :2008  
##  Mean   :200.9     Mean   :4202                Mean   :2008  
##  3rd Qu.:213.0     3rd Qu.:4750                3rd Qu.:2009  
##  Max.   :231.0     Max.   :6300                Max.   :2009  
##  NA's   :2         NA's   :2

4.4

# This code checks the first 6 rows of data in the `palmerpenguins` package
head(penguins)

## # A tibble: 6 × 8
##   species island    bill_length_mm bill_depth_mm flipper_length_mm body_mass_g
##   <fct>   <fct>              <dbl>         <dbl>             <int>       <int>
## 1 Adelie  Torgersen           39.1          18.7               181        3750
## 2 Adelie  Torgersen           39.5          17.4               186        3800
## 3 Adelie  Torgersen           40.3          18                 195        3250
## 4 Adelie  Torgersen           NA            NA                  NA          NA
## 5 Adelie  Torgersen           36.7          19.3               193        3450
## 6 Adelie  Torgersen           39.3          20.6               190        3650
## # ℹ 2 more variables: sex <fct>, year <int>

4.5

Note that the code for this question is shown below, but the output is omitted, for brevity.

penguins$bill_length_mm

4.6

Note that the code for this question is shown below, but the output is omitted, for brevity.

penguins$bill_depth_mm
penguins$body_mass_g

Well done, that’s everything covered.

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.

Ooms, Jeroen. 2021. magick: advanced graphics and image-processing in R. https://docs.ropensci.org/magick/.

Yu, Guangchuang. 2021. meme: create memes in R. https://github.com/GuangchuangYu/meme/.

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.