ETC5523: Communicating with Data

Tutorial 1 Supp B

The following code calculates how many seconds it took for the car to stop. The chunk name is seconds-to-stop.

ftps <- 1.467 * cars$speed # convert to ft per second
seconds_to_stop <- cars$dist / ftps 
summary(seconds_to_stop)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  0.3408  1.3095  1.7196  1.7945  2.1716  3.8952

knitr::opts_current$get("label")

## [1] "unnamed-chunk-1"

## This has chunk label 'unnamed-chunk-1'

knitr::opts_current$get("label")

## [1] "unnamed-chunk-2"

## This has chunk label [[TODO]]

ggplot(cars, aes(dist, speed)) + 
  geom_point(color = "red", size = 2)

ggplot(cars, aes(dist, speed)) + 
  geom_point(color = "blue", size = 2)

ggplot(cars, aes(dist, speed)) + 
  geom_point(color = "yellow", size = 2)