Ao mencionar "o mesmo resultado" você está discutindo as linhas que eu
analiso ou a postagem inicial ?
On Fri, Sep 16, 2022 at 1:41 AM sznelwar--- por (R-br) <
r-br@listas.c3sl.ufpr.br> wrote:
> Eu não consegui chegar no mesmo resultado com este script:
>
> rm(list=ls())
> library(lubridate)
> library(tidyverse)
> library(dplyr)
> library(hrbrthemes)
> library(GGally)
> library(ggplot2)
>
> # Dados -------------------------------------------------------------------
> # Chuva
> input<- read.table('Rain_1.txt', header = T, sep = ',', dec = '.')
> #
> # Organizar os dados ------------------------------------------------------
> # converter o TIMESTEP em data
> input$TIMESTAMP<- as.Date(ymd_hms(input$TIMESTAMP))
> #tentei
> input$TIMESTAMP<- as.Date(input$TIMESTAMP)
> #
> #
> #Adicionado os meses e anos nas observações
> #### a saída é em um caracter converter para numerico
> input$Year<-format(input$TIMESTAMP, '%Y')
> input$Month<-format(input$TIMESTAMP, '%m')
> input$Day<-format(input$TIMESTAMP, '%d')
> input$Doy<-format(input$TIMESTAMP, '%J')
> input$Hour.s<-format(input$TIMESTAMP, '%H')
> E não cheguei no vosso resultado. Com este comando abaixo só abri com NaN
> input<- read.table('Rain_1.txt', header = T, sep = ',', dec = '.',
> na.strings = c('NAN', 'NaN', 'Inf', 'NA'))
> #
>
> Quando você executa esta linha:
> > input$TIMESTAMP<- as.Date(ymd_hms(input$TIMESTAMP))
>
> 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.
>
> Compare o resultado das seguintes linhas:
> > head(ymd_hms(input$TIMESTAMP))
> [1] "2021-02-23 10:00:00 UTC" "2021-03-10 11:00:00 UTC"
> [3] "2021-03-10 11:30:00 UTC" "2021-03-10 12:00:00 UTC"
> [5] "2021-03-10 12:30:00 UTC" "2021-03-10 13:00:00 UTC"
> > head(as.Date(ymd_hms(input$TIMESTAMP)))
> [1] "2021-02-23" "2021-03-10" "2021-03-10" "2021-03-10" "2021-03-10"
> [6] "2021-03-10"
>
> Se vc só precisa da data no formato POSIX para usar com lubridate e
> afins, então a substituição deve ser sem o as.Date e somente depois
> processar esses valores.
>
> HTH
>
> --
> Cesar Rabak
>
>
>
> On Tue, Sep 13, 2022 at 11:09 PM Bruce Kelly por (R-br) <
> r-br@listas.c3sl.ufpr.br> wrote:
>
>> Segue o arquivo =)
>>
>>
>>
>>
>>
>> ------------------------------
>> *De:* R-br <r-br-boun...@listas.c3sl.ufpr.br> em nome de sznelwar--- por
>> (R-br) <r-br@listas.c3sl.ufpr.br>
>> *Enviado:* quarta-feira, 14 de setembro de 2022 01:29
>> *Para:* r-br@listas.c3sl.ufpr.br <r-br@listas.c3sl.ufpr.br>
>> *Cc:* sznel...@uol.com.br <sznel...@uol.com.br>
>> *Assunto:* Re: [R-br] Ajudar com organização de dados horários
>>
>> Não foi enviado o arquivo Rain_1.txt.
>> Boa noite pessoal,
>> Estou com dúvida de como acrescentar a coluna horaria de algumas. Estou
>> usando as seguintes scritp:
>>
>> rm(list=ls())
>> #
>> library(lubridate)
>> library(tidyverse)
>> library(dplyr)
>> library(hrbrthemes)
>> library(GGally)
>> library(ggplot2)
>>
>> # Dados
>> -------------------------------------------------------------------
>> # Chuva
>> input<- read.table('Rain_1.txt', header = T, sep = ',', dec = '.',
>> na.strings = c('NAN', 'NaN', 'Inf', 'NA'))
>> #
>> dec = '.', na.strings = c('NAN', 'NaN', 'Inf'))
>> # Organizar os dados
>> ------------------------------------------------------
>> # converter o TIMESTEP em data
>> input$TIMESTAMP<- as.Date(ymd_hms(input$TIMESTAMP))
>> #tentei
>> input$TIMESTAMP<- as.Date(input$TIMESTAMP))
>> #
>> #
>> #Adicionado os meses e anos nas observações
>> #### a saída é em um caracter converter para numerico
>> input$Year<-format(input$TIMESTAMP, '%Y')
>> input$Month<-format(input$TIMESTAMP, '%m')
>> input$Day<-format(input$TIMESTAMP, '%d')
>> input$Doy<-format(input$TIMESTAMP, '%J')
>> input$Hour.s<-format(input$TIMESTAMP, '%H')
>>
>> 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)
>>
>> estrutura do TIMESTAMP antes de ser convertido em data
>>
>>
>> Obrigado pela ajuda e atenção de todo (@s)
>>
>>
>> _______________________________________________
>> R-br mailing list
>> R-br@listas.c3sl.ufpr.br
>> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
>> código mínimo reproduzível.
>>
> _______________________________________________
> R-br mailing list
> R-br@listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível._______________________________________________
> R-br mailing list
> R-br@listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
mínimo reproduzível.
