Week 4: Apply 3

Import data

# excel file
data <- read_excel("data/myDatar.xlsx")
data

## # 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>

Plot prices

data %>%
    
    ggplot(aes(sensor_depth_at_low_tide_m)) +
    geom_bar()