在R图表中显示数据帧中给定Y的最大X值

我试图在一个线性图表中显示一个Y（项目）对应的最大日期，但它只显示该数据帧的最高日期，而不是每个项目的顺序

数据帧示例：

图表：

代码：

---

output$grafica5您应该在绘图之前进行数据操作（
as.date
并过滤最大值）

库（dplyr）
图书馆（GG2）
#创建data.frame，其中包含具有到期日期的重复项目
df%
组别（项目）%>%
筛选器（日期==最大（日期））%>%
解组（）
ggplot（df，aes（x=日期，y=项目，组=1））+
geom_线（）+
几何点（）
如果您包含一个简单的示例输入和所需的输出，可以用来测试和验证可能的解决方案，那么就更容易为您提供帮助。（数据图片没有帮助，因为我们无法复制粘贴这些值来测试代码）
 output$grafica5 <-renderPlotly({
   p <- ggplot(data(),aes(x=max(as.Date(data()[,names(data())[3]], format = "%d/%m/%Y")), y=as.factor(data()[,names(data())[2]]), group=1))+
   geom_line()+
     geom_point()+
     theme_classic()+
     theme(axis.text.x=element_text(angle=45, hjust=1))+scale_color_viridis(discrete = TRUE)+
     labs(
       y="Proyectos", 
       x="Fecha")})

library(dplyr)
library(ggplot2)

# creation of a data.frame with repeated projects with due dates
df <- data.frame(
  Projects = paste0("projects", sample(1:9, 20, T)),
  Duedate = paste0(sample(10:30, 20, T), "/01/2020" )
)

# creation of a variable `dates` and filtering of the max date per project
df <- df %>%
  mutate(dates = as.Date(Duedate, format = "%d/%m/%Y")) %>%
  group_by(Projects) %>%
  filter(dates == max(dates)) %>%
  ungroup()

ggplot(df, aes(x = dates, y = Projects, group = 1)) +
  geom_line() +
  geom_point()