R 将非常难看的日期转换为日期类，然后四舍五入到月份，最后创建一个绘图

我想画这个图：

从。数据的开头：

x <- read.csv2(text=
"strategy;success;date
1;1;02.09.2007
1;0;4/19/2012
1;1;2/15/2013
1;0;3/17/2004
1;1;12.02.2004
2;1;7/28/2014
1;1;9/29/2003
1;1;04.02.2004
1;1;09.02.2004
1;1;12/21/2004
1;1;6/23/2005
1;1;7/26/2005
1;1;8/24/2005
1;1;12.08.2005
1;1;01.10.2006
1;1;1/27/2006
1;1;07.10.2006
1;1;8/31/2006
1;1;3/20/2007
1;1;4/26/2007
1;1;6/27/2007
1;1;6/26/2007
1;1;7/16/2007
1;1;08.07.2007
1;1;2/26/2008
1;1;03.05.2008
1;1;04.10.2008
1;1;
1;1;09.01.2008
1;1;10/15/2008
1;1;10/23/2008
1;1;12/31/2008
1;1;1/22/2009")

然后我想把这些难看的日期改成不同的日期，但我不知道如何适应这些日期？我的最佳尝试失败了：

for (i in 1:nrow(x_selected)){
    x_selected[i,3] <- as.Date(x_selected[i,3], "%d/%m/%Y")
}

我的下一步是将单个日期分组为季度：

for (i in 1:nrow(x_selected)) {
   x_selected[i,3] <- round_date(x_selected[i, 3], unit = c("quarter"))
}

我再也找不到了-

这是一个开始：

 x2 <- subset(x,strategy==1)

---

没有人特别倾向于从粗略的链接下载数据。相反，将相关数据子集编辑到问题中，最好使用dput。要分析日期，请使用lubridate:：mdyx$date。对于季度，用lubridate:：quarter…，用_year=TRUE或更有用的zoo:：as.yearqtr.来代替gsub去打高尔夫球和做chartr.，/，date包装。但我认为gsub内部也会像.character一样。

for (i in 1:nrow(x_selected)) {
   x_selected[i,3] <- round_date(x_selected[i, 3], unit = c("quarter"))
}

 x2 <- subset(x,strategy==1)

 x2 <- transform(x2,date=gsub("\\.","/",as.character(date)))

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

 x2$q <- zoo::as.yearqtr(x2$date2)

 with(x2,tapply(success,list(q),mean))