R 一次画三张图

R 一次画三张图,r,plot,ecdf,R,Plot,Ecdf,我有三个经验分布函数,我想把它们绘制成一个图表,作为一个概述。 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

我有三个经验分布函数,我想把它们绘制成一个图表,作为一个概述。 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)

Daten以下是您的出发点:

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
允许绘制多个系列。

欢迎使用堆栈溢出!请仔细阅读,特别是。你在这里的最佳选择是做你的研究,搜索相关的话题,然后尝试一下。在做了更多的研究和搜索之后,发布一篇你的尝试的文章,并明确指出你的困境,这可以帮助你得到更好的答案。不确定这是否有效,因为你没有提供数据样本
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_wale_VP_ECDF,ab=“Bedienzei”,main=“need_data_sample”)
非常感谢您!有没有办法指定图例显示TmK、BmK和WoK而不是系列1、系列2、系列3?@Annsophie yes将参数图例
粘贴(“系列”,1:3)
替换为您的名称向量非常感谢:)@苏菲很高兴这有帮助。请考虑投票并接受我的ANWSER。还有一个问题-抱歉:你知道如何创建一条线而不是这些步骤吗?type=“l”不知何故不起作用:绘图(G_40_TmK_Alle_VP_ECDF,垂直=真,do.points=假,xlab='Bedienzeit in s',ylab='',main='Empirische Verteilungsfunktionen(ECDF)bei 40 grade\n Gesamte Stichprobe',col=3)行(G_40_BmK_Alle_VP ECDF,垂直=真,do.points=假,col=2)行(G_40_WoK_Alle_VP_ECDF,垂直=真,do.points=假,col=4)图例(15,0.8,图例=c(“TmK”,“BmK”,“WoK”),col=c(3,2,4),lty=1)