diff --git a/webroot/plots/generate-plots.r b/webroot/plots/generate-plots.r
index 923946f..a3de552 100755
--- a/webroot/plots/generate-plots.r
+++ b/webroot/plots/generate-plots.r
@@ -11,7 +11,7 @@ list.of.packages <- c(
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if (length(new.packages)) {
- install.packages(new.packages)
+ install.packages(new.packages, repos = "http://cran.rstudio.com", dependecies = TRUE)
}
library(plyr, warn.conflicts = FALSE, quietly = T)
@@ -36,7 +36,11 @@ bofs = list(
'ISC21',
'SC21',
'ISC22',
- 'SC22'
+ 'SC22',
+ 'ISC23',
+ 'SC23',
+ 'ISC24',
+ 'SC24'
)
datalist = list()
@@ -102,6 +106,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -157,6 +167,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -210,6 +226,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -265,6 +287,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -318,6 +346,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -371,6 +405,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -424,6 +464,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -479,6 +525,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -532,6 +584,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -585,6 +643,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -638,6 +702,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -691,6 +761,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -744,6 +820,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -797,6 +879,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
@@ -828,7 +916,7 @@ plot <- ggplot(
df,
aes(
x = list_name,
- y = as.numeric(as.character(find_hard)),
+ y = as.numeric(as.character(find_mixed)),
color = list_name,
text = text
)) +
@@ -850,6 +938,12 @@ plot <- ggplot(
"#1d2a30",
"#ec563c",
"#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
+ "#ec563c",
+ "#1d2a30",
"#ec563c"
)
) +
diff --git a/webroot/plots/plotly/io500-bandwidth.html b/webroot/plots/plotly/io500-bandwidth.html
index 98a3f53..2c1bc9f 100644
--- a/webroot/plots/plotly/io500-bandwidth.html
+++ b/webroot/plots/plotly/io500-bandwidth.html
@@ -15,9 +15,9 @@
-
-
+
+