r - 在 lubridate 中使用 wday 的法语名称

Question

带有选项 label = TRUE 的 lubridate 包中的 wday() 函数返回星期几的英文名称。我想知道是否可以用另一种语言获得星期几的名称。有什么选择吗？

Answer 1

不是没有编写自己的方法。

一周中的几天在 lubridate:::wday.numeric 中用英语硬编码

labels <- c("Sunday", "Monday", "Tuesday", "Wednesday", 
            "Thursday", "Friday", "Saturday")

您可以调整我的回答 here 中的代码并用您选择的语言的名称替换英文名称。

# assuming x is your Date
c("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", 
   "Friday", "Saturday")[as.POSIXlt(x)$wday + 1]

编辑:

这是一个更接近 lubridate 的版本

labels <- c("dimanche", "lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi")
ordered(as.POSIXlt(x)$wday + 1, levels=1:7, labels=labels)