法语名称在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)