superponer - Incluir valores en la barra de barras y los gráficos circulares en R

superponer graficas en r ggplot

Question

Tengo datos en esta forma:

proprete.freq <- table(cnData$proprete)
proprete.freq.genre <-table(cnData$genre,cnData$proprete)

Estoy usando estas funciones (barra de barras y pie) para trazar los datos:

barplot(proprete.freq.genre, col = heat.colors(length(rownames(proprete.freq.genre)))
    , main="Proprete", beside = TRUE)

pie(proprete.freq, col=rainbow(3), names.arg=avis, main="Propreté")

Aquí está el resultado:

Pregunta : Cómo incluir el valor justo encima de las barras de barras y debajo de las variables categóricas para el pie. Algo como eso:

Answer 1

Aquí hay un enfoque general:

1. pie tiene un parámetro de etiquetas para que pueda usarlo, use /n para un salto de línea y agregue texto debajo del nombre
2. barplot tiene un valor de retorno que son las coordenadas x de cada barra, así que simplemente use text junto con los datos (para las coordenadas y), y use pos = 3 para colocar la etiqueta sobre ese punto {x, y} .

ex:

par(mfrow = c(2, 1))
pie(1:3, labels = sprintf(''%s/n%s%%'', 1:3, round(1:3 / 6 * 100)))
bp <- barplot(VADeaths, beside = TRUE)
text(c(bp), c(VADeaths), labels = c(VADeaths), pos = 3, xpd = NA)