¿Cómo elimino los valores negativos del Grafico? (es comparativo)
¿Cómo elimino los puntos a los nombres de los ejes? (me sale error si los borro)
Mi código actual es:
library(reshape2)
library(plyr)
require(RColorBrewer)
library(ggplot2)
sexcafe<- read.csv("sexcaf.csv", header = TRUE, sep = ";")
sexcafe$Macho<--1*sexcafe$Machosexcafe$Rango.peso<-factor(sexcafe$Rango.peso, levels = sexcafe$Rango.peso,labels = sexcafe$Rango.peso)
sexcafe.melt<-melt(sexcafe, value.name = 'Numero.de.individuos',variable.name = 'sexo',id.vars = 'Rango.peso')
pirsexo <- ggplot(sexcafe.melt, aes(x = Rango.peso, y = Numero.de.individuos, fill = sexo))+
geom_bar(data = subset (sexcafe.melt, sexo == "Macho"), stat = "identity")+
geom_bar(data = subset (sexcafe.melt, sexo == "Hembra"), stat="identity")+
scale_y_continuous(breaks = seq(-200, 200, 50))+
ggtitle("CP")+
coord_flip()+
Tema
pirsexo
El resultado actual es:
La tabla de datos es: