<div><span style="color:#0000ff;">Obrigado pela ajuda, já descobri meu erro!</span><br />
</div>
<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 xhref="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 />
</div>
<div>SE sua diferença está com as definições nos 'NA', note que eu estou usando o script do OP. . .</div>
<div> </div>
<div>HTH</div>
</div>
<div class="gmail_quote">
<div class="gmail_attr" dir="ltr">On Fri, Sep 16, 2022 at 10:21 PM 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)">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 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_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 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.