search for: element_line

...------------------------------------------------------------------------script( graph-style.R) : library(grid) theme_custom <- function (base_size = 10, base_family = "serif") {? theme_grey(base_size = base_size, base_family = base_family) %+replace%? ? theme(? ? ? line = ? ? ? ? ? ? ? element_line(colour = "black", size = 0.5, linetype = 1, lineend = "butt"),? ? ? rect = ? ? ? ? ? ? ? element_rect(fill = "white", colour = "black", size = 0.5, linetype = 1),? ? ? text = ? ? ? ? ? ? ? element_text(family = base_family, face = "plain", colour =...

...c(1,1,1)) cvdf_melt<-reshape2::melt(cvdf) g5 <-ggplot( cvdf_melt, aes(x=variable, y=value))+geom_boxplot(color="black",fill=palette, alpha=0.8)+##, fill="Experiment" scale_y_continuous(limits=c(0,100), breaks=seq(0,100, by=10))+ theme_bw()+ theme(panel.grid.major = element_line(colour = "gray85"), panel.grid.minor = element_line(colour = "gray85"), axis.text.x = element_text(color = "black", size = 12,angle=45, hjust=1,vjust=1), axis.text.y= element_text(color = "black", size = 12,angle=0, hjust=0.5,vjust=0.5...

...2::melt(cvdf) > > g5 <-ggplot( cvdf_melt, aes(x=variable, > y=value))+geom_boxplot(color="black",fill=palette, alpha=0.8)+##, > fill="Experiment" > scale_y_continuous(limits=c(0,100), breaks=seq(0,100, by=10))+ > theme_bw()+ > theme(panel.grid.major = element_line(colour = "gray85"), > panel.grid.minor = element_line(colour = "gray85"), > axis.text.x = element_text(color = "black", size = 12,angle=45, > hjust=1,vjust=1), > axis.text.y= element_text(color = "black", size = 12,angle=0, &g...

...g5 <-ggplot( cvdf_melt, aes(x=variable, > > y=value))+geom_boxplot(color="black",fill=palette, alpha=0.8)+##, > > fill="Experiment" > > scale_y_continuous(limits=c(0,100), breaks=seq(0,100, by=10))+ > > theme_bw()+ > > theme(panel.grid.major = element_line(colour = "gray85"), > > panel.grid.minor = element_line(colour = "gray85"), > > axis.text.x = element_text(color = "black", size = 12,angle=45, > > hjust=1,vjust=1), > > axis.text.y= element_text(color = "black", s...

...df_melt, aes(x=variable, >>> y=value))+geom_boxplot(color="black",fill=palette, alpha=0.8)+##, >>> fill="Experiment" >>> scale_y_continuous(limits=c(0,100), breaks=seq(0,100, by=10))+ >>> theme_bw()+ >>> theme(panel.grid.major = element_line(colour = "gray85"), >>> panel.grid.minor = element_line(colour = "gray85"), >>> axis.text.x = element_text(color = "black", size = 12,angle=45, >>> hjust=1,vjust=1), >>> axis.text.y= element_text(color = &quot...

...dev.new(width=4, height=2.75) par(mar = c(0,6,0,0)) p1<-ggplot(data = MS1, aes(x= Jahr, y= QI_A,group=Bio,color=Bio, linetype=Bio)) + geom_smooth(aes(fill=Bio) , method = "lm" , formula = y ~ x + I(x^2),linewidth=1) + theme(panel.background = element_blank())+ theme(axis.line = element_line(colour = "black"))+ theme(axis.text=element_text(size=18))+ theme(axis.title=element_text(size=20))+ ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ scale_color_manual(values=c("red","dark green"), labels=c("?LN", "BIO"))+ sca...

...mes(MS1s)[2]<-"Bio" MS1s p1<-ggplot(MS1s, aes(Jahr, fill = as.factor(Bio))) + geom_boxplot( aes(ymin = y0, lower = y25, middle = y50, upper = y75, ymax = y100), stat = "identity", notch=TRUE ) + theme(panel.background = element_blank())+ theme(axis.line = element_line(colour = "black"))+ theme(axis.text=element_text(size=18))+ theme(axis.title=element_text(size=20))+ ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ scale_color_manual(values=c("red","darkgreen"), labels=c("?LN", "BIO"))+ s...

...ll = as.factor(Bio))) + > > geom_boxplot( > > aes(ymin = y0, lower = y25, middle = y50, upper = y75, ymax = y100), > > stat = "identity", notch=TRUE > > ) + > > theme(panel.background = element_blank())+ > > theme(axis.line = element_line(colour = "black"))+ > > theme(axis.text=element_text(size=18))+ > > theme(axis.title=element_text(size=20))+ > > ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ > > scale_color_manual(values=c("red","darkgreen"),...

...2]<-"Bio" MS1s p1<-ggplot(MS1s, aes(Jahr, fill = as.factor(Bio))) + geom_boxplot( aes(ymin = y0, lower = y25, middle = y50, upper = y75, ymax = y100), stat = "identity", notch=TRUE ) + theme(panel.background = element_blank())+ theme(axis.line = element_line(colour = "black"))+ theme(axis.text=element_text(size=18))+ theme(axis.title=element_text(size=20))+ ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ scale_color_manual(values=c("red","darkgreen"), labels=c("?LN", "BIO"))+...

