Skip to content

Commit 06a358f

Browse files
jjordanocjjordanoc
committed
<feat> finished comparison plot
1 parent 42f9f44 commit 06a358f

8 files changed

+212
-46
lines changed

‎analisis/.RData

483 Bytes
Binary file not shown.

‎analisis/.Rhistory

Lines changed: 152 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -233,3 +233,155 @@ ggplot(DF) + geom_point(aes(x=DF$n, y=DF$`duration(ns)`), color="darkred") + sca
233233
ggplot(DF) + geom_point(aes(x=DF$n, y=DF$`duration(ns)`), color="darkred", fill="blue") + scale_x_log10() + scale_y_log10() + labs(x="log(n)", y="log(Tiempo de ejecución)", title="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)")
234234
ggplot(DF) + geom_point(aes(x=DF$n, y=DF$`duration(ns)`), color="darkred") + scale_x_log10() + scale_y_log10() + labs(x="log(n)", y="log(Tiempo de ejecución)", title="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)")
235235
ggplot(DF) + geom_point(aes(x=DF$n, y=DF$`duration(ns)`)) + scale_x_log10() + scale_y_log10() + labs(x="log(n)", y="log(Tiempo de ejecución)", title="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)")
236+
list.files(path=".", pattern="*.csv")
237+
list.files(path="", pattern="*.csv")
238+
list.files(path="/", pattern="*.csv")
239+
list.files(path=".", pattern="*.csv")
240+
list.files(path="./", pattern="*.csv")
241+
list.files(path="", pattern="*.csv")
242+
list.files(path="counting_sort.csv", pattern="*.csv")
243+
list.files(path="counting_sort.csv")
244+
list.files(path="counting_sort.csv")
245+
list.files(pattern="*.csv")
246+
list.files(path=".", pattern="*.csv", all.files=TRUE)
247+
list.files(path=".", pattern="*.csv", all.files=TRUE, full.names=TRUE)
248+
list.files(path=".", pattern=".csv", all.files=TRUE, full.names=TRUE)
249+
list.files(path=".", pattern=".csv", all.files=TRUE)
250+
files <- list.files(path=".", pattern=".csv", all.files=TRUE)
251+
DF <- read_csv(files)
252+
library(readr)
253+
library(ggplot2)
254+
files <- list.files(path=".", pattern=".csv", all.files=TRUE)
255+
DF <- read_csv(files)
256+
DF
257+
C <- read_csv("counting_sort.csv")
258+
I <- read_csv("intro_sort.csv")
259+
S <- read_csv("selection_sort.csv")
260+
ggplot(C) + geom_point(aes(x=DF$n, y=DF$`duration(ns)`)) + scale_x_log10() + scale_y_log10() + labs(x="log(n)", y="log(Tiempo de ejecución)", title="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)")
261+
plot(C$n, C$`duration(ns)`)
262+
plot(C$n, C$`duration(ns)`)
263+
plot(S$n, S$`duration(ns)`)
264+
plot(C$n, C$`duration(ns)`)
265+
plot(S$n, S$`duration(ns)`, add=T)
266+
plot(C$n, C$`duration(ns)`)
267+
plot(S$n, S$`duration(ns)`, add=TRUE)
268+
plot(C$n, C$`duration(ns)`)
269+
points(S$n, S$`duration(ns)`)
270+
plot(S$n, C$`duration(ns)`, col="red")
271+
points(C$n, S$`duration(ns)`, col="green")
272+
points(I$n, I$`duration(ns)`, col="blue")
273+
plot(S$n, C$`duration(ns)`, col="red", log = "xy")
274+
points(C$n, S$`duration(ns)`, col="green", log="xy")
275+
points(I$n, I$`duration(ns)`, col="blue", log="xy")
276+
plot(S$n, C$`duration(ns)`, col="red", log = "xy")
277+
points(C$n, S$`duration(ns)`, col="green")
278+
points(I$n, I$`duration(ns)`, col="blue")
279+
plot(S$n, S$`duration(ns)`, col="red", log = "xy")
280+
points(C$n, C$`duration(ns)`, col="green")
281+
points(I$n, I$`duration(ns)`, col="blue")
282+
plot(S$n, S$`duration(ns)`, col="red", log = "xy")
283+
points(C$n, C$`duration(ns)`, col="green")
284+
points(I$n, I$`duration(ns)`, col="blue")
285+
plot(S$n, S$`duration(ns)`, col="red", log = "xy")
286+
points(C$n, C$`duration(ns)`, col="green", log="xy")
287+
points(I$n, I$`duration(ns)`, col="blue")
288+
plot(S$n, S$`duration(ns)`, col="red", log = "xy")
289+
points(C$n, C$`duration(ns)`, col="green")
290+
points(I$n, I$`duration(ns)`, col="blue")
291+
plot(log(S$n), log(S$`duration(ns)`), col="red")
292+
points(C$n, C$`duration(ns)`, col="green")
293+
points(I$n, I$`duration(ns)`, col="blue")
294+
plot(log(S$n), log(S$`duration(ns)`), col="red")
295+
points(C$n, C$`duration(ns)`, col="green")
296+
points(I$n, I$`duration(ns)`, col="blue")
297+
plot(log(S$n), log(S$`duration(ns)`), col="red")
298+
points(log(C$n), log(C$`duration(ns)`), col="green")
299+
points(log(I$n), log(I$`duration(ns)`), col="blue")
300+
plot(log(S$n), log(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución")
301+
points(log(C$n), log(C$`duration(ns)`), col="green")
302+
points(log(I$n), log(I$`duration(ns)`), col="blue")
303+
plot(log(S$n), log(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20)
304+
points(log(C$n), log(C$`duration(ns)`), col="green")
305+
points(log(I$n), log(I$`duration(ns)`), col="blue")
306+
plot(log(S$n), log(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20)
307+
points(log(C$n), log(C$`duration(ns)`), col="green", pch=20)
308+
points(log(I$n), log(I$`duration(ns)`), col="blue")
309+
plot(log(S$n), log(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20)
310+
points(log(C$n), log(C$`duration(ns)`), col="green", pch=20)
311+
points(log(I$n), log(I$`duration(ns)`), col="blue", pch=20)
312+
plot(log(S$n), log(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20)
313+
points(log(C$n), log(C$`duration(ns)`), col="green", pch=20, type = "l")
314+
points(log(I$n), log(I$`duration(ns)`), col="blue", pch=20)
315+
plot(log(S$n), log(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20)
316+
points(log(C$n), log(C$`duration(ns)`), col="green", pch=20, type = "lp")
317+
points(log(I$n), log(I$`duration(ns)`), col="blue", pch=20)
318+
plot(log(S$n), log(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20)
319+
points(log(C$n), log(C$`duration(ns)`), col="green", pch=20, type = "p")
320+
points(log(I$n), log(I$`duration(ns)`), col="blue", pch=20)
321+
plot(log(S$n), log(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20)
322+
points(log(C$n), log(C$`duration(ns)`), col="green", pch=20, type = "s")
323+
points(log(I$n), log(I$`duration(ns)`), col="blue", pch=20)
324+
plot(log(S$n), log(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20)
325+
points(log(C$n), log(C$`duration(ns)`), col="green", pch=20, type = "l")
326+
points(log(I$n), log(I$`duration(ns)`), col="blue", pch=20)
327+
plot(log(S$n), log(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20)
328+
points(log(C$n), log(C$`duration(ns)`), col="green", pch=20, type = "b")
329+
points(log(I$n), log(I$`duration(ns)`), col="blue", pch=20)
330+
plot(log(S$n), log(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20, type="b")
331+
points(log(C$n), log(C$`duration(ns)`), col="green", pch=20, type = "b")
332+
points(log(I$n), log(I$`duration(ns)`), col="blue", pch=20, type="b")
333+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20, type="b")
334+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
335+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
336+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20, type="b")
337+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
338+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
339+
legend("topleft")
340+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20, type="b")
341+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
342+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
343+
legend("topleft", col=c("red", "blue", "green"))
344+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20, type="b")
345+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
346+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
347+
legend("topleft", col=c("red", "blue", "green"), legend=c("Selection sort", "Intro sort", "Counting sort"))
348+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20, type="b")
349+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
350+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
351+
legend("topleft", col=c("red", "blue", "green"), legend=c("Selection sort", "Intro sort", "Counting sort"), lty=c(1))
352+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20, type="b")
353+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
354+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
355+
legend("topleft", col=c("red", "blue", "green"), legend=c("Selection sort", "Intro sort", "Counting sort"), lty=1)
356+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20, type="b")
357+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
358+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
359+
legend("topleft", col=c("red", "blue", "green"), legend=c("Selection sort", "Intro sort", "Counting sort"))
360+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20, type="b")
361+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
362+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
363+
legend("topleft", col=c("red", "blue", "green"), legend=c("Selection sort", "Intro sort", "Counting sort"), lty=1)
364+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20, type="b")
365+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
366+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
367+
legend("topleft", col=c("red", "blue", "green"), legend=c("Selection sort", "Intro sort", "Counting sort"), lty="b")
368+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20, type="b")
369+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
370+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
371+
legend("topleft", col=c("red", "blue", "green"), legend=c("Selection sort", "Intro sort", "Counting sort"), lty=1)
372+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20, type="b")
373+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
374+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
375+
legend("topleft", col=c("red", "blue", "green"), legend=c("Selection sort", "Intro sort", "Counting sort"), lty=4)
376+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución", pch=20, type="b")
377+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
378+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
379+
legend("topleft", col=c("red", "blue", "green"), legend=c("Selection sort", "Intro sort", "Counting sort"), lty=1)
380+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución) (ns)", pch=20, type="b")
381+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
382+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
383+
legend("topleft", col=c("red", "blue", "green"), legend=c("Selection sort", "Intro sort", "Counting sort"), lty=1)
384+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución (ns))", pch=20, type="b")
385+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
386+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
387+
legend("topleft", col=c("red", "blue", "green"), legend=c("Selection sort", "Intro sort", "Counting sort"), lty=1)

