kopia lustrzana https://github.com/RobertGawron/IonizationChamber
44 wiersze
1.4 KiB
R
44 wiersze
1.4 KiB
R
library(latticeExtra)
|
|
require(gridExtra)
|
|
require(grid)
|
|
|
|
# set error messages test to english
|
|
Sys.setenv(LANG = "en")
|
|
|
|
drawDiagramSingle <- function(samples) {
|
|
|
|
# date column should be type of date, not string, so parse it
|
|
png(filename = paste0("results-", format(Sys.time(), "%d_%b_%Y_%H_%M"), ".png"),
|
|
width = 800, height = 900, bg = "white")
|
|
|
|
samples$Time = as.POSIXct(samples$Time, format="%Y-%m-%d %H:%M:%S.%OS")
|
|
|
|
# create graphs
|
|
plotValueVsTime <- xyplot(Counter ~ Time,
|
|
data = samples,
|
|
type = "l",
|
|
grid = TRUE,
|
|
col.line = "black",
|
|
ylab = "counts per minute",
|
|
ylim=c(min(samples$Counter), max(samples$Counter)),
|
|
xlim=c(min(samples$Time), max(samples$Time)),
|
|
main = "Change over time")
|
|
|
|
plotHistogram <- histogram(samples$Counter,
|
|
color = "white",
|
|
col = "grey",
|
|
xlab = "counts",
|
|
ylab = "percentage",
|
|
main = "Histogram")
|
|
|
|
# show graphs
|
|
grid.arrange(plotValueVsTime, plotHistogram, nrow = 2)
|
|
|
|
# add timestamp
|
|
trellis.focus("toplevel")
|
|
pictureCreationTimestamp <- as.POSIXlt(Sys.time())
|
|
panel.text(0.85, 0.03, pictureCreationTimestamp, cex = 1.2, font = 2)
|
|
trellis.unfocus()
|
|
}
|
|
|