...=Bio, linetype=Bio)) + geom_smooth(aes(fill=Bio, ymax=after_stat(y+se*sqrt(length(y))), ymin=after_stat(y-se*sqrt(y))) , method = "lm" , formula = y ~ x + I(x^2),linewidth=1) + theme(panel.background = element_blank())+ theme(axis.line = element_line(colour = "black"))+ theme(axis.text=element_text(size=18))+ theme(axis.title=element_text(size=20))+ ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ scale_color_manual(values=c("red","darkgreen"), labels=c("?LN", &quo...

...par(mar = c(0,6,0,0)) > p1<-ggplot(data = MS1, aes(x= Jahr, y= QI_A,group=Bio,color=Bio, > linetype=Bio)) + > geom_smooth(aes(fill=Bio) , method = "lm" , formula = y ~ x + > I(x^2),linewidth=1) + > theme(panel.background = element_blank())+ > theme(axis.line = element_line(colour = "black"))+ > theme(axis.text=element_text(size=18))+ > theme(axis.title=element_text(size=20))+ > ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ > scale_color_manual(values=c("red","dark green"), labels=c("?LN", &...

...geom_smooth(aes(fill=Bio, > ymax=after_stat(y+se*sqrt(length(y))), ymin=after_stat(y-se*sqrt(y))) , > method = "lm" , formula = y ~ x + I(x^2),linewidth=1) + > > theme(panel.background = element_blank())+ > > theme(axis.line = element_line(colour = "black"))+ > > theme(axis.text=element_text(size=18))+ > > theme(axis.title=element_text(size=20))+ > > ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ > > scale_color_manual(values=c("red","darkgreen&qu...

...) >par(mar = c(0,6,0,0)) >p1<-ggplot(data = MS1, aes(x= Jahr, y= QI_A,group=Bio,color=Bio, >linetype=Bio)) + > geom_smooth(aes(fill=Bio) , method = "lm" , formula = y ~ x + >I(x^2),linewidth=1) + > theme(panel.background = element_blank())+ > theme(axis.line = element_line(colour = "black"))+ > theme(axis.text=element_text(size=18))+ > theme(axis.title=element_text(size=20))+ > ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ > scale_color_manual(values=c("red","dark green"), labels=c("?LN", >&qu...

...<-ggplot(data = MS1, aes(x= Jahr, y= QI_A,group=Bio,color=Bio, >> linetype=Bio)) + >> ???????? geom_smooth(aes(fill=Bio) , method = "lm" , formula = y ~ x + >> I(x^2),linewidth=1) + >> ????theme(panel.background = element_blank())+ >> ????theme(axis.line = element_line(colour = "black"))+ >> ?? theme(axis.text=element_text(size=18))+ >> ?? theme(axis.title=element_text(size=20))+ >> ????ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ >> ????scale_color_manual(values=c("red","dark green"), label...

...t; p1<-ggplot(MS1s, aes(Jahr, fill = as.factor(Bio))) + > geom_boxplot( > aes(ymin = y0, lower = y25, middle = y50, upper = y75, ymax = y100), > stat = "identity", notch=TRUE > ) + > theme(panel.background = element_blank())+ > theme(axis.line = element_line(colour = "black"))+ > theme(axis.text=element_text(size=18))+ > theme(axis.title=element_text(size=20))+ > ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ > scale_color_manual(values=c("red","darkgreen"), labels=c("?LN"...

...%)") + facet_wrap(~Type,nrow=3) myplot + theme(panel.grid.major = element_blank(), legend.title=element_blank(), panel.grid.minor = element_blank(), panel.background = element_blank(), axis.title.x = element_blank(), axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1), axis.line = element_line(colour = "black")) My issue is that Y axis is crammed. How it can be cleaned up and say feature only say these values: 0, 10, 20,30, ...80. I tried using: scale_y_continuous(breaks = breaks_width(10))+ But I got this error: Error in breaks_width(10) : could not find function "break...

...anel.grid.major = element_blank(), panel.grid.minor = element_blank(), panel.border = element_blank(), axis.ticks = element_blank()) p3<-p2+theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), panel.background = element_blank(), axis.line = element_line(colour = "black")) p4<-p3+scale_color_manual(breaks = c("-1", "0", "1"), values=c("darkblue", "green", "red")) *My question is:* What if I was to repeat the analysis and standardize the beta (z-score...

...anel.grid.major = element_blank(), panel.grid.minor = element_blank(), panel.border = element_blank(), axis.ticks = element_blank()) p3<-p2+theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), panel.background = element_blank(), axis.line = element_line(colour = "black")) p4<-p3+scale_color_manual(breaks = c("-1", "0", "1"), values=c("darkblue", "green", "red")) My question is: What if I was to repeat the analysis and standardize the beta (z-score)...

Petr, there was a thinko in your response. tmp <- data.frame(m=factor(letters[1:4]), n=1:4) tmp tmp$m <- factor(tmp$m, levels=c("c","b","a","d")) ## right tmp[order(tmp$m),] tmp <- data.frame(m=factor(letters[1:4]), n=1:4) levels(tmp$m) <- c("c","b","a","d") ## wrong tmp[order(tmp$m),] changing levels

Hi After melt you can change levels of your factor variable. Again with the toy example. > levels(temp$variable) [1] "y1" "y2" "y3" "y4" > levels(temp$variable) <- levels(temp$variable)[c(2,4,1,3)] > levels(temp$variable) [1] "y2" "y4" "y1" "y3" > And you will get graphs with this new levels ordering.