<div dir="ltr">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><br></div><div><span style="color:rgb(0,0,0);font-family:Calibri,Helvetica,sans-serif;font-size:16px"><br></span></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><br></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"<br></font></div><div><br></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><br></div><div>HTH</div><div><br></div><div>--</div><div>Cesar Rabak</div><div><br></div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Tue, Sep 13, 2022 at 11:09 PM Bruce Kelly por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div class="msg-8226643676344985321">
<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)">
<br>
</div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)">
<br>
</div>
<div id="m_-5051481482908051779signature_bookmark"></div>
<div id="m_-5051481482908051779appendonsend"></div>
<div style="font-family:Calibri,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)">
<br>
</div>
<hr style="display:inline-block;width:98%">
<div id="m_-5051481482908051779divRplyFwdMsg" dir="ltr"><font style="font-size:11pt" face="Calibri, sans-serif" color="#000000"><b>De:</b> R-br <<a href="mailto:r-br-bounces@listas.c3sl.ufpr.br" target="_blank">r-br-bounces@listas.c3sl.ufpr.br</a>> em nome de sznelwar--- por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">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 href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a> <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>><br>
<b>Cc:</b> <a href="mailto:sznelwar@uol.com.br" target="_blank">sznelwar@uol.com.br</a> <<a href="mailto:sznelwar@uol.com.br" target="_blank">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 size="21834" style="max-width: 100%;" src="http:///content_id?msg_id=MzI0MTY&cid=66d78bc1-f1a2-49bc-a0c7-85bb36bcd032&folder=JUNK"></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 size="25024" style="max-width: 100%;" src="http:///content_id?msg_id=MzI0MTY&cid=b17558fa-d648-4fbd-afb0-24424c5586e8&folder=JUNK"></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_-5051481482908051779x_Signature">
<div id="m_-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 href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</div></blockquote></div>