您可以在base中创建自己的函数来完成此操作。例如，

start.of.week <- function(date)
  date - (setNames(c(6,0:5),0:6) [strftime(date,'%w')])

end.of.week <- function(date)
  date + (setNames(c(0,6:1),0:6) [strftime(date,'%w')])

start.of.week(as.Date(c('2014-01-05','2014-10-02','2014-09-22','2014-09-27')))
# "2013-12-30" "2014-09-29" "2014-09-22" "2014-09-22"
end.of.week(as.Date(c('2014-01-05','2014-10-02','2014-09-22','2014-09-27')))
# "2014-01-05" "2014-10-05" "2014-09-28" "2014-09-28"

稍微晚了一点，但只是说现在lubridate中有一个选项，默认为星期日，但可以设置为其他值。

# set Monday to be the start of the week globally
options("lubridate.week.start" = 1)

# use lubridate functions
wday(...)

正如Wave所评论的那样，你可以只使用+1来改变日期，你也可以像以前那样做，而不需要缓慢的for循环。

date <- as.Date("01/01/2014","%d/%m/%Y")

yday(date) <-yday(date) + 0:364
dates <- data.frame(date = date,
                    cal_day_in_year_num = yday(date),
                    cal_week_id = paste(year(date),sprintf("%02d",week(date)),sep=""),
                    cal_week_start_date = NA,
                    cal_week_end_date = NA
                    )

# find the minimum date in the time series
min_date <- min(dates$date)
# find the previous Monday of the minimum date
for(i in 1:7){
  if(wday(min_date-i, label=TRUE)=="Mon"){
    start_date <- min_date-i
  }
}

# get the number of days between the minimum date and all days
diff_days <- as.numeric(difftime(dates$date,start_date, units="days"))
# Remove the excess days from each date
dates$cal_week_start_date <- dates$date-diff_days%%7
# Fix up the end of the week based on the start of the week
dates$cal_week_end_date <- dates$cal_week_start_date+7