# dose distribution per drug
require(dplyr)
dose_dist <- function(data=antidep){
data2 <- data[data$drug!='placebo',]
data2$tindex <- as.factor(as.numeric(factor(data2$drug)))
ggplot(data = data2, aes(x=drug, y=dose)) +
facet_wrap( ~ drug, scales="free")+
xlab('agent')+
geom_dotplot(binaxis='y', stackdir='center', dotsize=3,col='orange')+
theme(axis.text.x=element_blank(),
axis.ticks.x=element_blank())
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.