R dplyr group，ungroup，top_n和ggplot

Question

我有一个包含城市，州，年份和谋杀数量在内的多个值的对象。我用dplyr它组由城市和计算超过所有年份的总谋杀的前10个城市是这样的：

MurderNb_reshaped2 %>% 
    select(city, state, Year, Murders) %>% 
    group_by(city) %>% 
    summarise(total = sum(Murders)) %>% 
    top_n(10, total) %>% 
    ggplot(aes(x = Year, y = Murders, fill = "red")) + 
    geom_histogram(stat = "identity") + 
    facet_wrap(~city) 

我想绘制这个只对十大城市，不是'x =一年没有找到，因为它已按城市分组。任何人都可以解释我怎么能做到这一点？

编辑：这个原始源数据https://interactive.guim.co.uk/2017/feb/09/gva-data/UCR-1985-2015.csv 这里是我的代码：

Deaths <- read.csv("UCR-1985-2015.csv", stringsAsFactors = F) 
MurderRate <- Deaths[, -c(5:35)] 
MurderNb <- Deaths[, -c(36:66)] 
colnames(MurderNb) <- gsub("X", "", colnames(MurderNb)) 
colnames(MurderNb) <- gsub("_raw_murder_num", "", colnames(MurderNb)) 

MurderNb_reshaped <- melt(MurderNb, id = c("city", "Agency", "state", "state_short")) 
colnames(MurderNb_reshaped) <- c("city", "Agency", "state", "state_short", "Year", "Murders") 


MurderNb_reshaped2 <- MurderNb_reshaped 

MurderNb_reshaped2 %>% 
    select(city, state, Year, Murders) %>% 
    group_by(city) %>% 
    summarise(total = sum(Murders)) %>% 
    top_n(10, total) %>% 
    ggplot(aes(x = Year, y = Murders, fill = "red")) + 
    geom_bar(stat = "identity") + 
    facet_wrap(~city) 

Answer 1

好有一对夫妇小问题。这应该是诀窍：

#this gives you the top cities 
topCities <- MurderNb_reshaped2 %>% 
    select(city, state, Year, Murders) %>% 
    group_by(city) %>% 
    summarise(total = sum(Murders)) %>% 
    top_n(10, total) 

#you then need to filter your original data to be only the data for the top cities 
MurderNb_reshaped2 <- filter(MurderNb_reshaped2, city %in% topCities$city) 

ggplot(data = MurderNb_reshaped2, aes(x = Year, y = Murders, fill = "red")) + 
geom_bar(stat = "identity") + 
facet_wrap(~city)