значение даты в формате даты в R - PullRequest
Новая
       15

значение даты в формате даты в R

0 голосов
/ 05 мая 2018

Я пытаюсь изменить формат даты, когда я импортирую ее из файла CSV. класс для столбца даты является фактором, но когда я хочу использовать функцию «as.Date», я получаю сообщение об ошибке из-за неправильного формата строки. 

> New_His_data$BirthDate[1]
[1] 36473
1378 Levels: 13-1-1990 13-1-1991 13-10-1959 13-10-1973 13-10-1979 13-10-1988 13-10-1989 13-10-1994 13-11-1963 13-11-1970 ... 36473
> as.Date(New_His_data$BirthDate[1],origin = "1899-12-30")
Error in charToDate(x) : 
  character string is not in a standard unambiguous format
> as.Date(strptime(New_His_data$BirthDate[1],"%d-%m-%Y"),origin ="1899-12-30")
[1] NA

когда я использую значение как число, оно работает правильно 

> as.Date(36473,origin = "1899-12-30")
[1] "1999-11-09"

Я попытался найти сообщение по этой проблеме, но ничего не смог найти, пожалуйста, помогите мне с решением или ссылкой для решения. спасибо

Ответы [ 2 ]

0 голосов
/ 05 мая 2018

Я мог бы решить эту проблему с помощью двух преобразований типа данных из даты в строку в число, а затем я использовал функцию «as.Date» для изменения формата. 

> New_His_data$BirthDate[1]
[1] 36473
1378 Levels: 13-1-1990 13-1-1991 13-10-1959 13-10-1973 13-10-1979 13-10-1988 13-10-1989 13-10-1994 13-11-1963 13-11-1970 ... 36473
> as.Date(New_His_data$BirthDate[1],origin = "1899-12-30")
Error in charToDate(x) : 
  character string is not in a standard unambiguous format
> as.Date(strptime(New_His_data$BirthDate[1],"%d-%m-%Y"),origin ="1899-12-30")
[1] NA
> as.Date(as.numeric(as.character(New_His_data$BirthDate[1])),origin = "1899-12-30")
[1] "1999-11-09"
0 голосов
/ 05 мая 2018

Ваши данные поступили как переменная factor, вероятно, через read.csv() или связаны, когда не установлены StringsAsFactors=FALSE.

Ничего такого, что преобразование в персонажа не может исправить. Пример макета: 

R> v <- factor(c("13-1-1990", "13-1-1991", "13-10-1959")) # your first three
R> v
[1] 13-1-1990  13-1-1991  13-10-1959
Levels: 13-1-1990 13-1-1991 13-10-1959
R> 
R> d <- as.Date(as.character(v), format="%d-%m-%Y")
R> d        ## key here were the as.character() and the correct format
[1] "1990-01-13" "1991-01-13" "1959-10-13"
R> 
R> class(d) ## these are now Date objects
[1] "Date"
R> 
R> d + 1    ## that we can compute with
[1] "1990-01-14" "1991-01-14" "1959-10-14"
R>
...