Question

试图找到一个可以约会并告诉我哪一天的功能，

e.g。如果我输入今天的日期，即＆＃34; 12/29/2014＆＃34;，它会说＆＃34;它是该月的第5个星期一＆＃34; （但不必是字符串输出，它可以是5,1作为输出代表第5个星期一）。它与timeDate库中的timeNthNdayInMonth相反，它告诉你nth nday给出的日期。

Answer 1

这是一个函数f()：

f <- function(date) 
  paste(ceiling(as.numeric(format(date, "%d")) / 7), format(date, "%w"), sep = ",")
f(Sys.Date())