[R-br] Ajudar com organização de dados horários

[Cesar Rabak]

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 em listas.c3sl.ufpr.br> wrote:

> Segue o arquivo =)
>
>
>
> ------------------------------
> *De:* R-br <r-br-bounces em listas.c3sl.ufpr.br> em nome de sznelwar--- por
> (R-br) <r-br em listas.c3sl.ufpr.br>
> *Enviado:* quarta-feira, 14 de setembro de 2022 01:29
> *Para:* r-br em listas.c3sl.ufpr.br <r-br em listas.c3sl.ufpr.br>
> *Cc:* sznelwar em uol.com.br <sznelwar em 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 em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20220914/3a41f098/attachment.htm>