arduino-photometrics/exec/plot_measures.r

25 lines
917 B
R

# install.packages("ragg")
# install.packages("tidyverse")
# install.packages("ggplot2")
library(ggplot2)
setwd("~/Documents/PlatformIO/Projects/Robot_Go_West/arduino-photometrics/exec")
# solar <- read.csv("../data/solar_pos_data/solar_data_2026-06-01_to_2026-06-15.csv", header=TRUE)
photo <- read.csv("../data/photo_measures/arduino_data_package_auto_20260107_143141.csv", header=TRUE)
photo$time <- as.POSIXct(photo$Epoch)
ggplot(data = photo, aes(x = time))+
geom_line(aes(y = Photo_sensor0, color = "Sensor 0"))+
geom_line(aes(y = Photo_sensor1, color = "Sensor 1"))+
geom_line(aes(y = Photo_sensor2, color = "Sensor 2"))+
geom_line(aes(y = Photo_sensor3, color = "Sensor 3"))+
geom_line(aes(y = Photo_sensor4, color = "Sensor 4"))+
geom_line(aes(y = Photo_sensor5, color = "Sensor 5"))+
theme_minimal()
ggplot(data = photo, aes(x = time, y = Temp_sensor0))+
geom_line()+
theme_minimal()