Попытка фильтрации на основе Date в R, получение Error в charToDate (x): строка символов не в стандартном однозначном формате - PullRequest
Новая
       32

Попытка фильтрации на основе Date в R, получение Error в charToDate (x): строка символов не в стандартном однозначном формате

0 голосов
/ 02 июля 2019

Я пытаюсь отфильтровать свой фрейм данных только по датам финансового года (10-01-2018 / 09-31-2019).

Думаю, это будет проще, но я продолжаю получать сообщение об ошибке. 

Error in charToDate(x) : 
  character string is not in a standard unambiguous format

Вот что я пытаюсь:

Dataset: 

toStata <- structure(list(`Advance Identifier` = c("A00010001", "A00010001", 
"A00010001", "A00010001", "A00010001"), `Date Due` = structure(c(1312934400, 
1317772800, 1325721600, 1333584000, 1341446400), class = c("POSIXct", 
"POSIXt"), tzone = "UTC"), Disbursement = c(85740440.38, 0, 0, 
0, 0), `Principal Due` = c(0, 0, 0, 0, 0), `Interest Due` = c(0, 
425817.56, 699557.43, 691953.54, 691953.54), `Capitalized Interest Due` = c(0, 
0, 0, 0, 0), `Repayment Timing` = c("Beginning", "Beginning", 
"Beginning", "Beginning", "Beginning"), `Disbursement Timing` = c("Beginning", 
"Beginning", "Beginning", "Beginning", "Beginning"), `Capitalized Interest` = c(0, 
0, 0, 0, 0), Payment = c(0, 425817.56, 699557.43, 691953.54, 
691953.54), `Cash Grant Amount` = c(0, 0, 0, 0, 0), `Cash Grant Prepayment Effect Principal` = c(0, 
0, 0, 0, 0), `Cash Grant Prepayment Effect Interest` = c(0, 0, 
0, 0, 0), `Cash Grant Prepayment Effect Capitalized Interest` = c(0, 
0, 0, 0, 0), `Interest Rate` = c(0.03237, 0.03237, 0.03237, 0.03237, 
0.03237), `Payment Frequency` = c("Quarterly", "Quarterly", "Quarterly", 
"Quarterly", "Quarterly"), `Modification Principal` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_), `Modification Interest` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_), `Modification Capitalized Interest` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_)), row.names = c(NA, -5L
), class = c("tbl_df", "tbl", "data.frame"))

library(tidyverse)
file <- toStata %>% 
  filter('Date Due' >= as.Date("2010-10-01", format = "%Y-%m-%d") & 'Date Due' <= as.Date("2011-09-31", format = "%Y-%m-%d"))

Может быть, у меня слишком много деталей? Не уверен, независимо от того, я получал ошибку на каждом шагу; любые альтернативы будут полезны!

1 Ответ

2 голосов
/ 02 июля 2019

30 дней с сентябрем, апрелем, июнем и ноябрем ... проверьте свою вторую дату в filter()

Кроме того, вам необходимо использовать обратные кавычки, если у вас есть недопустимые символы (например, пробелы) в именах переменных.

...