针对两个分类变量创建一个明确的ggplot图形

Question

我想首先道歉，因为没有足够的努力来提问我的问题。我注意到他们并不清楚，并遵守社区要求帮助你更好地帮助你的规则。

我一直有我的代码的麻烦，我不知道如何制作一个明确的切割图，因为我想做它。

问题如下：制作一个条形图，显示每支球队联赛的胜率。图必须尽可能清晰和可读。

这是我的代码：

library(Lahman) 
    library(ggplot2) 
    library(dplyr) 
    library(reshape2) 
    Teams %>% group_by(teamID) %>% 
    filter(!is.na(LgWin == "Y")) %>% 
    ggplot(Teams, mapping = aes(teamID, ..count..)) + 
    geom_bar(mapping = aes(fill = LgWin)) 

画面没有任何意义。请帮忙。

Answer 1

在要绘制的行数结束

每个teamId已经LgWin ==“Y”吧？如果是的话，你可以这样做：

Teams %>% 
    filter(LgWin == "Y") %>% 
    group_by(teamID) %>% 
    summarise(number_of_wins = n()) %>% 
    transform(., teamID = reorder(teamID, number_of_wins)) %>% 
    ggplot(., mapping = aes(x = teamID, number_of_wins)) + 
    geom_bar(stat = "identity", mapping = aes(fill = number_of_wins)) + 
    coord_flip() 

这个结果：

希望这有助于...