R 添加新列的天数

比如说，我有以下

数据。frame

：

require(lubridate)
Dates<-seq(as.Date('2017/01/01'), by = 'day', length.out = 365)
xYMW <- data.frame(date=(Dates), month=month(Dates), week=week(Dates))
xYMW[1:15,]

         date month week
1  2017-01-01     1    1
2  2017-01-02     1    1
3  2017-01-03     1    1
4  2017-01-04     1    1
5  2017-01-05     1    1
6  2017-01-06     1    1
7  2017-01-07     1    1
8  2017-01-08     1    2
9  2017-01-09     1    2
10 2017-01-10     1    2
11 2017-01-11     1    2
12 2017-01-12     1    2
13 2017-01-13     1    2
14 2017-01-14     1    2
15 2017-01-15     1    3

以下工作：

library(dplyr)
xYMW %>% dplyr::mutate(day = lubridate::wday(date))

如果输入选项

label=TRUE

，还可以将其转换为周一、周二的缩写或非缩写标签

试试这个：

xYMW<-xYMW %>% group_by(week) %>% mutate(day=row_number())

xYMW%按（周）分组%>%变异（天=行数（）

如果您只需要1:7，没有任何限制，您可以执行

rep（1:7，nrow（xYMW））

xYMW<-xYMW %>% group_by(week) %>% mutate(day=row_number())