```r # 导入数据 library(lubridate) today <- Sys.Date() travel_data <- data.frame( departure = c("A", "B", "C"), arrival = c("D", "E", "F"), duration = c(1, 2, 3), date = as.Date(paste(today, paste0("-", rep(1:length(departure), each = 2)))) ) # 绘制甘特图 require(ggplot2) ggplot(travel_data, aes(x = date, y = duration)) + geom_segment(aes(start = departure, end = arrival, color = "red")) + scale_x_date(breaks = dates(travel_data$date)[1:5], labels = dates(travel_data$date)[1:5]) + theme_minimal() + coord_cartesian(clip = "off") + labs(title = "当前旅游行程", x = "日期", y = "行程持续时间", color = "行程") ```