update LED spectrum graph

PalmStudio · Jul 26, 2024 · 4c5cef9 · 4c5cef9
1 parent 7af5b9d
commit 4c5cef9
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 1 deletion.
diff --git a/.gitignore b/.gitignore
@@ -65,4 +65,5 @@ generation_report.html
 *.bz2
 06-transpiration/transpiration_10min.csv.bz2
 paper/.Rhistory
-.Rhistory
+.Rhistory
+paper/2-figuresTables/LightSpectrum.pdf
diff --git a/paper/1-code/FigTable.R b/paper/1-code/FigTable.R
@@ -484,3 +484,17 @@ cowplot::plot_grid(parVid,
 )
 
 ggsave(filename = "2-figuresTables/Light.pdf", width = 10, height = 12)
+
+
+
+# light spectrum ----------------------------------------------------------
+
+sp=fread(input = '../00-data/mappingLight/LEDspectrum.csv',dec=',')
+
+sp%>%
+  ggplot(aes(x=`waveLength(nm)`,y=`irradiance(microW/cm2/nm)`))+
+  geom_line()+
+  labs(x='Wave length (nm)',y=expression('Irradiance ('*mu*'W '*cm**-2*nm**-1*')'))+
+  myTheme
+
+ggsave(filename = "2-figuresTables/LightSpectrum.pdf", width = 10, height = 8)