Code to plot temperature sensor data

plot_temp.R

library(readr)
library(dplyr)
library(ggplot2)




read_tsv("http://192.168.1.204:8000/temp.log",
         col_names = c("Time", "Temp", "Temp (Smooth)"),
         col_types = cols(.default = col_double(), Time = col_datetime())) %>%
  filter(Time >= "2018-05-27") %>%
  ggplot(aes(x = Time, y = `Temp (Smooth)`, colour = 'Smooth')) +
  geom_line(aes(y = Temp, colour = 'Raw'))  +
  geom_line() +
  expand_limits(y = c(10, 25)) +
  theme_bw() +
  scale_y_continuous(minor_breaks = seq(-10,30, by = 1))