Module 5: Apply 4
Aiden Harrison
Import data
# csv file
data <- read_csv("myDatar.csv")
data## # A tibble: 19,165 × 5
## date sensor_depth_at_low_t…¹ mean_temperature_deg…² sd_temperature_degre…³
## <chr> <dbl> <dbl> <dbl>
## 1 4/2/19 40 0.314 0.0367
## 2 4/5/19 40 0.401 0.0591
## 3 3/13/19 40 0.438 0.0488
## 4 3/12/19 40 0.439 0.0489
## 5 4/6/19 40 0.448 0.0719
## 6 3/15/19 40 0.459 0.0493
## 7 4/1/19 40 0.469 0.0642
## 8 3/31/19 40 0.471 0.0456
## 9 4/4/19 40 0.487 0.201
## 10 3/14/19 40 0.488 0.0332
## # ℹ 19,155 more rows
## # ℹ abbreviated names: ¹​sensor_depth_at_low_tide_m, ²​mean_temperature_degree_c,
## # ³​sd_temperature_degree_c
## # ℹ 1 more variable: n_obs <dbl># excel file
oceantemp <- read_excel("myDatar.xlsx")
oceantemp## # A tibble: 19,165 × 5
## date sensor_depth_at_low_tide_m mean_temperature_degree_c
## <dttm> <dbl> <dbl>
## 1 2019-04-02 00:00:00 40 0.314
## 2 2019-04-05 00:00:00 40 0.401
## 3 2019-03-13 00:00:00 40 0.438
## 4 2019-03-12 00:00:00 40 0.439
## 5 2019-04-06 00:00:00 40 0.448
## 6 2019-03-15 00:00:00 40 0.459
## 7 2019-04-01 00:00:00 40 0.469
## 8 2019-03-31 00:00:00 40 0.471
## 9 2019-04-04 00:00:00 40 0.487
## 10 2019-03-14 00:00:00 40 0.488
## # ℹ 19,155 more rows
## # ℹ 2 more variables: sd_temperature_degree_c <dbl>, n_obs <dbl>State one question
How does temperature change with depth?
Plot data
ggplot(data = oceantemp) +
geom_point(mapping = aes(x = sensor_depth_at_low_tide_m, y = mean_temperature_degree_c))
Interpret
While this is looks like a bar chart, each bar is made up of many different points which shows that temperature does change with depth