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)