clearlinux/cloud-native-setup
2
0
Fork 0
mirror of https://github.com/clearlinux/cloud-native-setup.git synced 2026-09-03 20:31:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

metrics: parallel: dedup use of aes()

Browse Source 
Rather than duplicate the same aes() over all the parts of the ggplot(),
add the aes to the base ggplot, and then default to using that for
all the other additions.

Signed-off-by: Graham Whaley <graham.whaley@intel.com>
This commit is contained in:
Graham Whaley
2019-08-14 10:58:06 -06:00
committed by David Lyle
parent 645110832b
commit 1c14965e6c
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
metrics/report/report_dockerfile/parallel.R
+8 -8
View File
@@ -76,8 +76,8 @@ for (currentdir in resultdirs) {
}
# Show how boot time changed
boot_line_plot <- ggplot() +
geom_line( data=data, aes(npod, boot_time, colour=testname, group=dataset), alpha=0.2) +
boot_line_plot <- ggplot( data=data, aes(npod, boot_time, colour=testname, group=dataset)) +
geom_line( alpha=0.2) +
xlab("parallel pods") +
ylab("Boot time (s)") +
ggtitle("Pod boot time (detail)") +
@@ -85,9 +85,9 @@ boot_line_plot <- ggplot() +
theme(axis.text.x=element_text(angle=90))
if ( skip_points_enable_smooth == 0 ) {
boot_line_plot = boot_line_plot + geom_point( data=data, aes(npod, boot_time, colour=testname, group=dataset), alpha=0.3)
boot_line_plot = boot_line_plot + geom_point(alpha=0.3)
} else {
boot_line_plot = bool_line_plot + geom_smooth( data=data, aes(npod, boot_time, colour=testname, group=dataset), se=FALSE, method="loess", size=0.3)
boot_line_plot = bool_line_plot + geom_smooth(se=FALSE, method="loess", size=0.3)
}
# And get a zero Y index plot.
@@ -95,8 +95,8 @@ boot_line_plot <- ggplot() +
ggtitle("Pod boot time (0 index)")
# Show how boot time changed
delete_line_plot <- ggplot() +
geom_line( data=data, aes(npod, delete_time, colour=testname, group=dataset), alpha=0.2) +
delete_line_plot <- ggplot( data=data, aes(npod, delete_time, colour=testname, group=dataset)) +
geom_line(alpha=0.2) +
xlab("parallel pods") +
ylab("Delete time (s)") +
ggtitle("Pod deletion time (detail)") +
@@ -104,9 +104,9 @@ delete_line_plot <- ggplot() +
theme(axis.text.x=element_text(angle=90))
if ( skip_points_enable_smooth == 0 ) {
delete_line_plot = delete_line_plot + geom_point( data=data, aes(npod, delete_time, colour=testname, group=dataset), alpha=0.3)
delete_line_plot = delete_line_plot + geom_point(alpha=0.3)
} else {
delete_line_plot = delete_line_plot + geom_smooth( data=data, aes(npod, delete_time, colour=testname, group=dataset), se=FALSE, method="loess", size=0.3)
delete_line_plot = delete_line_plot + geom_smooth(se=FALSE, method="loess", size=0.3)
}
# And get a 0 indexed Y axis plot