如果日期已结束，如何将编号的所有行都重置为1
如果日期已结束，如何将编号的所有行都重置为1
提问于 2019-08-30 10:27:02
如何在日期结束时将编号行重置为1
```r代码<- c('01BL'，'01BP'，'02BP'，'03BP'，'04BP')
编号<- c(4,6,10,34,3)
dfdate <- format.Date(Sys.Date()，"%m")
df <- data.frame(代码=代码，编号=编号，日期= dfdate)
df$编号<- ifelse(df$Date != format.Date(Sys.Date()，"%m")，1，df$编号)
df
```javascript这是我得到的输出：
Code Numbering Date
1 01BL 4 08
2 01BP 6 08
3 02BP 10 08
4 03BP 34 08
5 04BP 3 08如果在月份结束后，date列中的数字发生了变化，这就是我想要的输出：
Code Numbering Date
1 01BL 1 09
2 01BP 1 09
3 02BP 1 09
4 03BP 1 09
5 04BP 1 09回答 1
Stack Overflow用户
发布于 2019-08-30 11:01:28
如果我理解正确的话，如果Date小于您机器的日期，您希望Numbering为1-
df$Numbering <- ifelse(df$Date < Sys.Date(), 1, df$Numbering)对于更新后的问题-
df$Numbering <- with(df,
ifelse(format.Date(Date,"%m") != format.Date(Sys.Date(),"%m"), 1, Numbering)
)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/57719765
复制相关文章
相似问题
腾讯云开发者
