Skip to content

Instantly share code, notes, and snippets.

@GuangchuangYu
Created April 19, 2019 06:14
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save GuangchuangYu/874d0f665b0b8c88955c600ac297619e to your computer and use it in GitHub Desktop.
Save GuangchuangYu/874d0f665b0b8c88955c600ac297619e to your computer and use it in GitHub Desktop.
R packages for semantic similarity measurement
d <- data.frame(pkg = c("GOSim", "GOSemSim", "DOSE", "meshes",
"DOSim", "HPOSim", "ppiPre", "MeSHSim", "meshr"),
year = c(2007, 2010, 2015, 2018, 2011, 2015, 2013, 2015, 2015),
journal = c("BMC Bioinformatics", rep("Bioinformatics", 3),
"BMC Bioinformatics", "PLoS One", "BMC Systems Biology",
"Journal of Bioinformatics and computational biology",
"BMC Bioinformatics"),
y = c(1, 1, 2, 3, 2, 4, 5, 2.8, 3.2))
require(ggplot2)
p <- ggplot(d, aes(year, y)) + geom_label(aes(label=paste(pkg, "\n", journal))) +
scale_x_continuous(breaks=2007:2018, limits=c(2006.5, 2018.5)) +
annotate("curve", x=2012, y=5, xend=2010, yend=1.2, colour="steelblue", size=1.2, arrow=arrow(length = unit(0.03, "npc"))) +
annotate("curve", x=2014.4, y=4, xend=2011, yend=2.2, colour="steelblue", size=1.2, arrow=arrow(length = unit(0.03, "npc"))) +
annotate("curve", x=2010.1, y=2, xend=2007, yend=1.2, colour="steelblue", size=1.2, arrow=arrow(length = unit(0.03, "npc"))) +
annotate("text", x=2010, y=4, label="plagiarism", color = "firebrick", size=5, hjust=1) +
annotate("text", x=2012.5, y=4, label="plagiarism", color = "firebrick", size=5, hjust=1) +
annotate("text", x=2008.5, y=2.3, label="plagiarism", color = "firebrick", size=5, hjust=1)
p+ ggtree::theme_tree2()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment