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)