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.

Responder a