2

Si creo un barplot de esta forma

a<-as.matrix(c(0.75, 0.25))
b<-as.matrix(c(0.33, 0.66)) 
count<-cbind(a,b) 
barplot(count, main="Gráficos apilados", names.arg=c("Otoño","Primavera"),  xlab = "Características", col=c("gainsboro", "pink"), legend=c("op 1", "op. 2")) 

Se le puede agregar al gráfico los porcentajes, o sea que estén los números en el mismo gráfico?

2 respuestas 2

2

Es posible calcular al vuelo las coordenadas de las etiquetas, para evitar tener que ubicar las mismas "a mano":

ys <- apply(count, 2, function(x) c(x[1]/2, head(cumsum(x),-1) + tail(x,-1)/2))
xs <- barplot(count, 
        main="Gráficos apilados", 
        names.arg=c("Otoño","Primavera"),  
        xlab = "Características", 
        col=c("gainsboro", "pink"), legend=c("op 1", "op. 2"))

text(rep(xs, each=nrow(ys)), c(ys), labels=c(count))

Ejemplo:

introducir la descripción de la imagen aquí

1

Se me ocurre que puedes ponerlo directo utilizando text, por ejemplo

text(0.75,0.4,"75%")
text(0.75,0.9,"25%")

para la primer barra.

Saludos

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.