Преобразование даты в год.десятичная форма в R

у меня есть столбец ts, который сохраняет годы в десятичном формате ie

1988.0
1988.25
1988.5
1988.75

и так далее. Мне нужно экспортировать его в .csv-файл с датой в .

Как мне это сделать?

2 ответов


на lubridate пакет имеет функцию, date_decimal что можно использовать для этого.

x <- c(1988.0, 1988.25, 1988.5, 1988.75)
library(lubridate)
(f <- format(date_decimal(x), "%d-%m-%Y"))
# [1] "01-01-1988" "01-04-1988" "02-07-1988" "01-10-1988"

тогда вы можете написать его в csv с

write.csv(f, "afilename.csv")   ## or write.table()

вы, вероятно, захотите сначала проверить вывод и настроить некоторые аргументы в любом формате, который вы хотите.


бороться с теми, год дроби,

> date_string <- '1988.99'
> date_num <- as.numeric(date_string)
> year <- floor(date_num)
> year_beginning <- as.POSIXct(paste0(year, '-01-01'))
> year_end <- as.POSIXct(paste0(year+1, '-01-01'))
> date <- year_beginning + (date_num %% 1) * (year_end - year_beginning)
> format(date, format='%Y-%m-%d')
[1] "1988-12-28"

для написания csv, попробуйте help(write.table)