Plotting means and error bars

Postez ici vos questions, réponses, commentaires ou suggestions - Les sujets seront ultérieurement répartis dans les archives par les modérateurs

Modérateur : Groupe des modérateurs

Claude Mande
Messages : 1
Enregistré le : 24 Jan 2018, 08:12

Plotting means and error bars

Messagepar Claude Mande » 13 Juil 2018, 09:52

Bonjour

Comment ajuster l'échelle de l'axe des Y avec des valeurs décimales?
Que faudrait réellement compléter dans ces scripts pour que ggplot2 accepte des étiquettes à au moins deux mots?
Ci-dessous un extrait d'opération permettant à quiconque de comprendre mon souci.

Claude.

Code : Tout sélectionner

> library(readr)

Code : Tout sélectionner

> data <- read_csv("G:/dataset/data.csv")

Code : Tout sélectionner

> library(reshape2)

Code : Tout sélectionner

> data_long<-melt(data=data,id.vars = "subject",measure.vars=c("FRUof", "NECof", "AINof", "FRUef","NECef","AINef"), variable.name="Dit")


Code : Tout sélectionner

> names(data_long)[names(data_long)=="value"]<-"Capture"

Code : Tout sélectionner

> data_long$Dietary<-NA

Code : Tout sélectionner

> data_long$Dietary[grepl("^FRU",  data_long$Dit)] <- "FRU"

Code : Tout sélectionner

> data_long$Dietary[grepl("^NEC", data_long$Dit)] <- "NEC"

Code : Tout sélectionner

> data_long$Dietary[grepl("^AIN", data_long$Dit)] <- "AIN"

Code : Tout sélectionner

> data_long$Dietary<-factor(data_long$Dietary)

Code : Tout sélectionner

> data_long$Habitat<-NA

Code : Tout sélectionner

> data_long$Habitat[grepl("of$",  data_long$Dit)] <- "Of"

Code : Tout sélectionner

> data_long$Habitat[grepl("ef$", data_long$Dit)] <- "Ef"

Code : Tout sélectionner

> data_long$Habitat<-factor(data_long$Habitat, levels=c("Of","Ef"))

Code : Tout sélectionner

> data_long$Dit<-NULL


Code : Tout sélectionner

> library(Rmisc)

Code : Tout sélectionner

> datc<-summarySEwithin(data_long,measurevar = "Capture",withinvars = c("Dietary","Habitat"),idvar = "subject")


Code : Tout sélectionner

> library(ggplot2)

Code : Tout sélectionner

> ggplot(datc, aes(x=Dietary, y=Capture, fill=Habitat)) + geom_bar(position=position_dodge(.9), colour="black", stat="identity") + geom_errorbar(position=position_dodge(.9), width=.1, aes(ymin=Capture-se, ymax=Capture+se)) + coord_cartesian(ylim=c(0,1)) + scale_fill_manual(values=c("#CCCCCC","#FFFFFF")) + scale_y_continuous(breaks=seq(1:100)) + theme_bw() + geom_hline(yintercept=20)

Eric Casellas
Messages : 767
Enregistré le : 06 Jan 2009, 14:59

Re: Plotting means and error bars

Messagepar Eric Casellas » 13 Juil 2018, 10:14

Bonjour,

J'imagine que ça viens de moi mais je n'ai pas vu de question dans ton post...
Et sinon le code que tu met n'étant pas reproductible, difficile d'en faire quoi que ce soit de notre coté (voir http://forums.cirad.fr/logiciel-R/viewtopic.php?f=1&t=7638).

Eric
Eric


Retourner vers « Questions en cours »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité