我相信我如何将字符变为正确的格式（as.posixct）

Question

感谢您的帮助。我是编码的新手，并且在将char施放到as.posixct方面遇到麻烦。 ## MyCode

bike_rides$month <- format(as.Date(bike_rides$date), "%m")
bike_rides$day <- format(as.Date(bike_rides$date), "%d")
bike_rides$year <- format(as.Date(bike_rides$date), "%y")
bike_rides$weekday <- format(as.Date(bike_rides$date), "%a")
bike_rides$start_hour = format(as.POSIXct(bike_rides$started_at), "%H")
bike_rides$end_hour = format(as.POSIXct(bike_rides$ended_at), "%H")
bike_rides$season <- ifelse (bike_rides$month %in% c('06','07','08'), "Summer",
                         ifelse (bike_rides$month %in% c('09','10','11'), "Fall",
                                 ifelse (bike_rides$month %in% c('12','01','02'), "Winter",
                                         ifelse (bike_rides$month %in% c('03','04','05'), "Spring", NA))))

错误来自Kaggle

Error in as.POSIXlt.character(x, tz, ...): character string is not in a standard unambiguous format
Traceback:
format(as.POSIXct(bike_rides$started_at), "%H")
as.POSIXct(bike_rides$started_at)
as.POSIXct.default(bike_rides$started_at)
as.POSIXct(as.POSIXlt(x, tz, ...), tz, ...)
as.POSIXlt(x, tz, ...)
as.POSIXlt.character(x, tz, ...)
stop("character string is not in a standard unambiguous format")

## DP的DF，

    bike_rides <-
  structure(
    list(
      ride_id = c("A847FADBBC638E45", "5405B80E996FF60D",
                  "5DD24A79A4E006F4"),
      rideable_type = c("docked_bike", "docked_bike",
                        "docked_bike"),
      started_at = structure(
        c(1587923114, 1587143334,
          1585763653),
        class = c("POSIXct", "POSIXt"),
        tzone = "UTC"
      ),
      ended_at = structure(
        c(1587924723, 1587143823, 1585764516),
        class = c("POSIXct", "POSIXt"),
        tzone = "UTC"
      ),
      start_station_name = c("Eckhart Park",
                             "Drake Ave & Fullerton Ave", "McClurg Ct & Erie St"),
      start_station_id = c("86",
                           "503", "142"),
      end_station_name = c(
        "Lincoln Ave & Diversey Pkwy",
        "Kosciuszko Park",
        "Indiana Ave & Roosevelt Rd"
      ),
      end_station_id = c("152",
                         "499", "255"),
      start_lat = c(41.8964, 41.9244, 41.8945),
      start_lng = c(-87.661,-87.7154,-87.6179),
      end_lat = c(41.9322,
                  41.9306, 41.8679),
      end_lng = c(-87.6586,-87.7238,-87.623),
      member_casual = c("member", "member", "member"),
      date = structure(c(18378,
                         18369, 18353), class = "Date"),
      month = c("04", "04", "04"),
      day = c("26", "17", "01"),
      year = c("20", "20", "20"),
      weekday = c("Sun", "Fri", "Wed"),
      start_hour = c("17", "17",
                     "17"),
      end_hour = c("18", "17", "18"),
      season = c("Spring",
                 "Spring", "Spring")
    ),
    row.names = c(NA, 3L),
    class = "data.frame"
  )

我一直在各处寻找DF，但以某种方式在下面的代码堆中；

    bike_rides$start_hour = format(as.POSIXct(bike_rides$started_at), "%H")
bike_rides$end_hour = format(as.POSIXct(bike_rides$ended_at), "%H")

不起作用，我无法找到更好的方法或语法来使该参数运行。

Answer 1

library(lubridate) 

df %>%
  mutate(
    month = month(date),
    day = day(date),
    year = year(date),
    weekday = weekdays(date),
    season = quarter(date),
    start_hour = hour(started_at),
    end_hour = hour(ended_at)) %>% 
  select(ride_id, date, month, day, year, weekday, season, start_hour, end_hour)
    
# A tibble: 3 x 9
  ride_id          date       month   day  year weekday   season start_hour end_hour
  <chr>            <date>     <dbl> <int> <dbl> <chr>      <int>      <int>    <int>
1 A847FADBBC638E45 2020-04-26     4    26  2020 Sunday         2         17       18
2 5405B80E996FF60D 2020-04-17     4    17  2020 Friday         2         17       17
3 5DD24A79A4E006F4 2020-04-01     4     1  2020 Wednesday      2         17       18