<div> </div>
<div dir="ltr"><img class="mailtrack-img" style="float: right;" src="https://mailtrack.io/trace/mail/7196d3f91b49159707336bbd52af37a257adcc43.png?u=968181" alt="" width="0" height="0" /><span style="font-size: medium; color: #0000ff;">Tem este arquivo 'dado' para rodar? Ele não está mais disponível no dropbox!</span>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;"> </span></div>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;"> </span></div>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;">Bom dia,</span><br /><br /><span style="font-family: 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 /></span><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" target="_blank">https://www.dropbox.com/s/b80zzzeaesnh8qp/dado.txt?dl=0</a><br /><br /><br />
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;">library(openair)</span></div>
<div class="gmail_default"> </div>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;"> mydata<-read.table("dado.txt", h = T, sep = ",")</span></div>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;"> mydata$direta <- as.numeric(as.character(mydata$direta))</span></div>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;"> mydata$date <- as.POSIXct(strptime(mydata$date, format = "%d/%m/%Y %H:%M:%S",tz = "Etc/GMT-1"))</span></div>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;"> </span></div>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;">means <- aggregate(mydata["direta"], format(mydata["date"],"%d-%m-%Y %H:%M:%S"), mean, na.rm = TRUE)</span></div>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;">means[ ,"date"] <- seq(min(mydata[ , "date"]), max(mydata[ , "date"]), length = nrow(means))</span></div>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;"> </span></div>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;"> </span></div>
<div class="gmail_default"><span style="font-family: 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²)")</span></div>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;">Figura1</span></div>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;">dev.copy(device=jpeg,filename="Brasilia_01dejaneiro2007.jpg", width = 800, height = 500) </span></div>
<div class="gmail_default"><span style="font-family: arial, helvetica, sans-serif;">dev.off ()<br /><br />desde já, agradeço.</span></div>
</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><span style="font-family: tahoma, sans-serif;">_______________________________________________________________________________________</span></div>
<div dir="ltr"><span style="font-family: tahoma, sans-serif;"> </span></div>
<span style="color: #0000ff; font-family: tahoma, sans-serif;">MATEUS DIAS NUNES<br /></span>
<div>
<div>
<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>
<span style="color: #0000ff; font-family: tahoma, sans-serif;">Cachoeira Paulista - SP - Brasil</span></div>
<div><span style="color: #0000ff;"><span style="font-family: tahoma,sans-serif; font-size: 12.8px;">FONE: +55 (53) 98112-5154   </span></span><span style="font-family: tahoma,sans-serif; font-size: 12.8px; color: #000000;">  <br /></span><span style="color: #0000ff; font-family: tahoma,sans-serif; font-size: 12.8px;">SKYPE: <a class="gmail-mt-detrack-inspected" href="../../../undefined//compose?to=omsndomateus@hotmail.com" target="_blank">omsndomateus@hotmail.com</a></span><span style="font-family: tahoma,sans-serif; font-size: 12.8px; color: #000000;">    </span><span style="font-family: tahoma,sans-serif; font-size: 12.8px;">  </span><span style="font-family: tahoma,sans-serif;"><br /></span></div>
<div> </div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>