!!! This Gist tutorial is deprecated. Its new version is available here !!!
This is some red text.
- Author: Thomas Girke
- Last update: 18-Nov-2020
This is some red text.
######################################## | |
## Import of DrugBank Annotation Data ## | |
######################################## | |
## Function to import DrugBank XML to data.frame | |
## Last step gives error. To debug, the following function may help. | |
## Note, this functions needs some major speed improvements. Ideally, | |
## it should be replaced with a standard XML import method. | |
## (1) Download | |
## - download DrugBank XML (https://www.drugbank.ca/releases/latest) | |
## - name uncompressed file 'drugbank.xml' |
This page outlines how to maintain and sync R packages to both GitHub and Bioconductor's new git source control system.
Note: the master
branch has been renamed to devel
branch following the instructions here (Mar-2023).
## Arranging plots with patchwork. For details see this manual page: https://ggplot2-book.org/arranging-plots.html | |
## Load libraries and create some sample data | |
library(ggplot2); library(reshape2); library(patchwork) | |
iris_mean <- aggregate(iris[,1:4], by=list(Species=iris$Species), FUN=mean) | |
df_mean <- melt(iris_mean, id.vars=c("Species"), variable.name = "Samples", value.name="Values") | |
## Create lots of plots | |
p1 <- ggplot(cbind(iris, Samples="Sepal.Length"), aes(Species, Sepal.Length)) + geom_boxplot(aes(fill = Species)) + ylim(4, 8) + theme(axis.title.x=element_blank(), axis.title.y=element_blank(), legend.position = "none") + facet_grid(rows = ~Samples) + ggtitle("(A)") + theme(plot.title = element_text(hjust=-0.3)) | |
p2 <- ggplot(df_mean[df_mean$Samples=="Sepal.Width",], aes(Species, Values)) + geom_bar(position="dodge", aes(fill = Species), stat="identity") + yli |
############################### | |
## PWM matching in sequences ## | |
############################### | |
## Date: May 22, 2020 | |
## Starter code for ChIP-Seq1 project | |
library(MotifDb) | |
as.list(query(MotifDb, 'athaliana')) | |
as.list(query(MotifDb, 'hsapiens')) |
############################################### | |
## Shiny App Example with Reactive URL Input ## | |
############################################### | |
## Author: Yuzhu Duan & Thomas Girke | |
## Last update: 06-Jul-17 | |
## Usage: save this file under name app.R to your shiny app directory, e.g. reactiveUrl | |
## Run in parent directory the following from within R: | |
## > library(shiny) | |
## > runApp(reactiveUrl) |