From 8c1493e8f77b72eb8c8ad6e1bee3479eb469f277 Mon Sep 17 00:00:00 2001 From: Benoit Chesnau Date: Fri, 27 Jun 2014 13:54:34 -0400 Subject: [PATCH] Use labs() instead of opts() to support R v3.1.0 --- priv/summary.r | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/priv/summary.r b/priv/summary.r index 383223d69..1ca1a5ba2 100755 --- a/priv/summary.r +++ b/priv/summary.r @@ -69,7 +69,7 @@ latency_plot <- ggplot(b$latencies, aes(x = elapsed)) + labs(x = "Elapsed Secs", y = "Latency (ms)") # Plot median, mean and 95th percentiles -plot2 <- latency_plot + opts(title = "Mean, Median, and 95th Percentile Latency") + +plot2 <- latency_plot + labs(title = "Mean, Median, and 95th Percentile Latency") + geom_smooth(aes(y = median, color = "median"), size=0.5) + geom_point(aes(y = median, color = "median"), size=2.0) + @@ -85,7 +85,7 @@ plot2 <- latency_plot + opts(title = "Mean, Median, and 95th Percentile Latency" # labels = c("95th", "Mean", "Median")) # Plot 99th percentile -plot3 <- latency_plot + opts(title = "99th Percentile Latency") + +plot3 <- latency_plot + labs(title = "99th Percentile Latency") + geom_smooth(aes(y = X99th, color = "99th"), size=0.5) + geom_point(aes(y = X99th, color = "99th"), size=2.0) + scale_colour_manual("Percentile", values = c("#FF665F", "#009D91")) @@ -94,13 +94,13 @@ plot3 <- latency_plot + opts(title = "99th Percentile Latency") + # labels = c("99.9th", "99th")) # Plot 99.9th percentile -plot4 <- latency_plot + opts(title = "99.9th Percentile Latency") + +plot4 <- latency_plot + labs(title = "99.9th Percentile Latency") + geom_smooth(aes(y = X99_9th, color = "99.9th"), size=0.5) + geom_point(aes(y = X99_9th, color = "99.9th"), size=2.0) + scale_colour_manual("Percentile", values = c("#FF665F", "#009D91", "#FFA700")) # Plot 100th percentile -plot5 <- latency_plot + opts(title = "Maximum Latency") + +plot5 <- latency_plot + labs(title = "Maximum Latency") + geom_smooth(aes(y = max, color = "max"), size=0.5) + geom_point(aes(y = max, color = "max"), size=2.0) + scale_colour_manual("Percentile", values = c("#FF665F", "#009D91", "#FFA700"))