geom_text comment positionner le texte sur la barre que je veux?

Je voudrais ajuster le texte sur la barplot.

J'ai essayé d'ajuster hjust/vjust à s'afficher comme je l'aime, mais il semble qu'il ne fonctionne pas correctement.

ggplot(data) + 
        geom_bar(aes(name, count, 
        fill = week), stat='identity', position = 'dodge') +
        geom_text(aes(name,count, 
        label=count),hjust=0.5, vjust=3, size=2,
        position = position_dodge(width = 1)) + 
        coord_flip()

Je voudrais donc le nombre de situer sur chaque barre, au milieu, sur le côté droit de sorte qu'il est lisible sans qu'elles se chevauchent comme la dernière des parties.

Vous avez besoin d'inclure suffisamment de données pour faire de votre exemple reproductible.

OriginalL'auteur tmhs | 2016-10-24

Edit:

La solution plus facile à obtenir hjust/vjust à se comporter de manière intelligente consiste à ajouter le group esthétique à geom_text et puis hjust & position ajuster pour le group automatiquement.

1. Orientation Verticale

ggplot(data) + 
  geom_bar(
    aes(x = name, y = count, fill = week, group = week), 
    stat='identity', position = 'dodge'
  ) +
  geom_text(
    aes(x = name, y = count, label = count, group = week),
    position = position_dodge(width = 1),
    vjust = -0.5, size = 2
  ) + 
  theme_bw()

Cela donne:

geom_text comment positionner le texte sur la barre que je veux?

2. Orientation Horizontale

ggplot(data) + 
  geom_bar(
    aes(x = name, y = count, fill = week, group = week), 
    stat='identity', position = 'dodge'
  ) +
  geom_text(
    aes(x = name, y = count, label = count, group = week), 
    hjust = -0.5, size = 2,
    position = position_dodge(width = 1),
    inherit.aes = TRUE
  ) + 
  coord_flip() + 
  theme_bw()

Cela donne:

geom_text comment positionner le texte sur la barre que je veux?

Ce n'est pas forcément la manière la plus générale pour ce faire, mais vous pouvez avoir un fill dépendante hjust (ou vjust, selon l'orientation) de la variable. Il n'est pas tout à fait clair pour moi comment faire pour sélectionner la valeur du paramètre de réglage, et actuellement c'est basé sur ce semble droit. Peut-être quelqu'un d'autre peut vous suggérer une façon plus générale de la cueillette de la valeur de ce paramètre.

1. Orientation Verticale

library(dplyr)
library(ggplot2)

# generate some data
data = data_frame(
  week = as.factor(rep(c(1, 2), times = 5)),
  name = as.factor(rep(LETTERS[1:5], times = 2)),
  count = rpois(n = 10, lambda = 20),
  hjust = if_else(week == 1, 5, -5),
  vjust = if_else(week == 1, 3.5, -3.5)
)

# Horizontal
ggplot(data) + 
  geom_bar(
    aes(x = name, y = count, fill = week, group = week), 
    stat='identity', position = 'dodge'
  ) +
  geom_text(
    aes(x = name, y = count, label = count, vjust = vjust), 
    hjust = -0.5, size = 2,
    inherit.aes = TRUE
  ) + 
  coord_flip() + 
  theme_bw()

Voici à quoi ça ressemble:

geom_text comment positionner le texte sur la barre que je veux?

2. Orientation Horizontale

ggplot(data) + 
  geom_bar(
    aes(x = name, y = count, fill = week, group = week), 
    stat='identity', position = 'dodge'
  ) +
  geom_text(
    aes(x = name, y = count, label = count, vjust = vjust), 
    hjust = -0.5, size = 2,
    inherit.aes = TRUE
  ) + 
  coord_flip() + 
  theme_bw()

Voici à quoi ça ressemble:

geom_text comment positionner le texte sur la barre que je veux?

C'est certainement le outlook j'ai en fin de compte à créer, mais quand je l'applique sur mon travail, il retourne une Erreur dans la fonction eval(expr, envir, enclos) : l'objet "vjust' ne trouve pas. comment vjust=vjust travail? quelle est la logique derrière cela?
Avez-vous de mettre à jour les données, en utilisant le code que j'ai donné? Vous aurez besoin de créer une nouvelle variable dans votre ensemble de données appelé vjust/hjustqui contient le fill variable dépendante de la valeur de réglage. Après avoir dit tout cela, qui serait nécessaire pour cette version de la solution, mais je vais mettre à jour la solution de sorte qu'il devient beaucoup plus facile de le faire.
Merci beaucoup! J'ai vérifié le vjust/hjust après vos commentaires, et je me demandais comment l'automatiser! Le groupement option est vraiment intelligente et efficace je pense! Je vous remercie beaucoup pour votre aide!

OriginalL'auteur tchakravarty

5

La position_dodge() déclaration prend un paramètre de largeur. Pour s'assurer que le texte est centré à la fin de l'bars (c'est à dire, l'esquivant la largeur des barres et le texte à l'identique), donner le même paramètre de largeur de la position_dodge() de la déclaration dans les geom_bar et dans geom_text.

Il y a aussi un paramètre de largeur pour geom_bar, c'est la largeur des barres. Si vous voulez les barres de bout à bout les uns contre les autres au sein de chaque name, faire de la largeur de la barre de la même que la esquivant largeur; si vous voulez un petit écart entre les barreaux, faire de la largeur de la barre un peu moins de la esquivant largeur.

Si vous utilisez l'esthétique globale, vous n'aurez pas besoin d'un group esthétique (cependant, en utilisant uniquement l'esthétique locale, vous aurez besoin d'un groupe esthétique pour geom_text).

hjust = -0.5 sera la position de la étiquettes de texte juste au-delà de la fin de l'bars; hjust = 1.5 les positions à l'intérieur de la fin de l'bars.
```
library(ggplot2)

# Generate some data - using @tchakravarty's data - Thanks.
df = data.frame(
  week = as.factor(rep(c(1, 2), times = 5)),
  name = as.factor(rep(LETTERS[1:5], times = 2)),
  count = rpois(n = 10, lambda = 20))

position = position_dodge(width = .75)
width = .75

ggplot(df, aes(x = name, y = count, label = count, fill = week)) + 
  geom_bar(width = width, stat='identity', position = position) +
  geom_text(hjust = -0.5, size = 2, position = position) +
  coord_flip() + 
  theme_bw()



# To separate the bars slightly:
position = position_dodge(width = .75)
width = .65

ggplot(df, aes(x = name, y = count, label = count, fill = week)) + 
  geom_bar(width = width, stat='identity', position = position) +
  geom_text(hjust = -0.5, size = 2, position = position) +
  coord_flip() + 
  theme_bw()
```
C'est très efficace et de façon plus rapide pour tracer le graphique! Merci @sandy-muspratt

OriginalL'auteur Sandy Muspratt

Vous devez vous connecter pour publier un commentaire.