pergunta11.R

#HUM CON DEMANDA#
par(mfrow=c(1,4))
data%>% filter(season==1) %>% select(hum,cnt) %>%plot(ylab="Demanda", xlab="Normalized humidity", main="Primavera")
data%>% filter(season==1) %>% select(hum,cnt) %>% max()
data %>% filter(cnt == max(cnt)) %>% select(hum)
points(0.755833,7836,col="red")
text(0.75,7500,"Demanda mas alta")
# cnt=7836, hum=0.755833#

data%>% filter(season==2) %>% select(hum,cnt) %>%plot(ylab="Demanda", xlab="Normalized humidity", main="Verano")
data%>% filter(season==2) %>% select(hum,cnt) %>% max()
data %>% filter(cnt == max(cnt)) %>% select(hum)
points(0.694167,8362,col="red")
text(0.65,8000,"Demanda mas alta")
# cnt=8362, hum=0.694167#

data%>% filter(season==3) %>% select(hum,cnt) %>%plot(ylab="Demanda", xlab="Normalized humidity", main="Otono")
data%>% filter(season==3) %>% select(hum,cnt) %>% max()
data %>% filter(cnt == max(cnt)) %>% select(hum)
points(0.501667,8714,col="red")
text(0.65,8600,"Demanda mas alta")
# cnt=8714 , hum= 0.501667#

data%>% filter(season==4) %>% select(hum,cnt) %>% plot(ylab="Demanda", xlab="Normalized humidity", main="Invierno")
data%>% filter(season==4) %>% select (hum, cnt) %>% max()
data %>% filter(cnt == max(cnt)) %>% select(hum)
points(0.542917,8555,col="red")
text(0.7,8714,"Demanda mas alta")

#DEMANDA CON TEMPERATURA#
par(mfrow=c(1,4))
data%>% filter(season==1) %>% select(temp,cnt) %>%plot(ylab="Demanda", xlab="Temperature", main="Primavera")
data%>% filter(season==1) %>% select(temp,cnt) %>% max()
data %>% filter(cnt == max(cnt)) %>% select(temp)
points(0.608333,7836,col="red")
text(0.30,7820,"Demanda mas alta")

data%>% filter(season==2) %>% select(temp,cnt) %>%plot(ylab="Demanda", xlab="Temperature", main="Verano")
data%>% filter(season==2) %>% select(temp,cnt) %>% max()
data %>% filter(cnt == max(cnt)) %>% select(temp)
points(0.608333,8362,col="red")
text(0.30,8350,"Demanda mas alta")

data%>% filter(season==3) %>% select(temp,cnt) %>%plot(ylab="Demanda", xlab="Temperature", main="Otono")
data%>% filter(season==3) %>% select(temp,cnt) %>% max()
data %>% filter(cnt == max(cnt)) %>% select(temp)
points(0.608333,8714,col="red")
text(0.30,7820,"Demanda mas alta")

data%>% filter(season==4) %>% select(temp,cnt) %>%plot(ylab="Demanda", xlab="Temperature", main="Invierno")
data%>% filter(season==4) %>% select(temp,cnt) %>% max()
data %>% filter(cnt == max(cnt)) %>% select(temp)
points(0.60833,8555,col="red")
text(0.30,8550,"Demanda mas alta")

#VELOCIDAD DEL VIENTO CON DEMANDA#
par(mfrow=c(1,4))
data%>% filter(season==1) %>% select(windspeed,cnt) %>%plot(ylab="Demanda", xlab="Windspeed", main="Primavera")
data%>% filter(season==1) %>% select(windspeed,cnt) %>% max()
data %>% filter(cnt == max(cnt)) %>% select(windspeed)
points(0.247521,7836,col="red")
text(0.20,7820,"Demanda mas alta")

data%>% filter(season==2) %>% select(windspeed,cnt) %>%plot(ylab="Demanda", xlab="Windspeed", main="Verano")
data%>% filter(season==2) %>% select(windspeed,cnt) %>% max()
data %>% filter(cnt == max(cnt)) %>% select(windspeed)
points(0.247521,8361,col="red")
text(0.20,8350,"Demanda mas alta")

data%>% filter(season==3) %>% select(windspeed,cnt) %>%plot(ylab="Demanda", xlab="Windspeed", main="Otono")
data%>% filter(season==3) %>% select(windspeed,cnt) %>% max()
data %>% filter(cnt == max(cnt)) %>% select(windspeed)
points(0.247521,8714,col="red")
text(0.20,8750,"Demanda mas alta")


data%>% filter(season==4) %>% select(windspeed,cnt) %>%plot(ylab="Demanda", xlab="Windspeed", main="Invierno")
data%>% filter(season==4) %>% select(windspeed,cnt) %>% max()
data %>% filter(cnt == max(cnt)) %>% select(windspeed)
points(0.247521,8555,col="red")
text(0.20,8550,"Demanda mas alta")