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.