将三个图合二为一[重复]答案

【问题标题】：Plot three graphs in one [duplicate]将三个图合二为一[重复]
【发布时间】：2023-03-27 10:54:01
【问题描述】：

我有三个经验分布函数，我想将它们绘制成一个图表以进行概述。 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)

【问题讨论】：

欢迎来到 Stack Overflow！请使用tour 并通读help center，尤其是how to ask。你最好的选择是做你的研究，搜索关于 SO 的相关主题，然后试一试。在进行更多研究和搜索后，发布您的尝试Minimal, Complete, and Verifiable example，并具体说明您遇到的问题，这可以帮助您获得更好的答案。
不确定这是否可行，因为您没有提供数据样本。 par(mfrow=c(3,1)) plot(G_40_TmK_Alle_VP_ECDF, xlab="Bedienzei", main="need_data_sample") plot(G_40_BmK_Alle_VP_ECDF, xlab="Bedienzei", main="need_data_sample") plot(G_40_WoK_Alle_VP_ECDF, xlab="Bedienzei", main="need_data_sample")

标签： r plot ecdf

【解决方案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 允许绘制多个系列。

【讨论】：

非常感谢！有没有办法指定图例是 TmK、BmK 和 WoK 而不是系列 1、系列 2、系列 3？
@Annsophie yes 用你的名字向量替换参数图例paste("Serie", 1:3)
非常感谢！ :)
@Annsophie 很高兴它有帮助。请考虑投票并接受我的回答。
还有一个问题 - 抱歉 :) 你知道如何创建一条线而不是这些步骤吗？ type = "l" 不起作用：plot(G_40_TmK_Alle_VP_ECDF,verticals=TRUE, do.points=FALSE, xlab ='Bedienzeit in s', ylab = '', main = 'Empirische Verteilungsfunktionen (ECDF) bei 40 Grad\n Gesamte Stichprobe ', col = 3) 线(G_40_BmK_Alle_VP_ECDF,verticals=TRUE, do.points=FALSE, col = 2) 线(G_40_WoK_Alle_VP_ECDF,verticals=TRUE, do.points=FALSE, col = 4) 图例(15, 0.8, 图例= c("TmK", "BmK", "WoK"), col = c(3,2,4), lty = 1)