这里有两个步骤：

• 解析数据。你的例子不是完全可复制的，是文件中的数据，还是文本或因子变量中的变量？让我们假设后者，那么如果你的data.frame被称为X，你可以做

X$newdate <- strptime(as.character(X$date), "%d/%m/%Y")

现在newdate列的类型应该是Date。

• 格式化数据。这是调用format()或strftime()的问题：

format(X$newdate, "%Y-%m-%d")

一个更完整的例子：

R> nzd <- data.frame(date=c("31/08/2011", "31/07/2011", "30/06/2011"), 
+                    mid=c(0.8378,0.8457,0.8147))
R> nzd
        date    mid
1 31/08/2011 0.8378
2 31/07/2011 0.8457
3 30/06/2011 0.8147
R> nzd$newdate <- strptime(as.character(nzd$date), "%d/%m/%Y")
R> nzd$txtdate <- format(nzd$newdate, "%Y-%m-%d")
R> nzd
        date    mid    newdate    txtdate
1 31/08/2011 0.8378 2011-08-31 2011-08-31
2 31/07/2011 0.8457 2011-07-31 2011-07-31
3 30/06/2011 0.8147 2011-06-30 2011-06-30
R>

第三列和第四列之间的区别是类型：newdate属于Date类，而txtdate是字符类。

nzd$date <- format(as.Date(nzd$date), "%Y/%m/%d")

在上面的代码中，有两个错误。首先，当你在as.Date中阅读nzd$date时，你没有提到你以什么格式输入date。因此，它尝试默认设置格式来读取它。如果您看到help文档，您将看到?as.Date
格式
字符串。如果未指定，它将在第一个非NA元素上尝试“%Y-%m-%d”，然后尝试“%Y/%m/%d”，如果两者都不起作用，则给予错误。否则，将通过strptime进行处理
第二个错误是：即使你想以%Y-%m-%d读取它，在format中你写了"%Y/%m/%d"。
现在，正确的做法是：

> nzd <- data.frame(date=c("31/08/2011", "31/07/2011", "30/06/2011"), 
+                                       mid=c(0.8378,0.8457,0.8147))
> nzd
        date    mid
1 31/08/2011 0.8378
2 31/07/2011 0.8457
3 30/06/2011 0.8147
> nzd$date <- format(as.Date(nzd$date, format = "%d/%m/%Y"), "%Y-%m-%d")
> head(nzd)
        date    mid
1 2011-08-31 0.8378
2 2011-07-31 0.8457
3 2011-06-30 0.8147

您也可以使用lubridate包中的parse_date_time函数：

library(lubridate)
day<-"31/08/2011"
as.Date(parse_date_time(day,"dmy"))
[1] "2011-08-31"

parse_date_time返回一个POSIXct对象，所以我们使用as.Date来获取一个date对象。parse_date_time的第一个参数指定日期向量，第二个参数指定格式出现的顺序。orders参数使parse_date_time非常灵活。

通过textConnection阅读数据后，以下内容似乎可以正常工作：

dat <- read.table(textConnection(txt), header = TRUE)
dat$date <- strptime(dat$date, format= "%d/%m/%Y")
format(dat$date, format="%Y-%m-%d")

> format(dat$date, format="%Y-%m-%d")
 [1] "2011-08-31" "2011-07-31" "2011-06-30" "2011-05-31" "2011-04-30" "2011-03-31"
 [7] "2011-02-28" "2011-01-31" "2010-12-31" "2010-11-30" "2010-10-31" "2010-09-30"
[13] "2010-08-31" "2010-07-31" "2010-06-30" "2010-05-31" "2010-04-30" "2010-03-31"
[19] "2010-02-28" "2010-01-31" "2009-12-31" "2009-11-30" "2009-10-31"

> str(dat)
'data.frame':   23 obs. of  2 variables:
 $ date    : POSIXlt, format: "2011-08-31" "2011-07-31" "2011-06-30" ...
 $ midpoint: num  0.838 0.846 0.815 0.797 0.788 ...

这真的很容易使用包lubridate。你所要做的就是告诉R你的日期已经是什么格式了。然后将其转换为标准格式
nzd$date <- dmy(nzd$date)
就是这样。

使用一行将日期转换为首选格式：

nzd$date <- format(as.Date(nzd$date, format="%d/%m/%Y"),"%Y/%m/%d")

我相信

nzd$date <- as.Date(nzd$date, format = "%d/%m/%Y")

就足够了。

如果您的输入具有一致的日期格式，您可以尝试一个简单的解决方法：

sapply(date, function(x){paste(strsplit(x, '/')[[1]][c(3,2,1)], collapse = '/')})