‎analisis/analisis.Rmd

Lines changed: 7 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -8,19 +8,18 @@ library(readr)
88
library(ggplot2)
99
```
1010

11-
```{r}
12-
DF <- read_csv("results.csv")
13-
```
1411

1512
```{r}
16-
DF
13+
C <- read_csv("counting_sort.csv")
14+
I <- read_csv("intro_sort.csv")
15+
S <- read_csv("selection_sort.csv")
1716
```
1817
```{r}
19-
DF$n <- DF$n + 1
18+
plot(log10(S$n), log10(S$`duration(ns)`), col="red", main="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)", xlab="log(n)", ylab="log(Tiempo de ejecución (ns))", pch=20, type="b")
19+
points(log10(C$n), log10(C$`duration(ns)`), col="green", pch=20, type = "b")
20+
points(log10(I$n), log10(I$`duration(ns)`), col="blue", pch=20, type="b")
21+
legend("topleft", col=c("red", "blue", "green"), legend=c("Selection sort", "Intro sort", "Counting sort"), lty=1)
2022
```
2123

2224

23-
```{r}
24-
ggplot(DF) + geom_point(aes(x=DF$n, y=DF$`duration(ns)`)) + scale_x_log10() + scale_y_log10() + labs(x="log(n)", y="log(Tiempo de ejecución)", title="Tiempo de ejecución vs. tamaño de entrada (escala logarítmica)")
25-
```
2625

0 commit comments

Comments
 (0)