R语言pdf png画图

pdf(\\

par(mfrow=c(6,3), mar=c(3,3,3,3), cex=1, bg=\g=”red\

for (i in 1:17) {

y <- log2(flower[,i])

hist(y, xlim=c(-10,15), main=colnames(flower)[i], col=\llow\box() }

dev.off()

>example<- read.csv(\ow.names = 1)

>library(gridExtra) >library(ggplot2)

>jpeg(\s = 600)

>p <- ggplot(example, aes(x=Genotype, color=Genotype)) >p = p + geom_boxplot(aes(y=Leaf.No.),fill=\RUE)

>p = p + theme_bw() + theme(axis.line = element_line(colour = \

+ panel.grid.major = element_blank(), panel.grid.minor = element_blank(),

+ panel.border = element_rect(color=\nel.background = element_blank())

>p = p + scale_color_manual(values=c('red', 'blue')) >p

notch went outside hinges. Try setting notch=FALSE. >a<- ggplot(example, aes(x=Genotype, color=Genotype))

>a = a + geom_boxplot(aes(y=Flowering.Time),fill=\otch=TRUE)

>a = a + theme_bw() + theme(axis.line = element_line(colour = \

+ panel.grid.major = element_blank(), panel.grid.minor = element_blank(),

+ panel.border = element_rect(color=\nel.background = element_blank())

>a = a + scale_color_manual(values=c('magenta', 'green')) >a

notch went outside hinges. Try setting notch=FALSE. >grid.arrange(p,a,nrow=1, ncol=2)

notch went outside hinges. Try setting notch=FALSE. notch went outside hinges. Try setting notch=FALSE. >dev.off() RStudioGD 2

本文来源：https://www.bwwdw.com/article/ur2h.html