p<-ggplot(data=data,aes(x=sample,y=expression,fill=sample))p1<-p+geom_boxplot()+mythe+theme(axis.text.x=element_text(angle=90))+xlab(NULL)+ylab("Expression of genes")#+scale_fill_nejm()p1ggsave("1.sample_boxplot
(data) # 箱线图 p <- ggplot(data = data, aes(x=sample, y=expression, fill=sample)) p1 <- p + geom_boxplot() + mythe + theme(axis.text.x = element_text(angle = 90)) + xlab(NULL) + ylab("Expression of genes") #+ scale_fill_nejm() p1 ggsave("1.sample_boxplot.png",...
Utility functions that retrieve information from, remove elements of, and add text to a plot object created by ggplot2 - GitHub - statech/ggutils: Utility functions that retrieve information from, remove elements of, and add text to a plot object created