<div dir="ltr"><img width="0" height="0" class="mailtrack-img" style="float:right;" alt="" src="https://mailtrack.io/trace/mail/7196d3f91b49159707336bbd52af37a257adcc43.png?u=968181"><div class="gmail_default"><font face="arial, helvetica, sans-serif">Bom dia,</font><br><br><font face="arial, helvetica, sans-serif">Eu estou com um problema para suavizar meu gráfico. Eu tenho dados horários e desejo plotar individualmente cada data (no período das 06h as 18h). Entretanto o gráfico tem ficado com muito ruído devido as observações serem horárias e existirem falhas (NA) nas observações. E por isso eu gostaria de suavizar o gráfico com as médias horárias, porém não estou conseguindo implementar isso.<br></font><br>Espero que alguém possa me ajudar a resolver.<br><br>dado utilizado: <br><a href="https://www.dropbox.com/s/b80zzzeaesnh8qp/dado.txt?dl=0">https://www.dropbox.com/s/b80zzzeaesnh8qp/dado.txt?dl=0</a><br><br><br><div class="gmail_default"><font face="arial, helvetica, sans-serif">library(openair)</font></div><div class="gmail_default"><br></div><div class="gmail_default"><font face="arial, helvetica, sans-serif"> mydata<-read.table("dado.txt", h = T, sep = ",")</font></div><div class="gmail_default"><font face="arial, helvetica, sans-serif"> mydata$direta <- as.numeric(as.character(mydata$direta))</font></div><div class="gmail_default"><font face="arial, helvetica, sans-serif"> mydata$date <- as.POSIXct(strptime(mydata$date, format = "%d/%m/%Y %H:%M:%S",tz = "Etc/GMT-1"))</font></div><div class="gmail_default"><font face="arial, helvetica, sans-serif"><br></font></div><div class="gmail_default"><font face="arial, helvetica, sans-serif">means <- aggregate(mydata["direta"], format(mydata["date"],"%d-%m-%Y %H:%M:%S"), mean, na.rm = TRUE)</font></div><div class="gmail_default"><font face="arial, helvetica, sans-serif">means[ ,"date"] <- seq(min(mydata[ , "date"]), max(mydata[ , "date"]), length = nrow(means))</font></div><div class="gmail_default"><font face="arial, helvetica, sans-serif"><br></font></div><div class="gmail_default"><font face="arial, helvetica, sans-serif"><br></font></div><div class="gmail_default"><font face="arial, helvetica, sans-serif">Figura1<-plot(mydata$date[2:721], mydata$direta[2:721], type = "l", col="red",xlab = "minutes",main = "01 de Janeiro de 2007", ylab = "Direct Solar Radiation (W/m²)")</font></div><div class="gmail_default"><font face="arial, helvetica, sans-serif">Figura1</font></div><div class="gmail_default"><font face="arial, helvetica, sans-serif">dev.copy(device=jpeg,filename="Brasilia_01dejaneiro2007.jpg", width = 800, height = 500) </font></div><div class="gmail_default"><font face="arial, helvetica, sans-serif">dev.off ()<br><br>desde já, agradeço.</font></div><br></div><div><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div><font face="tahoma, sans-serif">_______________________________________________________________________________________</font></div><font face="tahoma, sans-serif" color="#0000ff"><div dir="ltr"><font face="tahoma, sans-serif"><br></font></div>MATEUS DIAS NUNES<br></font><div><div><font face="tahoma, sans-serif" color="#0000ff"><div dir="ltr">Postgraduate Program in Meteorology - PGMET - CPTEC / INPE</div><div dir="ltr">Center for Weather Forecasting and Climate Studies / National Institute for Space Research</div>Cachoeira Paulista - SP - Brasil</font></div><div><font color="#0000ff"><span style="font-family:tahoma,sans-serif;font-size:12.8px">FONE: +55 (53) 98112-5154 </span></font><span style="font-family:tahoma,sans-serif;font-size:12.8px;color:rgb(0,0,0)"> <br></span><span style="color:rgb(0,0,255);font-family:tahoma,sans-serif;font-size:12.8px">SKYPE: <a href="mailto:omsndomateus@hotmail.com" target="_blank" class="gmail-mt-detrack-inspected">omsndomateus@hotmail.com</a></span><span style="font-family:tahoma,sans-serif;font-size:12.8px;color:rgb(0,0,0)"> </span><span style="font-family:tahoma,sans-serif;font-size:12.8px"> </span><span style="font-family:tahoma,sans-serif"><br></span></div><div><font face="tahoma, sans-serif">____________________________________________<span style="background-color:rgb(255,255,255)"><span></span></span>___________________________________________</font></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div>
<br><br><br><div class="mt-signature">
<div class="mt-signature">
<a href="https://mailtrack.io/" class="gmail-mt-signature-logo gmail-mt-detrack-inspected" style="text-decoration:none">
<img src="https://s3-eu-west-1.amazonaws.com/mailtrack-crx/icon-signature.png" width="16" height="14">
</a>
<font color="#999999" class="mt-signature-text">
Sent with <a href="https://mailtrack.io/install?source=signature&lang=en&referral=nunes.mateusdias@gmail.com&idSignature=22" class="mt-install">Mailtrack</a>
</font>
</div>
<div class="gmail-mt-tool-tracking"><a href="#" title="Remover a assinatura de Mailtrack" class="gmail-mt-remove gmail-mt-detrack-inspected"><span></span></a></div></div></div>