函数从R中的日期/时间字符串计算一周的天数

函数从R中的日期/时间字符串计算一周的天数,r,R,下面给出了一个函数:##函数从日期/时间字符串计算一周的天数 getDayOfWeek <- function(vector) { split1 <- strsplit(paste(vector), " ") dateIs <- as.POSIXlt(split1[[1]][1]) print (dateIs$wday) } 我遇到以下错误: as.POSIXlt.character(split1[[1]][1])中出错:字符串为 不是标准的明确格式

下面给出了一个函数:##函数从日期/时间字符串计算一周的天数

getDayOfWeek <- function(vector) {
    split1 <- strsplit(paste(vector), " ")
    dateIs <- as.POSIXlt(split1[[1]][1])
    print (dateIs$wday)
 }
我遇到以下错误:

as.POSIXlt.character(split1[[1]][1])中出错:字符串为 不是标准的明确格式

我还使用了:

taxidata$dayofweek <- weekdays(as.Date.POSIXct(taxidata$tpep_pickup_datetime, format="%m/%d/%y %H:%M"))
head(taxidata, n =3)
taxidata$dayofweek给定例如

x <- "2016-06-12 11:23:25.680Z"
as.POSIXct(x, format = "%Y-%m-%d %H:%M:%S")
# [1] "2016-06-12 11:23:25 CEST"
字符串不是标准的明确格式

意味着,例如,2016-06-12
可解释为6月12日或12月6日。您应该指定格式

给定,例如

x <- "2016-06-12 11:23:25.680Z"
as.POSIXct(x, format = "%Y-%m-%d %H:%M:%S")
# [1] "2016-06-12 11:23:25 CEST"
字符串不是标准的明确格式


意味着,例如,2016-06-12可解释为6月12日或12月6日。您应该指定格式

您可以使用lubridate:
t您可以使用lubridate:
t VendorID tpep_皮卡_日期时间tpep_下车_日期时间2 1/15/2015 19:05 1/15/2015 19:23 1 1/10/2015 20:33 1/10/2015 20:53 1/10/2015 20:33 1/10/2015 20:43 1/10/2015 20:33 1/10/10/2015 20:33 20:35 1/10/2015 20:52以上是我的数据集的一部分,我正在尝试使用>getDayOfWeek您是否尝试过x VendorID tpep_Pick_datetime tpep_Drop Off_datetime 2 1/15/2015 19:05 1/15/2015 19:23 1 1 1/10/2015 20:53 1/10/2015 20:33 1/10/2015 20:43 1/10/2015 20:33 1/10/2015 20:35 1/10/2015 20:33 1/10/2015 20:52以上是我的数据集的一部分,我正在尝试使用>getDayOfWeek你们试过x了吗谢谢各位。我想使用as.Date(2015年1月$tpep_picku_datetime)可以根据我的函数更改我的日期时间格式。谢谢大家。我认为使用as.Date(2015年1月$tpep_picku_datetime)可以根据我的函数更改日期时间格式。
x <- "061216 1123"
as.POSIXct(x, format = "%m%d%y %H%M")
# [1] "2016-06-12 11:23:00 CEST"
format(as.POSIXct(x, format = "%m%d%y %H%M"), "%u")
# [1] "7"