<div dir="ltr"><font face="monospace">Vou postar minha sessão aqui para vermos onde pode estar a diferença...</font><div><font face="monospace">~/Downloads$ R<br><br>R version 4.2.1 (2022-06-23) -- "Funny-Looking Kid"<br>Copyright (C) 2022 The R Foundation for Statistical Computing<br>Platform: x86_64-pc-linux-gnu (64-bit)<br><br>R é um software livre e vem sem GARANTIA ALGUMA.<br>Você pode redistribuí-lo sob certas circunstâncias.<br>Digite 'license()' ou 'licence()' para detalhes de distribuição.<br><br>R é um projeto colaborativo com muitos contribuidores.<br>Digite 'contributors()' para obter mais informações e<br>'citation()' para saber como citar o R ou pacotes do R em publicações.<br><br>Digite 'demo()' para demonstrações, 'help()' para o sistema on-line de ajuda,<br>ou 'help.start()' para abrir o sistema de ajuda em HTML no seu navegador.<br>Digite 'q()' para sair do R.<br><br>[Área de trabalho anterior carregada]<br><br>> rm(list=ls())<br>> #<br>> library(lubridate)<br><br>Attaching package: ‘lubridate’<br><br>The following objects are masked from ‘package:base’:<br><br> date, intersect, setdiff, union<br><br>> library(tidyverse)<br>── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──<br>✔ ggplot2 3.3.6 ✔ purrr 0.3.4 <br>✔ tibble 3.1.7 ✔ dplyr 1.0.10<br>✔ tidyr 1.2.1 ✔ stringr 1.4.1 <br>✔ readr 2.1.2 ✔ forcats 0.5.2 <br>── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──<br>✖ lubridate::as.difftime() masks base::as.difftime()<br>✖ lubridate::date() masks base::date()<br>✖ dplyr::filter() masks stats::filter()<br>✖ lubridate::intersect() masks base::intersect()<br>✖ dplyr::lag() masks stats::lag()<br>✖ lubridate::setdiff() masks base::setdiff()<br>✖ lubridate::union() masks base::union()<br>> library(dplyr)<br>> library(hrbrthemes)<br>NOTE: Either Arial Narrow or Roboto Condensed fonts are required to use these themes.<br> Please use hrbrthemes::import_roboto_condensed() to install Roboto Condensed and<br> if Arial Narrow is not on your system, please see <a href="https://bit.ly/arialnarrow">https://bit.ly/arialnarrow</a><br>> library(GGally)<br>Registered S3 method overwritten by 'GGally':<br> method from <br> +.gg ggplot2<br>> library(ggplot2)<br>> # Dados -------------------------------------------------------------------<br>> # Chuva<br>> input<- read.table('Rain_1.txt', header = T, sep = ',', dec = '.',<br>+ na.strings = c('NAN', 'NaN', 'Inf', 'NA'))<br>> 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><br><br></div><div>SE sua diferença está com as definições nos 'NA', note que eu estou usando o script do OP. . .</div><div><br></div><div>HTH</div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Fri, Sep 16, 2022 at 10:21 PM sznelwar--- 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><span style="color:rgb(0,0,255)">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>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_4027864637851328625m_6604256849583396886m_-5051481482908051779signature_bookmark"> </div>
<div id="m_4027864637851328625m_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_4027864637851328625m_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 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 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_4027864637851328625m_6604256849583396886m_-5051481482908051779x_Signature">
<div id="m_4027864637851328625m_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>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>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.</blockquote>
</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>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 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>
</blockquote></div>