@@ -105,7 +105,7 @@ for (file in files) {
105105 densityPlot <- ggplot(df , aes(x = Measurement_Value , fill = Job_Id )) +
106106 ggtitle(paste(title , " /" , target )) +
107107 xlab(paste(" Time," , timeUnit )) +
108- geom_density(alpha = .5 , bw = " SJ " )
108+ geom_density(alpha = .5 , bw = " sj " )
109109 printNice(densityPlot )
110110 ggsaveNice(gsub(" -measurements.csv" , paste0(" -" , target , " -density.png" ), file ), densityPlot )
111111
@@ -118,7 +118,7 @@ for (file in files) {
118118 paramsDensityPlot <- ggplot(paramsDf , aes(x = Measurement_Value , fill = Job_Id )) +
119119 ggtitle(paste(title , " /" , target , " /" , params )) +
120120 xlab(paste(" Time," , timeUnit )) +
121- geom_density(alpha = .5 , bw = " SJ " )
121+ geom_density(alpha = .5 , bw = " sj " )
122122 printNice(paramsDensityPlot )
123123 prefix <- createPrefix(c(target ,params ))
124124 ggsaveNice(gsub(" -measurements.csv" , paste0(prefix , " -density.png" ), file ), paramsDensityPlot )
@@ -155,7 +155,7 @@ for (file in files) {
155155 densityPlotJob <- ggplot(jobDf , aes(x = Measurement_Value , fill = " red" )) +
156156 ggtitle(paste(title , " /" , target , " /" , job )) +
157157 xlab(paste(" Time," , timeUnit )) +
158- geom_density(alpha = .5 , bw = " SJ " )
158+ geom_density(alpha = .5 , bw = " sj " )
159159 printNice(densityPlotJob )
160160 ggsaveNice(gsub(" -measurements.csv" , paste0(" -" , target , " -" , job , " -density.png" ), file ), densityPlotJob )
161161 }
0 commit comments