#' Creates the plot for all jaccard coefficients amongst the three epilepsy ontologies
#'
#' @param jaccardepso the data frame containing the columns with the jaccard coefficients of epi and esso against epso
#' @param jaccardesso the data frame containing the columns with the jaccard coefficients of epi and epso against esso
#'
#' @return jaccardepilepsyplot the ggplot object
#'
#' @importFrom ggplot2 ggplot
#' @importFrom ggplot2 theme_minimal
#' @importFrom ggplot2 theme
#' @importFrom ggplot2 labs
#' @importFrom ggplot2 geom_step
#' @importFrom ggplot2 coord_trans
#' @importFrom ggplot2 scale_x_continuous
#' @importFrom ggplot2 scale_y_continuous
#' @importFrom ggplot2 scale_colour_manual
#' @importFrom ggplot2 scale_size_manual
#' @importFrom ggplot2 aes_string
#' @importFrom ggplot2 element_line
#' @importFrom ggplot2 element_blank
#' @importFrom ggplot2 element_text
#'
#' @examples
#' \dontrun{
#' jaccardepilepsyplot <- createJaccardPlotAll(jaccardepso, jaccardesso)
#' }
createJaccardPlotAll <- function (jaccardepso, jaccardesso) {
cols <- c("ESSO EpSO" = "#8A2BE2", "EpSO EPI"="#7CFC00", "ESSO EPI"="#C71585")
jaccardepilepsyplot <- ggplot2::ggplot(data = jaccardepso, ggplot2::aes_string(x="Elements",
y="ESSO",
colour = shQuote("ESSO EpSO")), log10="x") +
ggplot2::theme_minimal ()+
ggplot2::theme(panel.grid.major = ggplot2::element_line(colour = "gray"),
panel.grid.minor.y = ggplot2::element_line(colour = "gray"),
legend.text=ggplot2::element_text(size=11),
legend.position=c(0,1),
legend.justification=c(0, 0),
legend.direction="horizontal",
legend.title = ggplot2::element_blank(),
plot.title = ggplot2::element_text(size = 11, face = "bold"),
axis.title.x = ggplot2::element_text(size = 11, face = "bold"),
axis.title.y = ggplot2::element_text(size = 11, face = "bold"),
axis.text.x = ggplot2::element_text(size = 11)) +
ggplot2::labs (y="JaccardTopK", x="TopK", title = "JaccardTopK of Epilepsy Ontologies", subtitle = "") +
ggplot2::geom_step(size=1) +
ggplot2::geom_step(data = jaccardepso, ggplot2::aes_string(x="Elements", y="EPILONT", colour = shQuote("EpSO EPI")), size=1) +
ggplot2::geom_step(data = jaccardesso, ggplot2::aes_string(x="Elements", y="EPILONT", colour = shQuote("ESSO EPI")), size=1) +
ggplot2::coord_trans(limx = c(0,919),limy = c(0.925,1)) +
ggplot2::scale_x_continuous(breaks = c(0, 250, 500, 750, 919)) +
ggplot2::scale_y_continuous(breaks = c(0.925, 0.95, 0.975, 1)) +
ggplot2::scale_colour_manual(name="Dictionary",values=cols)+
ggplot2::scale_size_manual()
return (jaccardepilepsyplot)
}
#' Creates the plot for all dice coefficients amongst the three epilepsy ontologies
#'
#' @param diceepso the data frame containing the columns with the dice coefficients of epi and esso against epso
#' @param diceesso the data frame containing the columns with the dice coefficients of epi and epso against esso
#'
#' @return diceepilepsyplot the ggplot object
#'
#' @importFrom ggplot2 ggplot
#' @importFrom ggplot2 theme_minimal
#' @importFrom ggplot2 theme
#' @importFrom ggplot2 labs
#' @importFrom ggplot2 geom_step
#' @importFrom ggplot2 coord_trans
#' @importFrom ggplot2 scale_x_continuous
#' @importFrom ggplot2 scale_y_continuous
#' @importFrom ggplot2 scale_colour_manual
#' @importFrom ggplot2 scale_size_manual
#' @importFrom ggplot2 aes_string
#' @importFrom ggplot2 element_line
#' @importFrom ggplot2 element_blank
#' @importFrom ggplot2 element_text
#'
#' @examples
#' \dontrun{
#' diceepilepsyplot <- createDicePlotAll(diceepso, diceesso)
#' }
createDicePlotAll <- function (diceepso, diceesso) {
cols <- c("ESSO EpSO" = "#8A2BE2", "EpSO EPI"="#7CFC00", "ESSO EPI"="#C71585")
diceepilepsyplot <- ggplot2::ggplot(data = diceepso, ggplot2::aes_string(x="Elements",
y="ESSO",
colour = shQuote("ESSO EpSO")), log10="x") +
ggplot2::theme_minimal ()+
ggplot2::theme(panel.grid.major = ggplot2::element_line(colour = "gray"),
panel.grid.minor.y = ggplot2::element_line(colour = "gray"),
legend.text=ggplot2::element_text(size=11),
legend.position=c(0,1),
legend.justification=c(0, 0),
legend.direction="horizontal",
legend.title = ggplot2::element_blank(),
plot.title = ggplot2::element_text(size = 11, face = "bold"),
axis.title.x = ggplot2::element_text(size = 11, face = "bold"),
axis.title.y = ggplot2::element_text(size = 11, face = "bold"),
axis.text.x = ggplot2::element_text(size = 11)) +
ggplot2::labs (y="DiceTopK", x="TopK", title = "DiceTopK of Epilepsy Ontologies", subtitle = "") +
ggplot2::geom_step(size=1) +
ggplot2::geom_step(data = diceepso, ggplot2::aes_string(x="Elements", y="EPILONT", colour = shQuote("EpSO EPI")), size=1) +
ggplot2::geom_step(data = diceesso, ggplot2::aes_string(x="Elements", y="EPILONT", colour = shQuote("ESSO EPI")), size=1) +
ggplot2::coord_trans(limx = c(0,919),limy = c(0.85,1)) +
ggplot2::scale_x_continuous(breaks = c(0, 250, 500, 750, 919)) +
ggplot2::scale_y_continuous(breaks = c(0.85, 0.9, 0.95, 1)) +
ggplot2::scale_colour_manual(name="Dictionary",values=cols)+
ggplot2::scale_size_manual()
return (diceepilepsyplot)
}
#' Creates the plot for all cosine coefficients against drugbank
#'
#' @param cosineepso the data frame containing the columns with the cosine coefficients of epi and esso against epso
#' @param cosineesso the data frame containing the columns with the cosine coefficients of epi and epso against esso
#'
#'
#' @return cosineplotdrugbank the ggplot object
#'
#' @importFrom ggplot2 ggplot
#' @importFrom ggplot2 theme_minimal
#' @importFrom ggplot2 theme
#' @importFrom ggplot2 labs
#' @importFrom ggplot2 geom_step
#' @importFrom ggplot2 coord_trans
#' @importFrom ggplot2 scale_x_continuous
#' @importFrom ggplot2 scale_y_continuous
#' @importFrom ggplot2 scale_colour_manual
#' @importFrom ggplot2 scale_size_manual
#' @importFrom ggplot2 aes_string
#' @importFrom ggplot2 element_line
#' @importFrom ggplot2 element_blank
#' @importFrom ggplot2 element_text
#'
#' @examples
#' \dontrun{
#' cosineepilepsyplot <- createCosinePlotAll(cosineepso, cosineesso)
#' }
createCosinePlotAll <- function(cosineepso, cosineesso) {
cols <- c("ESSO EpSO" = "#8A2BE2", "EpSO EPI"="#7CFC00", "ESSO EPI"="#C71585")
#drugbanklabel <- djaccard %>% filter(DrugBank == max(DrugBank)) %>% mutate(point_label = "DrugBank")
#geom_text(data = drugbanklabel, aes(label=point_label), show.legend = FALSE, hjust=+0.3, vjust=-1) +
cosineepilepsyplot <- ggplot2::ggplot(data = cosineepso, ggplot2::aes_string(x="Elements",
y="ESSO",
colour = shQuote("ESSO EpSO")), log10="x") +
ggplot2::theme_minimal ()+
ggplot2::theme(panel.grid.major = ggplot2::element_line(colour = "gray"),
panel.grid.minor.y = ggplot2::element_line(colour = "gray"),
legend.text=ggplot2::element_text(size=11),
legend.position=c(0,1),
legend.justification=c(0, 0),
legend.direction="horizontal",
legend.title = ggplot2::element_blank(),
plot.title = ggplot2::element_text(size = 11, face = "bold"),
axis.title.x = ggplot2::element_text(size = 11, face = "bold"),
axis.title.y = ggplot2::element_text(size = 11, face = "bold"),
axis.text.x = ggplot2::element_text(size = 11)) +
ggplot2::labs (y="CosineTopK", x="TopK", title = "CosineTopK of Epilepsy Ontologies", subtitle = "") +
ggplot2::geom_step(size=1) +
ggplot2::geom_step(data = cosineepso, ggplot2::aes_string(x="Elements", y="EPILONT", colour = shQuote("EpSO EPI")), size=1) +
ggplot2::geom_step(data = cosineesso, ggplot2::aes_string(x="Elements", y="EPILONT", colour = shQuote("ESSO EPI")), size=1) +
ggplot2::coord_trans(limx = c(0,919),limy = c(0.85,1)) +
ggplot2::scale_x_continuous(breaks = c(0, 250, 500, 750, 919)) +
ggplot2::scale_y_continuous(breaks = c(0.85, 0.9, 0.95, 1)) +
ggplot2::scale_colour_manual(name="Dictionary",values=cols)+
ggplot2::scale_size_manual()
return (cosineepilepsyplot)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.