小编kri*_*ish的帖子

当我在plotly堆积条形图中只添加了一条轨迹时，图例丢失了。

我的数据集如下：

myDF <- structure(list(Year = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = "2017", class = "factor"), 
    Month = c("Mar", "Mar", "Mar", "Apr", "Apr", "Apr"), Date = structure(c(17241, 
    17242, 17242, 17259, 17260, 17261), class = "Date"), Quarter = c("Q1", 
    "Q1", "Q1", "Q2", "Q2", "Q2"), Week = structure(c(2L, 2L, 
    2L, 3L, 3L, 3L), .Label = c("2017-03-05", "2017-03-12", "2017-04-02"
    ), class = "factor"), NPS = structure(c(NA, NA, NA, 3L, 3L, 
    3L), .Label = c("Detractor", "Passive", "Promoter"), class = "factor")), …

我有一个包含日期的列的数据集.我想找到这些date值的周开始日期.

我使用week函数来获取周数lubridate.例如,

week(as.Date("04/20/2017", "%m/%d/%Y"))

#Solution
[1] 16

而不是weeknum,有没有办法获得一周的开始日期？在这种情况下,我期待"04/16/2017"或"2017年4月17日".如果周从周日或周一开始,我不是特别的.我看了这个问题,但没有从中得到很多.