Wie Fügen Sie Daten Etiketten zu ggplot

Versucht, fügen Sie Daten Etiketten zu einem barplot, mit ggplot gibt mir die folgende Fehlermeldung:

Error: geom_text requires the following missing aesthetics: x

Meine sample-Daten ist wie folgt:

| Team          | Goals     |
|------------   |-------    |
| Manchester    | 26        |
| Liverpool     | 25        |
| Man City      | 30        |
| Chelsea       | 32        |
| Arsenal       | 11        |
| West Ham      | 22        |
| Stoke         | 23        |

Und hier ist der code, den ich benutze, um erstellen Sie einen barplot.

g<- ggplot(data = scores) + 
  geom_bar(mapping = aes(x=Team, y=Goals, color = Team, fill = Team), 
           stat = "identity")
g <- g + ggtitle("Goals per Team") + ylab("Number of Goals")
g <- g + theme_bw() + theme(legend.position="none") + theme(plot.title = element_text(hjust = 0.5))
g + geom_text(aes(y=Goals, label=Goals))
g

Sogar, wenn ich x = Team im g + geom_text(aes(x = Team, y=Goals, label=Goals)) es gibt mir immer noch den gleichen Fehler.

Was mache ich hier falsch?

Sie haben x=Team innen geom_bar, so geom_text gar nicht kennt. Wenn Sie möchten, eine ästhetische, für alle gelten geoms, steckte es in das Haupt-Anruf zu ggplot. Zum Beispiel, in deinem Fall tun ggplot(data = scores, aes(x=Team, y=Goals)) und dann brauchen Sie nicht zu erwähnen, diese Zuordnungen wieder in geom_bar oder geom_text. Wenn Sie möchten, dass die text-Etiketten abgebildet werden, um Farbe, fügen Sie dann colour=Team innerhalb der main-Aufruf ggplot als gut.

InformationsquelleAutor user2762934 | 2017-04-03

  1. 9

    Putting alle zusammen aus den Kommentar und das hinzufügen reodering des teams durch die Anzahl der Ziele, die den code unten

    # add on: reorder teams by number of goals
scores$Team <- with(scores, reorder(Team, -Goals))
g <- ggplot(scores, 
            # keep all aesthetics in one place
            aes(x = Team, y = Goals, color = Team, fill = Team, label = Goals)) +
  # replacement of geom_bar(stat = "identity")
  geom_col() +
  # avoid overlap of text and bar to make text visible as bar and text have the same colour 
  geom_text(nudge_y = 1) + 
  # alternatively, print text inside of bar in discriminable colour
  # geom_text(nudge_y = -1, color = "black") + 
  ggtitle("Goals per Team") + 
  xlab("Team") + ylab("Number of Goals") +
  theme_bw() + theme(legend.position = "none") + 
  theme(plot.title = element_text(hjust = 0.5))
g

    entsteht dieses Diagramm:

    Wie Fügen Sie Daten Etiketten zu ggplot

    Daten

    scores <- structure(list(Team = structure(c(3L, 4L, 2L, 1L, 7L, 6L, 5L), .Label = c("Chelsea", 
"Man City", "Manchester", "Liverpool", "Stoke", "West Ham", "Arsenal"
), class = "factor", scores = structure(c(-11, -32, -25, -30, 
-26, -23, -22), .Dim = 7L, .Dimnames = list(c("Arsenal", "Chelsea", 
"Liverpool", "Man City", "Manchester", "Stoke", "West Ham")))), 
    Goals = c(26L, 25L, 30L, 32L, 11L, 22L, 23L)), .Names = c("Team", 
"Goals"), row.names = c(NA, -7L), class = "data.frame")

    InformationsquelleAutor Uwe

Schreibe einen Kommentar