法语名称在lubridate中使用wday

Question

lubridate软件包中带有选项标签= TRUE的wday（）函数以英语返回星期几的名称。我想知道是否可以用另一种语言获取星期几的名称。有什么选择吗？

Answer 1

没有编写自己的方法就不行。

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

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

您可以调整我的答案中的代码，并将英文名称替换为您选择的语言的名称。

# 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)