@@ -39,7 +39,7 @@ data.size <- as.data.frame(list(serializer = names.size, size = size))
39
39
data.time <- as.data.frame(list (serializer = names.time , time = time ))
40
40
data.time2 <- as.data.frame(list (serializer = names.time2 , time = time2 ))
41
41
42
- ssize <- ggplot(data.size , aes(x = as.factor(serializer ), y = as.factor( size ) , fill = serializer )) +
42
+ ssize <- ggplot(data.size , aes(x = as.factor(serializer ), y = size , fill = serializer )) +
43
43
geom_bar(stat = " identity" ) +
44
44
xlab(" serializer" ) +
45
45
ylab(" size" ) +
@@ -48,7 +48,7 @@ png(filename="size.png", width = 800, height = 600)
48
48
plot(ssize )
49
49
dev.off()
50
50
51
- stime <- ggplot(data.time , aes(x = as.factor(serializer ), y = as.factor( time ) , fill = serializer )) +
51
+ stime <- ggplot(data.time , aes(x = as.factor(serializer ), y = time , fill = serializer )) +
52
52
geom_bar(stat = " identity" ) +
53
53
xlab(" serializer" ) +
54
54
ylab(" time" ) +
@@ -57,7 +57,7 @@ png(filename="time.png", width = 800, height = 600)
57
57
plot(stime )
58
58
dev.off()
59
59
60
- stime2 <- ggplot(data.time2 , aes(x = as.factor(serializer ), y = as.factor( time ) , fill = serializer )) +
60
+ stime2 <- ggplot(data.time2 , aes(x = as.factor(serializer ), y = time , fill = serializer )) +
61
61
geom_bar(stat = " identity" ) +
62
62
xlab(" serializer" ) +
63
63
ylab(" time" ) +
0 commit comments