R 使用“读取excel”功能导入excel文件：未正确导入日期列

我使用以下代码在Rstudio中导入excel文件：

(nms <- names(read_excel("myexcelfile.xlsx")))
(ct <- ifelse(grepl("^Date", nms), "text", "numeric"))
read_excel("myexcelfile.xlsx", col_types = ct)[-c(6:495),-c(3:71)]

第一列应该是日期（巴西格式：日/月/年）

如何修复此问题？

尝试以下方法：

(nms <- names(read_excel("myexcelfile.xlsx")))
(ct <- ifelse(grepl("^Date", nms), "date", "numeric"))
df <- read_excel("myexcelfile.xlsx", col_types = ct)[-c(6:495),-c(3:71)]

df$Date <- format(as.Date(as.character(df$Date)), "%d-%m-%Y")

---

（nms它不起作用：我有一条消息：
charToDate（x）中的错误：字符串de caracteres não nãum formato padrão ambíguo
我任意设置：
as.Date（df$Date，origin=“1899-12-30”）
而且有效。为什么？这是Excel使用的源代码。但是我不确定上面的方法为什么不能立即起作用，也许这与不同的时区有关。
(nms <- names(read_excel("myexcelfile.xlsx")))
(ct <- ifelse(grepl("^Date", nms), "date", "numeric"))
df <- read_excel("myexcelfile.xlsx", col_types = ct)[-c(6:495),-c(3:71)]

df$Date <- format(as.Date(as.character(df$Date)), "%d-%m-%Y")