library(ggplot2)
library(ggpsychro)


options(width = 150)
df <- read.csv("data.csv",col.names=c("DateTime", "DB", "RH","DP","P","WIND","WIND-DIR","SUN","RAIN","START"))

df=df[complete.cases(df), ]
df$DB=(df$DB/10)
df$RH=(df$RH/100)
df$P=(df$P*100)


x <- df[df$DB > 20 & df$RH > 0.98, ]
print(x)

p = ggpsychro(tdb_lim = c(-10, 40),hum_lim = c(0, 50)) +
    geom_grid_relhum(alpha = 1.0, label.alpha = 1.0, label.size = 6, label.fontface = 2) +
    scale_relhum(minor_breaks = NULL) +
    geom_grid_wetbulb(size = 1.0, color = "black", alpha = 1.0, label_loc = NA) +
    scale_wetbulb(breaks = seq(25, 30, by = 5), minor_breaks = NULL) +
    geom_grid_vappres(label.size = 5) +
    scale_vappres(breaks = seq(6000, 7000, by = 500), limits = c(6000, 7000)) +
    geom_grid_specvol() +
    scale_specvol(labels = NULL) +
    geom_line(aes(x = 20:30, enthalpy = 64000, y=1,color="orange"), stat = "enthalpy") +
    geom_point(aes(df$DB, relhum=df$RH),stat = "relhum",color = "red",size=0.1, )+
    geom_grid_enthalpy()
ggsave("chart.pdf", plot = p, width = 6, height = 4)