我正在开发一个Taipan图表,该图表将显示不同项目的日期变化。
我完全无法按“报告日期”顺序对数据进行排序,以使线(geom_path()
)以该顺序连接点。
正如您在代码中看到的那样,我试图对其进行排序。但是,什么都没有发生。
您能帮我解决这个问题吗?数据链接.csv:https://drive.google.com/file/d/1MUJn4zPNIkZu1bEq_qNdConVLsDeebzv/view
library(ggplot2)
library(scales)
x <- as.Date(dataset$"Due Date", "%Y-%m-%d")
y <- as.Date(dataset$"Reporting Date", "%Y-%m-%d")
Item <- dataset$"Key Work Activity / Milestone"
ggplot(dataset[order(dataset$"Reporting Date"),], aes (x,y,colour = factor(Item))) +
geom_path(size = 1) +
labs( x = "Forecast Date", y = "Reporting Date") +
theme(
legend.position = "bottom",
panel.background = element_rect(fill=NA, colour = NA),
panel.grid.major = element_line (size = 0.1, linetype = "solid", colour = "black")
)+
geom_point(size=3) +
geom_hline(yintercept = Sys.Date(), linetype = "dashed" , colour ="blue") +
geom_vline(xintercept = Sys.Date(), linetype = "dashed", colour = "blue") +
scale_x_date(date_labels = "%b %Y", date_breaks = "1 month") +
theme(axis.text.x = element_text(angle = 45)) +
scale_y_date(date_labels = "%b %Y", date_breaks = "1 month") +
theme(axis.text.y = element_text(angle = 45))