data(dxsmall)
# dxsmall <- readRDS("dxsmall.rds")
genescovs <- cbind(as.data.frame(colData(dxsmall)),
t(assays(dxsmall)$logcounts))
is.na(genescovs$FAB) <- genescovs$FAB == "pending"
library(reshape2)
melted <- melt(genescovs)
library(ggbeeswarm)
p <- ggplot()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.