r - 将三张图合二为一

Question

我有三个经验分布函数，我想将它们绘制成一个图表以进行概述。x 标签应显示“Bedienzeit (s)，我想要不同的颜色和图例。不幸的是，我所尝试的一切都不是很好。

你们中的任何人都可以告诉我该怎么做吗？

非常感谢！！

Daten <- read_excel("Input/Daten_ohne_Anton_Leonie.xlsx")
G_40_TmK_Alle_VP <- Daten$G_40_TmK
G_40_BmK_Alle_VP <- Daten$G_40_BmK
G_40_WoK_Alle_VP <- Daten$G_40_WoK

#ECDF TmK
G_40_TmK_Alle_VP_ECDF <- ecdf(G_40_TmK_Alle_VP)

#ECDF BmK
G_40_BmK_Alle_VP_ECDF <- ecdf(G_40_BmK_Alle_VP)

#ECDF WoK
G_40_WoK_Alle_VP_ECDF <- ecdf(G_40_WoK_Alle_VP)

Answer 1

这是您的起点：

plot(ecdf(1:10), col = 1, xlab = "Bedienzeit (s)")
plot(ecdf(rep(1:2, 5)), add = TRUE, col = 2)
plot(ecdf(rep(1:5, 2)), add = TRUE, col = 3)
legend(8, 0.3, legend = paste("Série", 1:3), col = 1:3, lty = 1)

add = TRUE允许绘制几个系列。