Formatar no R uma tabela de datas no Excel

Bom dia,

Tenho um exemplo de tabela no excel

data

E como podem ver, a formatação fica toda embaralhada. É uma coluna que é oriundo do banco de dados do Arcgis Online, do qual criamos um formulário e extraímos o dado com vários colunas após serem coletados. A tendência, é termos um grande volume de Datas, pois cada uma indica o dia que foi coletado e faremos isto por dois anos… Assim, a minha dificuldade é formatar a data uma a uma e a ideia é que eu possa formatar a mesma de uma vez somente.

Planilha

Há possibilidade, que eu pegue esta coluna e faça a formatação ficar: ddd/mmm/aaa utilizando o R? E assim, exportar o dado para xls?

Muito obrigado.

Pedro, dá pra fazer tudo no R :wink:

O código abaixo não é o mais bonito do mundo, mas garante que as datas vão ser convertidas para o formato certo sem retornar nenhum alerta para o usuário. No final, eu salvo o resultado em um Excel de volta.

library(magrittr)

tabela <- "~/Downloads/teste_Data.xlsx" %>%
  readxl::read_xlsx() %>%
  dplyr::mutate(
    Data1 = dplyr::if_else(stringr::str_detect(Data, "/"), Data, NA_character_),
    Data2 = dplyr::if_else(stringr::str_detect(Data, "/"), NA_character_, Data),
    Data1 = lubridate::mdy(Data1),
    Data2 = lubridate::as_date(as.numeric(Data2), origin = "1899-12-30"),
    Data  = dplyr::if_else(!is.na(Data1), Data1, Data2),
    Data  = format.Date(Data, "%d/%m/%Y")
  ) %>%
  dplyr::select(Data)

tabela
#> # A tibble: 46 x 1
#>    Data      
#>    <chr>     
#>  1 01/05/2020
#>  2 28/06/1978
#>  3 06/03/1968
#>  4 01/05/1966
#>  5 02/02/1978
#>  6 25/08/2020
#>  7 24/08/2020
#>  8 20/08/2020
#>  9 26/08/2020
#> 10 30/01/1948
#> # … with 36 more rows

writexl::write_xlsx(tabela, "~/Downloads/teste_Data2.xlsx")

Created on 2020-09-15 by the reprex package (v0.3.0)

2 curtidas

@clente

Muito obrigado! Deu super pra compreender o que foi feito. Hahahaha

Ajudou de uma forma maravilhosa, consegui reproduzir certinho aqui. Muito obrigado <3

2 curtidas