R/draw_DTH.R

In flyeye/sensors: Processing and visualizing sensors data

draw_DHT_daily <- function (filename, parameter = "T")
{
  grower_data <<- read.csv(filename, header = TRUE)
  pic_filename <- filename
  grower_data$Date.Time <<- as.POSIXct(as.character(grower_data$Date.Time), tz="GMT")
  g <- ggplot2::ggplot(grower_data, aes(x=grower_data[[1]])) + xlab("Time")
  g <- g + scale_x_datetime( breaks=date_breaks("2 hours"), 
                             minor_breaks=date_breaks("1 hour"), 
                             labels=date_format("%H:%M"))  
  if (length(grep("T", parameter, ignore.case = TRUE))>0 ) {
      g <- g + scale_y_continuous(breaks=seq(20,32,by=1), minor_breaks=seq(20,32,by=0.5))  
      g <- g + ylab("Temperature") + 
                geom_line(aes(y = grower_data$Shelf.1.T.23., colour = "T1")) + 
                geom_line(aes(y = grower_data$Shelf.2.T.24., colour = "T2")) + 
                geom_line(aes(y = grower_data$Shelf.3.T.25., colour = "T3")) + 
                geom_line(aes(y = grower_data$Shelf.4.T.26., colour = "T4")) + 
                geom_line(aes(y = grower_data$Shelf.5.T.27., colour = "T5")) + 
                geom_line(aes(y = grower_data$Shelf.6.T.28., colour = "T6"))
      g <- g + ggtitle( paste("Air temperature, ", as.Date(grower_data$Date.Time[1])))  
      g <- g + scale_colour_manual("Sensors",  
                                 breaks = c("T1", "T2", "T3","T4", "T5", "T6"), 
                                 values = c("green", "blue", "red", "brown", "orange", "grey")) 
      pic_filename <- paste0(pic_filename, "T")
      ggsave(paste0(pic_filename,".png"), width = 10, height = 5)
  } 
  else 
    if (length(grep("H", parameter, ignore.case = TRUE))>0 ) {
        g <- g + scale_y_continuous(breaks=seq(0,100,by=10), minor_breaks=seq(0,100,by=5))  
        g <- g + ylab("Humidity") + 
            geom_line(aes(y = grower_data$Shelf.1.H.23., colour = "H1")) + 
            geom_line(aes(y = grower_data$Shelf.2.H.24., colour = "H2")) + 
            geom_line(aes(y = grower_data$Shelf.3.H.25., colour = "H3")) + 
            geom_line(aes(y = grower_data$Shelf.4.H.26., colour = "H4")) + 
            geom_line(aes(y = grower_data$Shelf.5.H.27., colour = "H5")) + 
            geom_line(aes(y = grower_data$Shelf.6.H.28., colour = "H6"))
        g <- g + ggtitle( paste("Air humidity, ", as.Date(grower_data$Date.Time[1])))  
        g <- g + scale_colour_manual("Sensors",  
                                     breaks = c("H1", "H2", "H3","H4", "H5", "H6"), 
                                     values = c("green", "blue", "red", "brown", "orange", "grey")) 
        pic_filename <- paste0(pic_filename, "H")
        ggsave(paste0(pic_filename,".png"), width = 10, height = 5)
  }
  g
}