-
Notifications
You must be signed in to change notification settings - Fork 5
/
script_figure_3.R
26 lines (23 loc) · 1.18 KB
/
script_figure_3.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
rm(list = ls())
# set working directory
#setwd("~/Downloads/EttuBench")
# load supporting libraries
library(ggplot2)
comparison <- read.csv(file = "./data/modules.csv")
comparison$Regularization <- factor(comparison$Regularization,
levels = c("No Regularization",
"Naming",
"Expression Standardization",
"FROM-nested Subquery",
"UNION Pull-out"))
comparison$Dataset <- factor(comparison$Dataset,
levels = c("IIT Bombay Dataset", "UB Exam Dataset",
"PocketData-Google+"))
# individual module analysis
ggplot(data = comparison, aes(x = Metric, y = Silhouette, fill=Regularization)) +
geom_bar(position="dodge", stat="identity") + facet_grid(~ Dataset) +
ylab("Average Silhouette Coefficient") + xlab("Metric") +
theme_bw(base_size = 14) + theme(legend.position = "top", legend.title = element_blank()) +
#scale_fill_brewer(palette = "Dark2") +
scale_fill_grey() +
ggsave(file = "./figure/module.eps")