mirror of
https://gitlab.com/Luci_/arduino-photometrics.git
synced 2026-04-03 11:35:37 +02:00
46 lines
1.6 KiB
R
46 lines
1.6 KiB
R
# install.packages("ragg")
|
|
# install.packages("tidyverse")
|
|
# install.packages("ggplot2")
|
|
|
|
library(ggplot2)
|
|
library(dplyr)
|
|
|
|
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)
|
|
# photo2 <- read.csv("../data/photo_measures/arduino_data_package_auto_20260109_102906.csv", header=TRUE)
|
|
|
|
chemin <- "../data/photo_measures/"
|
|
fichiers <- list.files(path = chemin, pattern = "\\.csv$", full.names = TRUE)
|
|
|
|
liste_data <- lapply(fichiers, read.csv, header = TRUE)
|
|
summary(liste_data)
|
|
print(typeof(liste_data))
|
|
|
|
# partial_list_data <- liste_data[1:2]
|
|
partial_list_data <- liste_data[3:6]
|
|
photo <- do.call(rbind, partial_list_data)
|
|
|
|
max_val_sensor = 254
|
|
photo <- photo %>%
|
|
mutate(across(starts_with("Photo_sensor"), ~ {
|
|
.x <- sqrt(.x)
|
|
# .x <- (.x*-1) + max_val_sensor
|
|
# .x <- as.numeric(scale(.x, center = TRUE, scale = 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()
|