Ajudar com organização de dados horários
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) [cid:66d78bc1-f1a2-49bc-a0c7-85bb36bcd032] estrutura do TIMESTAMP antes de ser convertido em data [cid:b17558fa-d648-4fbd-afb0-24424c5586e8] Obrigado pela ajuda e atenção de todo (@s)
Segue o arquivo =) ________________________________ De: R-br <r-br-bounces@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: sznelwar@uol.com.br <sznelwar@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) [X] estrutura do TIMESTAMP antes de ser convertido em data [X] Obrigado pela ajuda e atenção de todo (@s)
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-bounces@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:* sznelwar@uol.com.br <sznelwar@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.
Muito obrigado Cesar, estava fazendo mais do mesmo...agora a variação (00-23h) não está como imaginei tipo 11, 11.5 ele está repetindo a hora, ver se no lubridate tem algo sobre...,mas uma vez obrigado. [cid:12bc6c4a-aad6-460c-a80d-cc83373bbad5] ________________________________ De: R-br <r-br-bounces@listas.c3sl.ufpr.br> em nome de Cesar Rabak por (R-br) <r-br@listas.c3sl.ufpr.br> Enviado: quarta-feira, 14 de setembro de 2022 15:46 Para: a lista Brasileira oficial de discussão do programa R. <r-br@listas.c3sl.ufpr.br> Cc: Cesar Rabak <cesar.rabak@gmail.com> Assunto: Re: [R-br] Ajudar com organização de dados horários 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<mailto:r-br@listas.c3sl.ufpr.br>> wrote: Segue o arquivo =) ________________________________ De: R-br <r-br-bounces@listas.c3sl.ufpr.br<mailto:r-br-bounces@listas.c3sl.ufpr.br>> em nome de sznelwar--- por (R-br) <r-br@listas.c3sl.ufpr.br<mailto:r-br@listas.c3sl.ufpr.br>> Enviado: quarta-feira, 14 de setembro de 2022 01:29 Para: r-br@listas.c3sl.ufpr.br<mailto:r-br@listas.c3sl.ufpr.br> <r-br@listas.c3sl.ufpr.br<mailto:r-br@listas.c3sl.ufpr.br>> Cc: sznelwar@uol.com.br<mailto:sznelwar@uol.com.br> <sznelwar@uol.com.br<mailto:sznelwar@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) [http:///content_id?msg_id=MzI0MTY&cid=66d78bc1-f1a2-49bc-a0c7-85bb36bcd032&f...] estrutura do TIMESTAMP antes de ser convertido em data [http:///content_id?msg_id=MzI0MTY&cid=b17558fa-d648-4fbd-afb0-24424c5586e8&f...] Obrigado pela ajuda e atenção de todo (@s) _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br<mailto: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.
participantes (3)
-
Bruce Kelly -
Cesar Rabak -
sznelwar＠uol.com.br