当我在下面运行时出现错误
month info startTime <- dmy(raw$Start.date)
parse_date_time(dates, orders, quiet = quiet, tz = tz, locale = locale, 中的错误：'nzchar()' 需要一个字符向量
来自上述网页的代码需要一些调整。一个人必须在他的电脑上复制文件“unimelb_training.csv”。该文件位于http://www.kaggle.com/c/unimelb/data
我已经联系了作者。他无法重现错误，因此无法提供帮助。他建议我提供上述网页的链接，而不是复制粘贴整个代码。本书网站是http://appliedpredictivemodeling.com/
请帮助...谢谢
我想在月度汇总我的日期.我想用某个月的最后一个星期六作为那个月的日期.我可以通过以下方式获得一周中星期六的日期:
as.Date(paste(6, week(mdy(mydate)), year(mdy(mydate)), sep="-"), "%u-%W-%Y")
但是几个月有不同的天数,所以我不能这样做:
as.Date(paste(6, month(mdy(mydate)), year(mdy(mydate)), sep="-"), "%U-%m-%Y")
即使我只是想获得一个月的第六天的日期,这甚至都不起作用.
我怎样才能得到一个月的最后一个星期六的日期？所以考虑一下09-15-2014我会得到的日期09-27-2014.
当我在加载data.table包之后加载lubridate包时,我收到以下错误消息:
Loading required package: data.table
data.table 1.9.4 For help type: ?data.table
*** NB: by=.EACHI is now explicit. See README to restore previous behaviour.
Attaching package: ‘data.table’
The following objects are masked from ‘package:lubridate’:
hour, mday, month, quarter, wday, week, yday, year
有谁知道a)导致这个问题的原因是什么？b)如何防止这些物体lubridate被掩盖？
更新:
与上述相关的问题是我正在使用包中的quarter函数,lubridate并且在加载data.table包之后,我不再以相同的方式这样做.
具体来说,当我运行quarter(Date, with_year=TRUE)(其中Date是class = Dates的向量)时,我现在得到以下错误:Error in quarter(Date, with_year = TRUE) : unused argument (with_year = TRUE).
如果我只是,quarter(Date) …
我有一个字符串向量:
str <- c("01-", "01-just researching", "01-1-3 months", "01-immediately", "01-4-6 months", "01-more than 12 months", "01-7-12 months")
如果我使用解析它parse_date_time从lubridate包时,它会得到不同的结果,如果我只解析第6根弦.为什么？
parse_date_time(str, "dmy")
[1] NA NA "2003-01-01 UTC" NA "2006-04-01 UTC"
[6] NA "2012-07-01 UTC"
parse_date_time(str[1:6], "dmy")
[1] NA NA NA NA NA NA
我正在寻找一种方法来找到PREVIOUS日历周的星期一的日期对象.例如,今天是2016年1月15日; 我需要构建一个返回'2016-01-04 UTC'的函数
我有一个如下所示的数据框(df):
Date Arrivals
2014-07 100
2014-08 150
2014-09 200
我知道我可以将yearmon日期转换为每月的第一个日期,如下所示:
df$Date <- as.POSIXct(paste0(as.character(df[,1]),"-01"), format = "%Y-%m-%d")
但是,鉴于我的数据直到月底才可用,我想将其编入索引到结尾而不是开头,我无法弄明白.任何帮助赞赏.
我正在尝试转换以下内容，但在其中一个日期 [1] 上没有成功。“4/2/10”变成“0010-04-02”。
有没有办法纠正这个问题？
谢谢，维维克
data <- data.frame(initialDiagnose = c("4/2/10","14.01.2009", "9/22/2005",
"4/21/2010", "28.01.2010", "09.01.2009", "3/28/2005",
"04.01.2005", "04.01.2005", "Created on 9/17/2010", "03 01 2010"))
mdy <- mdy(data$initialDiagnose)
dmy <- dmy(data$initialDiagnose)
mdy[is.na(mdy)] <- dmy[is.na(mdy)] # some dates are ambiguous, here we give
data$initialDiagnose <- mdy # mdy precedence over dmy
data
initialDiagnose
1 0010-04-02
2 2009-01-14
3 2005-09-22
4 2010-04-21
5 2010-01-28
6 2009-09-01
7 2005-03-28
8 2005-04-01
9 2005-04-01
10 2010-09-17
11 2010-03-01
我有一列日期如下，
> mymonth = c('10/2015','11/2016','12/2016')
> data <- data_frame(mymonth)
> data
# A tibble: 3 × 1
mymonth
<chr>
1 10/2015
2 11/2016
3 12/2016
在这里，很明显，我的月份对应于一年中的某个特定月份。2015 年 10 月、2015 年 11 月和 2015 年 12 月。
我无法正确解析这些日期lubridate。假定月份对应于该月的最后一个工作日。
我怎样才能把这个变量翻译成一个date可以lubridate理解的变量？
谢谢~
我想使用dplyr将一个函数应用于另一列中的值,该函数将名称作为字符串存储在列中.我已经尝试了几个使用mutate_和.dots争论的东西,但我现在被困住了.
library(lubridate)
library(dplyr)
df <- data.frame(date=as.POSIXct('2017/01/01 12:34') + 1:10*123456,
fun=rep(c('minute','hour','day','month','year'),2))
输入:
> df
date fun
1 2017-01-02 22:51:36 minute
2 2017-01-04 09:09:12 hour
3 2017-01-05 19:26:48 day
4 2017-01-07 05:44:24 month
5 2017-01-08 16:02:00 year
6 2017-01-10 02:19:36 minute
7 2017-01-11 12:37:12 hour
8 2017-01-12 22:54:48 day
9 2017-01-14 09:12:24 month
10 2017-01-15 19:30:00 year
输出:
date fun res
1 2017-01-02 22:51:36 minute 51
2 2017-01-04 09:09:12 hour 9
3 2017-01-05 19:26:48 day 5
4 2017-01-07 …