Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 1 | # Copyright 2017 Open Networking Foundation (ONF) |
| 2 | # |
| 3 | # Please refer questions to either the onos test mailing list at <onos-test@onosproject.org>, |
| 4 | # the System Testing Plans and Results wiki page at <https://wiki.onosproject.org/x/voMg>, |
| 5 | # or the System Testing Guide page at <https://wiki.onosproject.org/x/WYQg> |
| 6 | # |
| 7 | # TestON is free software: you can redistribute it and/or modify |
| 8 | # it under the terms of the GNU General Public License as published by |
| 9 | # the Free Software Foundation, either version 2 of the License, or |
| 10 | # (at your option) any later version. |
| 11 | # |
| 12 | # TestON is distributed in the hope that it will be useful, |
| 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 15 | # GNU General Public License for more details. |
| 16 | # |
| 17 | # You should have received a copy of the GNU General Public License |
| 18 | # along with TestON. If not, see <http://www.gnu.org/licenses/>. |
| 19 | # |
| 20 | # If you have any questions, or if you don't understand R, |
Jeremy Ronquillo | b626884 | 2017-10-03 13:02:58 -0700 | [diff] [blame] | 21 | # please contact Jeremy Ronquillo: j_ronquillo@u.pacific.edu |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 22 | |
| 23 | # ********************************************************** |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 24 | # STEP 1: Data management. |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 25 | # ********************************************************** |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 26 | print( "**********************************************************" ) |
| 27 | print( "STEP 1: Data management." ) |
| 28 | print( "**********************************************************" ) |
Devin Lim | 0e96716 | 2017-11-03 15:59:53 -0700 | [diff] [blame] | 29 | database_host = 1 |
| 30 | database_port = 2 |
| 31 | database_u_id = 3 |
| 32 | database_pw = 4 |
| 33 | test_name = 5 |
| 34 | branch_name = 6 |
| 35 | save_directory = 7 |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 36 | |
Jeremy Ronquillo | b626884 | 2017-10-03 13:02:58 -0700 | [diff] [blame] | 37 | # Command line arguments are read. |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 38 | print( "Reading commmand-line args." ) |
| 39 | args <- commandArgs( trailingOnly=TRUE ) |
| 40 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 41 | # ---------------- |
| 42 | # Import Libraries |
| 43 | # ---------------- |
| 44 | |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 45 | print( "Importing libraries." ) |
| 46 | library( ggplot2 ) |
| 47 | library( reshape2 ) |
| 48 | library( RPostgreSQL ) # For databases |
| 49 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 50 | # ------------------- |
| 51 | # Check CLI Arguments |
| 52 | # ------------------- |
| 53 | |
| 54 | print( "Verifying CLI args." ) |
| 55 | |
Devin Lim | 0e96716 | 2017-11-03 15:59:53 -0700 | [diff] [blame] | 56 | if ( is.na( args[ save_directory ] ) ){ |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 57 | |
| 58 | print( paste( "Usage: Rscript SCPFportLat", |
| 59 | "<database-host>", |
| 60 | "<database-port>", |
| 61 | "<database-user-id>", |
| 62 | "<database-password>", |
| 63 | "<test-name>", |
| 64 | "<branch-name>", |
| 65 | "<directory-to-save-graphs>", |
| 66 | sep=" " ) ) |
| 67 | |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 68 | q() # basically exit(), but in R |
| 69 | } |
| 70 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 71 | # ----------------- |
| 72 | # Create File Names |
| 73 | # ----------------- |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 74 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 75 | print( "Creating filenames and title of graph." ) |
Devin Lim | 0e96716 | 2017-11-03 15:59:53 -0700 | [diff] [blame] | 76 | errBarOutputFileUp <- paste( args[ save_directory ], |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 77 | "SCPFportLat_", |
Devin Lim | 0e96716 | 2017-11-03 15:59:53 -0700 | [diff] [blame] | 78 | args[ branch_name ], |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 79 | "_UpErrBarWithStack.jpg", |
| 80 | sep = "" ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 81 | |
Devin Lim | 0e96716 | 2017-11-03 15:59:53 -0700 | [diff] [blame] | 82 | errBarOutputFileDown <- paste( args[ save_directory ], |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 83 | "SCPFportLat_", |
Devin Lim | 0e96716 | 2017-11-03 15:59:53 -0700 | [diff] [blame] | 84 | args[ branch_name ], |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 85 | "_DownErrBarWithStack.jpg", |
| 86 | sep = "" ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 87 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 88 | # ------------------ |
| 89 | # SQL Initialization |
| 90 | # ------------------ |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 91 | print( "Initializing SQL" ) |
| 92 | |
| 93 | con <- dbConnect( dbDriver( "PostgreSQL" ), |
| 94 | dbname = "onostest", |
Devin Lim | 0e96716 | 2017-11-03 15:59:53 -0700 | [diff] [blame] | 95 | host = args[ database_host ], |
| 96 | port = strtoi( args[ database_port ] ), |
| 97 | user = args[ database_u_id ], |
| 98 | password = args[ database_pw ] ) |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 99 | |
| 100 | # ------------------------ |
| 101 | # Port Latency SQL Command |
| 102 | # ------------------------ |
| 103 | |
| 104 | print( "Generating Port Latency SQL Command" ) |
| 105 | |
| 106 | command <- paste( "SELECT * FROM port_latency_details WHERE branch = '", |
Devin Lim | 0e96716 | 2017-11-03 15:59:53 -0700 | [diff] [blame] | 107 | args[ branch_name ], |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 108 | "' AND date IN ( SELECT MAX( date ) FROM port_latency_details WHERE branch = '", |
Devin Lim | 0e96716 | 2017-11-03 15:59:53 -0700 | [diff] [blame] | 109 | args[ branch_name ], |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 110 | "' ) ", |
| 111 | sep = "" ) |
| 112 | |
| 113 | print( "Sending SQL command:" ) |
| 114 | print( command ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 115 | |
| 116 | fileData <- dbGetQuery( con, command ) |
| 117 | |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 118 | # ********************************************************** |
| 119 | # STEP 2: Organize data. |
| 120 | # ********************************************************** |
| 121 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 122 | print( "**********************************************************" ) |
| 123 | print( "STEP 2: Organize Data." ) |
| 124 | print( "**********************************************************" ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 125 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 126 | # ----------------------------- |
| 127 | # Port Up Averages Data Sorting |
| 128 | # ----------------------------- |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 129 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 130 | print( "Sorting data for Port Up Averages." ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 131 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 132 | upAvgs <- c( fileData[ 'up_ofp_to_dev_avg' ], |
| 133 | fileData[ 'up_dev_to_link_avg' ], |
| 134 | fileData[ 'up_link_to_graph_avg' ] ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 135 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 136 | # ---------------------------- |
| 137 | # Port Up Construct Data Frame |
| 138 | # ---------------------------- |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 139 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 140 | print( "Constructing Port Up data frame." ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 141 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 142 | upAvgsDataFrame <- melt( upAvgs ) |
| 143 | upAvgsDataFrame$scale <- fileData$scale |
| 144 | upAvgsDataFrame$up_std <- fileData$up_std |
| 145 | |
| 146 | colnames( upAvgsDataFrame ) <- c( "ms", |
| 147 | "type", |
| 148 | "scale", |
| 149 | "stds" ) |
| 150 | |
| 151 | upAvgsDataFrame <- na.omit( upAvgsDataFrame ) |
| 152 | |
| 153 | upAvgsDataFrame$type <- as.character( upAvgsDataFrame$type ) |
| 154 | upAvgsDataFrame$type <- factor( upAvgsDataFrame$type, levels=unique( upAvgsDataFrame$type ) ) |
| 155 | |
| 156 | sumOfUpAvgs <- fileData[ 'up_ofp_to_dev_avg' ] + |
| 157 | fileData[ 'up_dev_to_link_avg' ] + |
| 158 | fileData[ 'up_link_to_graph_avg' ] |
Jeremy Ronquillo | 2d2649d | 2017-09-14 12:53:06 -0700 | [diff] [blame] | 159 | |
| 160 | print( "Up Averages Results:" ) |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 161 | print( upAvgsDataFrame ) |
| 162 | |
| 163 | # ------------------------------- |
| 164 | # Port Down Averages Data Sorting |
| 165 | # ------------------------------- |
| 166 | |
| 167 | print( "Sorting data for Port Down Averages." ) |
| 168 | |
| 169 | downAvgs <- c( fileData[ 'down_ofp_to_dev_avg' ], |
| 170 | fileData[ 'down_dev_to_link_avg' ], |
| 171 | fileData[ 'down_link_to_graph_avg' ] ) |
| 172 | |
| 173 | # ------------------------------ |
| 174 | # Port Down Construct Data Frame |
| 175 | # ------------------------------ |
| 176 | |
| 177 | print( "Constructing Port Down data frame." ) |
| 178 | |
| 179 | downAvgsDataFrame <- melt( downAvgs ) |
| 180 | downAvgsDataFrame$scale <- fileData$scale |
| 181 | downAvgsDataFrame$down_std <- fileData$down_std |
| 182 | |
| 183 | colnames( downAvgsDataFrame ) <- c( "ms", |
| 184 | "type", |
| 185 | "scale", |
| 186 | "stds" ) |
| 187 | |
| 188 | downAvgsDataFrame <- na.omit( downAvgsDataFrame ) |
| 189 | |
| 190 | downAvgsDataFrame$type <- as.character( downAvgsDataFrame$type ) |
| 191 | downAvgsDataFrame$type <- factor( downAvgsDataFrame$type, levels=unique( downAvgsDataFrame$type ) ) |
| 192 | |
| 193 | sumOfDownAvgs <- fileData[ 'down_ofp_to_dev_avg' ] + |
| 194 | fileData[ 'down_dev_to_link_avg' ] + |
| 195 | fileData[ 'down_link_to_graph_avg' ] |
Jeremy Ronquillo | 2d2649d | 2017-09-14 12:53:06 -0700 | [diff] [blame] | 196 | |
| 197 | print( "Down Averages Results:" ) |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 198 | print( downAvgsDataFrame ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 199 | |
| 200 | # ********************************************************** |
| 201 | # STEP 3: Generate graphs. |
| 202 | # ********************************************************** |
| 203 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 204 | print( "**********************************************************" ) |
| 205 | print( "STEP 3: Generate Graph." ) |
| 206 | print( "**********************************************************" ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 207 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 208 | # ------------------------------------ |
| 209 | # Initialize Variables For Both Graphs |
| 210 | # ------------------------------------ |
| 211 | |
| 212 | print( "Initializing variables used in both graphs." ) |
| 213 | |
Jeremy Ronquillo | 0e27b91 | 2017-10-21 14:34:24 -0700 | [diff] [blame] | 214 | theme_set( theme_grey( base_size = 22 ) ) # set the default text size of the graph. |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 215 | barWidth <- 1 |
| 216 | xScaleConfig <- scale_x_continuous( breaks=c( 1, 3, 5, 7, 9 ) ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 217 | xLabel <- xlab( "Scale" ) |
| 218 | yLabel <- ylab( "Latency (ms)" ) |
| 219 | fillLabel <- labs( fill="Type" ) |
Jeremy Ronquillo | 0e27b91 | 2017-10-21 14:34:24 -0700 | [diff] [blame] | 220 | wrapLegend <- guides( fill=guide_legend( nrow=1, byrow=TRUE ) ) |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 221 | imageWidth <- 15 |
| 222 | imageHeight <- 10 |
| 223 | imageDPI <- 200 |
| 224 | errorBarColor <- rgb( 140, 140, 140, maxColorValue=255 ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 225 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 226 | theme <- theme( plot.title=element_text( hjust = 0.5, size = 32, face='bold' ), |
| 227 | legend.position="bottom", |
| 228 | legend.text=element_text( size=22 ), |
| 229 | legend.title = element_blank(), |
| 230 | legend.key.size = unit( 1.5, 'lines' ) ) |
| 231 | |
| 232 | colors <- scale_fill_manual( values=c( "#F77670", |
| 233 | "#619DFA", |
| 234 | "#18BA48" ) ) |
| 235 | |
| 236 | # -------------------------- |
| 237 | # Port Up Generate Main Plot |
| 238 | # -------------------------- |
| 239 | |
| 240 | print( "Generating main plot (Port Up Latency)." ) |
| 241 | |
| 242 | mainPlot <- ggplot( data = upAvgsDataFrame, aes( x = scale, |
| 243 | y = ms, |
| 244 | fill = type, |
| 245 | ymin = fileData[ 'up_end_to_end_avg' ], |
| 246 | ymax = fileData[ 'up_end_to_end_avg' ] + stds ) ) |
| 247 | |
| 248 | # -------------------------------------- |
| 249 | # Port Up Fundamental Variables Assigned |
| 250 | # -------------------------------------- |
| 251 | |
| 252 | print( "Generating fundamental graph data (Port Up Latency)." ) |
| 253 | |
| 254 | title <- ggtitle( "Port Up Latency" ) |
| 255 | |
| 256 | fundamentalGraphData <- mainPlot + |
| 257 | xScaleConfig + |
| 258 | xLabel + |
| 259 | yLabel + |
| 260 | fillLabel + |
| 261 | theme + |
| 262 | wrapLegend + |
| 263 | title + |
| 264 | colors |
| 265 | |
| 266 | # ----------------------------------- |
| 267 | # Port Up Generating Bar Graph Format |
| 268 | # ----------------------------------- |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 269 | |
| 270 | print( "Generating bar graph with error bars (Port Up Latency)." ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 271 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 272 | barGraphFormat <- geom_bar( stat = "identity", |
| 273 | width = barWidth ) |
| 274 | errorBarFormat <- geom_errorbar( width = barWidth, |
| 275 | color = errorBarColor ) |
| 276 | |
| 277 | values <- geom_text( aes( x = upAvgsDataFrame$scale, |
| 278 | y = sumOfUpAvgs + 0.03 * max( sumOfUpAvgs ), |
| 279 | label = format( sumOfUpAvgs, |
| 280 | digits=3, |
| 281 | big.mark = ",", |
| 282 | scientific = FALSE ) ), |
| 283 | size = 7.0, |
| 284 | fontface = "bold" ) |
| 285 | |
| 286 | result <- fundamentalGraphData + |
| 287 | barGraphFormat + |
| 288 | errorBarFormat + |
| 289 | values |
| 290 | |
| 291 | # ------------------------------- |
| 292 | # Port Up Exporting Graph to File |
| 293 | # ------------------------------- |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 294 | |
| 295 | print( paste( "Saving bar chart with error bars (Port Up Latency) to", errBarOutputFileUp ) ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 296 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 297 | ggsave( errBarOutputFileUp, |
| 298 | width = imageWidth, |
| 299 | height = imageHeight, |
| 300 | dpi = imageDPI ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 301 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 302 | print( paste( "[SUCCESS] Successfully wrote bar chart with error bars (Port Up Latency) out to", errBarOutputFileUp ) ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 303 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 304 | # ---------------------------- |
| 305 | # Port Down Generate Main Plot |
| 306 | # ---------------------------- |
| 307 | |
| 308 | print( "Generating main plot (Port Down Latency)." ) |
| 309 | |
| 310 | mainPlot <- ggplot( data = downAvgsDataFrame, aes( x = scale, |
| 311 | y = ms, |
| 312 | fill = type, |
| 313 | ymin = fileData[ 'down_end_to_end_avg' ], |
| 314 | ymax = fileData[ 'down_end_to_end_avg' ] + stds ) ) |
| 315 | |
| 316 | # ---------------------------------------- |
| 317 | # Port Down Fundamental Variables Assigned |
| 318 | # ---------------------------------------- |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 319 | |
| 320 | print( "Generating fundamental graph data (Port Down Latency)." ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 321 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 322 | title <- ggtitle( "Port Down Latency" ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 323 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 324 | fundamentalGraphData <- mainPlot + |
| 325 | xScaleConfig + |
| 326 | xLabel + |
| 327 | yLabel + |
| 328 | fillLabel + |
| 329 | theme + |
| 330 | wrapLegend + |
| 331 | title + |
| 332 | colors |
| 333 | |
| 334 | # ------------------------------------- |
| 335 | # Port Down Generating Bar Graph Format |
| 336 | # ------------------------------------- |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 337 | |
| 338 | print( "Generating bar graph with error bars (Port Down Latency)." ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 339 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 340 | barGraphFormat <- geom_bar( stat = "identity", |
| 341 | width = barWidth ) |
| 342 | errorBarFormat <- geom_errorbar( width = barWidth, |
| 343 | color = errorBarColor ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 344 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 345 | values <- geom_text( aes( x = downAvgsDataFrame$scale, |
| 346 | y = sumOfDownAvgs + 0.03 * max( sumOfDownAvgs ), |
| 347 | label = format( sumOfDownAvgs, |
| 348 | digits=3, |
| 349 | big.mark = ",", |
| 350 | scientific = FALSE ) ), |
| 351 | size = 7.0, |
| 352 | fontface = "bold" ) |
| 353 | |
| 354 | result <- fundamentalGraphData + |
| 355 | barGraphFormat + |
| 356 | errorBarFormat + |
| 357 | values |
| 358 | |
| 359 | # --------------------------------- |
| 360 | # Port Down Exporting Graph to File |
| 361 | # --------------------------------- |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 362 | |
| 363 | print( paste( "Saving bar chart with error bars (Port Down Latency) to", errBarOutputFileDown ) ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 364 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 365 | ggsave( errBarOutputFileDown, |
| 366 | width = imageWidth, |
| 367 | height = imageHeight, |
| 368 | dpi = imageDPI ) |
Jeremy Ronquillo | 6df8781 | 2017-08-28 16:17:36 +0000 | [diff] [blame] | 369 | |
Jeremy Ronquillo | 7673f80 | 2017-10-30 09:42:44 -0700 | [diff] [blame] | 370 | print( paste( "[SUCCESS] Successfully wrote bar chart with error bars (Port Down Latency) out to", errBarOutputFileDown ) ) |