End Interactive Session 1B
# read in data
<- read_csv(here::here("data", "data-raw", "toolik_chlorophyll.csv"))
toolik_chlorophyll
# get data overview
::skim(toolik_chlorophyll)
skimr
dim(toolik_chlorophyll)
names(toolik_chlorophyll)
# clean names
<- toolik_chlorophyll %>% clean_names()
toolik_chlorophyll
# make plot
<- ggplot(data = toolik_chlorophyll,
toolik_chlorophyll_plot aes(x = depth, y = as.numeric(active_chl_a_ug_l))) +
geom_point() +
theme_minimal() +
labs(title = "Toolik Station Chlorophyll a concentration",
x = "Depth (m)",
y = "Chlorophyll a concentration (micrograms per liter)")
toolik_chlorophyll_plot
# save plot
ggsave(here::here("figs", "toolik_chlorophyll_plot.png"), height = 6, width = 7)