Displaying 4 results from an estimated 4 matches for "cvdf_melt".
2024 Jun 26
2
Ayuda para hacer una lista
...;-
list(dat1, dat2, dat3)*
cv.df <- lapply(list.gp, function(x){(apply(x,1,sd)/rowMeans(x))*100})
cvdf <-as.data.frame(do.call("cbind", cv.df))
colnames(cvdf)<-c(varnames)
###### crear la figura
palette<-rep(c(randomColor(y, luminosity="random")), times=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...
2024 Jun 26
1
Ayuda para hacer una lista
...lapply(list.gp, function(x){(apply(x,1,sd)/rowMeans(x))*100})
> cvdf <-as.data.frame(do.call("cbind", cv.df))
> colnames(cvdf)<-c(varnames)
>
> ###### crear la figura
>
> palette<-rep(c(randomColor(y, luminosity="random")), times=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.g...
2024 Jun 27
2
Ayuda para hacer una lista
...1,sd)/rowMeans(x))*100})
> > cvdf <-as.data.frame(do.call("cbind", cv.df))
> > colnames(cvdf)<-c(varnames)
> >
> > ###### crear la figura
> >
> > palette<-rep(c(randomColor(y, luminosity="random")), times=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))+
> > th...
2024 Jun 28
1
Ayuda para hacer una lista
...>>> cvdf <-as.data.frame(do.call("cbind", cv.df))
>>> colnames(cvdf)<-c(varnames)
>>>
>>> ###### crear la figura
>>>
>>> palette<-rep(c(randomColor(y, luminosity="random")), times=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)...