library(ggplot2)
library(scales)

data = read.csv(file = "/home/martin/www/datapoint/3772.txt", header=TRUE)
data$dateTime = as.POSIXlt(data$dateTime,format="%Y-%m-%d %H:%M UTC")
data$W= data$T*atan(0.151977*(data$H+8.313659)^0.5)+atan(data$T+data$H)-atan(data$H-1.676331)+0.00391838*(data$H)^(3/2)*atan(0.023101*data$H)-4.686035


pdf(file = "/home/martin/www/test.pdf", width = 10, height = 7)
ggplot()+
geom_line(data=data, aes(x=dateTime,y=T))+
geom_line(data=data, aes(x=dateTime,y=W))+
scale_y_continuous(breaks=seq(0,100,by=2))+
scale_x_datetime(breaks=date_breaks("1 days"),expand=c(0,0),labels=date_format("%d/%m/%y"),limits=c(as.POSIXct('2016/08/20'),as.POSIXct('2016/08/28')))+
theme(
	panel.background = element_rect(fill = 'white'),
        panel.border = element_rect(fill=NA,colour = "#AAAAAA",size=2),
	panel.grid.major = element_line(colour = "#B0B0B0"),
#	panel.grid.minor.x = element_blank(),
#	panel.grid.minor.y = element_blank(),
	axis.text = element_text(size=10, colour = "#505050"),
	axis.title.x = element_text(margin=margin(20,0),size=14), 
	axis.title.y = element_text(margin=margin(0,20),size=14), 
	panel.border = element_rect(fill=NA,colour = "#AAAAAA",size=2), 
	plot.margin=unit(c(1,1,1.5,1.2),"cm"))+
ggtitle(3772)+
labs(x='Date', y= expression("Temperature (" *degree * "C)"))
dev.off()