<div><span style="color:#0000ff;">As linhas que analisa.</span></div>
<div dir="ltr">Ao mencionar "o mesmo resultado" você está discutindo as linhas que eu analiso ou a postagem inicial ?</div>
<div class="gmail_quote">
<div class="gmail_attr" dir="ltr">On Fri, Sep 16, 2022 at 1:41 AM sznelwar--- por (R-br) <<a xhref="/compose?to=r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:</div>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
<div><span style="color:rgb(0,0,255)">Eu não consegui chegar no mesmo resultado com este script:</span><br />
<br />
rm(list=ls())<br />
library(lubridate)<br />
library(tidyverse)<br />
library(dplyr)<br />
library(hrbrthemes)<br />
library(GGally)<br />
library(ggplot2)<br />
<br />
# Dados -------------------------------------------------------------------<br />
# Chuva<br />
input<- read.table('Rain_1.txt', header = T, sep = ',', dec = '.')<br />
#<br />
# Organizar os dados ------------------------------------------------------<br />
# converter o TIMESTEP em data<br />
input$TIMESTAMP<- as.Date(ymd_hms(input$TIMESTAMP))<br />
#tentei<br />
input$TIMESTAMP<- as.Date(input$TIMESTAMP)<br />
#<br />
#<br />
#Adicionado os meses e anos nas observações<br />
#### a saída é em um caracter converter para numerico<br />
input$Year<-format(input$TIMESTAMP, '%Y')<br />
input$Month<-format(input$TIMESTAMP, '%m')<br />
input$Day<-format(input$TIMESTAMP, '%d')<br />
input$Doy<-format(input$TIMESTAMP, '%J')<br />
input$Hour.s<-format(input$TIMESTAMP, '%H')</div>
<div dir="ltr"><span style="color:rgb(0,51,255)">E não cheguei no vosso resultado. Com este comando abaixo só abri com NaN </span>
<div>input<- read.table('Rain_1.txt', header = T, sep = ',', dec = '.',</div>
<div> na.strings = c('NAN', 'NaN', 'Inf', 'NA'))</div>
<div>#</div>
<br />
Quando você executa esta linha:
<div><font face="monospace"><span style="color:rgb(0,0,0);font-size:16px">> input$TIMESTAMP<- as.Date(ymd_hms(input$</span><span style="color:rgb(0,0,0);font-size:16px">TIMESTAMP))</span></font></div>
<div> </div>
<div><span style="color:rgb(0,0,0);font-family:Calibri,Helvetica,sans-serif;font-size:16px">Você destrói o conteúdo da coluna TIMESTAMP e a substitui pela parte da data calendário apenas, efetivamente perdendo a parte fracionária do dia.</span></div>
<div> </div>
<div>Compare o resultado das seguintes linhas:</div>
<div><font face="monospace">> head(ymd_hms(input$TIMESTAMP))<br />
[1] "2021-02-23 10:00:00 UTC" "2021-03-10 11:00:00 UTC"<br />
[3] "2021-03-10 11:30:00 UTC" "2021-03-10 12:00:00 UTC"<br />
[5] "2021-03-10 12:30:00 UTC" "2021-03-10 13:00:00 UTC"<br />
> head(as.Date(ymd_hms(input$TIMESTAMP)))<br />
[1] "2021-02-23" "2021-03-10" "2021-03-10" "2021-03-10" "2021-03-10"<br />
[6] "2021-03-10"</font></div>
<div> </div>
<div>Se vc só precisa da data no formato POSIX para usar com <font face="monospace">lubridate </font>e afins, então a substituição deve ser sem o as.Date e somente depois processar esses valores.</div>
<div> </div>
<div>HTH</div>
<div> </div>
<div>--</div>
<div>Cesar Rabak</div>
<div> </div>
<div> </div>
</div>
<div class="gmail_quote">
<div class="gmail_attr" dir="ltr">On Tue, Sep 13, 2022 at 11:09 PM Bruce Kelly por (R-br) <<a>r-br@listas.c3sl.ufpr.br</a>> wrote:</div>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
<div>
<div dir="ltr">
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)">Segue o arquivo =)</div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)"> </div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)"> </div>
<div id="m_6604256849583396886m_-5051481482908051779signature_bookmark"> </div>
<div id="m_6604256849583396886m_-5051481482908051779appendonsend"> </div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)"> </div>
<hr style="display:inline-block;width:98%" />
<div dir="ltr" id="m_6604256849583396886m_-5051481482908051779divRplyFwdMsg"><font color="#000000" face="Calibri, sans-serif" style="font-size:11pt"><b>De:</b> R-br <<a>r-br-bounces@listas.c3sl.ufpr.br</a>> em nome de sznelwar--- por (R-br) <<a>r-br@listas.c3sl.ufpr.br</a>><br />
<b>Enviado:</b> quarta-feira, 14 de setembro de 2022 01:29<br />
<b>Para:</b> <a>r-br@listas.c3sl.ufpr.br</a> <<a>r-br@listas.c3sl.ufpr.br</a>><br />
<b>Cc:</b> <a>sznelwar@uol.com.br</a> <<a>sznelwar@uol.com.br</a>><br />
<b>Assunto:</b> Re: [R-br] Ajudar com organização de dados horários</font>
<div> </div>
</div>
<div>
<div><span style="color:rgb(0,51,255)">Não foi enviado o arquivo Rain_1.txt.</span></div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)">Boa noite pessoal,</div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)">Estou com dúvida de como acrescentar a coluna horaria de algumas. Estou usando as seguintes scritp:</div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)"> </div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)">rm(list=ls())
<div>#</div>
<div>library(lubridate)</div>
<div>library(tidyverse)</div>
<div>library(dplyr)</div>
<div>library(hrbrthemes)</div>
<div>library(GGally)</div>
<div>library(ggplot2)</div>
<div> </div>
<div># Dados -------------------------------------------------------------------</div>
<div># Chuva</div>
<div>input<- read.table('Rain_1.txt', header = T, sep = ',', dec = '.',</div>
<div> na.strings = c('NAN', 'NaN', 'Inf', 'NA'))</div>
<div>#</div>
<div> dec = '.', na.strings = c('NAN', 'NaN', 'Inf'))</div>
<div># Organizar os dados ------------------------------------------------------</div>
<div># converter o TIMESTEP em data</div>
<div>input$TIMESTAMP<- as.Date(ymd_hms(input$TIMESTAMP))</div>
<div>#tentei</div>
input$TIMESTAMP<- as.Date(input$TIMESTAMP))</div>
<div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)">#
<div>#</div>
<div>#Adicionado os meses e anos nas observações</div>
<div>#### a saída é em um caracter converter para numerico</div>
<div>input$Year<-format(input$TIMESTAMP, '%Y')</div>
<div>input$Month<-format(input$TIMESTAMP, '%m')</div>
input$Day<-format(input$TIMESTAMP, '%d')</div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)">input$Doy<-format(input$TIMESTAMP, '%J')</div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)">input$Hour.s<-format(input$TIMESTAMP, '%H')</div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)"> </div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)">Quando executo a coluna Hour.s fica zerada como mostra a figura. E preciso que essa coluna horaria com mediação a cada 30min, fique na variação de 0-23h (0.5, 1, 1.5,...23,5)</div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)"><img invalid="top.fixImageError(this,'https://mailcontents.uol.com.br/http://content_id/?msg_id=MzI0MTY&cid=66d78bc1-f1a2-49bc-a0c7-85bb36bcd032&folder=JUNK')" size="21834" src="https://mailcontents.uol.com.br/http://content_id/?msg_id=MzI0MTY&cid=66d78bc1-f1a2-49bc-a0c7-85bb36bcd032&folder=JUNK" style="max-width: 100%;" /></div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)"> </div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)">estrutura do TIMESTAMP antes de ser convertido em data</div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)"> </div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)"><img invalid="top.fixImageError(this,'https://mailcontents.uol.com.br/http://content_id/?msg_id=MzI0MTY&cid=b17558fa-d648-4fbd-afb0-24424c5586e8&folder=JUNK')" size="25024" src="https://mailcontents.uol.com.br/http://content_id/?msg_id=MzI0MTY&cid=b17558fa-d648-4fbd-afb0-24424c5586e8&folder=JUNK" style="max-width: 100%;" /></div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)"> </div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)">Obrigado pela ajuda e atenção de todo (@s)</div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)"> </div>
<div id="m_6604256849583396886m_-5051481482908051779x_Signature">
<div id="m_6604256849583396886m_-5051481482908051779x_divtagdefaultwrapper" style="font-size:12pt;color:rgb(0,0,0);font-family:Calibri,Arial,Helvetica,sans-serif">
<div align="center">
<div align="left"> </div>
</div>
</div>
</div>
</div>
</div>
</div>
_______________________________________________<br />
R-br mailing list<br />
<a>R-br@listas.c3sl.ufpr.br</a><br />
<a rel="noreferrer">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />
Leia o guia de postagem (<a rel="noreferrer">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</div>
</blockquote>
</div>
_______________________________________________<br />
R-br mailing list<br />
<a xhref="/compose?to=R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br />
<a>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />
Leia o guia de postagem (<a>http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível._______________________________________________<br />
R-br mailing list<br />
<a xhref="/compose?to=R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br />
<a rel="noreferrer" xhref="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />
Leia o guia de postagem (<a rel="noreferrer" xhref="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote>
</div>
_______________________________________________<br />
R-br mailing list<br />
R-br@listas.c3sl.ufpr.br<br />
<a xhref="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />
Leia o guia de postagem (<a xhref="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.