war_total %>%
filter(Year == 2018) %>%
top_n(60, wt = WAR) %>%
ggplot(aes(reorder(Player, -WAR), WAR, fill = Position))+
geom_bar(stat = "identity", alpha = .7)+
scale_fill_manual(
values = mycolors,
limits = names(mycolors)
)+
geom_vline(xintercept=which(war18$Player == 'Antonio Brown' | war18$Player == "O.J. Howard" | war18$Player == "Greg Zuerlein" | war18$Player == "Los Angeles Rams" |war18$Player == "Rob Gronkowski"))+
theme_classic()+
theme(text = element_text(size=8),
axis.text.x = element_text(angle=45, hjust=1))+
theme(axis.title.x=element_blank(),
axis.ticks.x=element_blank())+
ggtitle("2018")+
theme(plot.title = element_text(hjust = 0.5))`
我订购了60个单独的geom_bar因子,并希望在条形顶部标注5个块,以便5个注释中的每一个在12秒内对条形进行分组。因此,例如,注释“ Round 1”将在前12个小节上,“ Round 2”将在接下来的12个小节上,依此类推。我在网上看到的所有内容都引用一个特定的小节以将注释的位置与之关联。我想让它更自由流动。
基本上在x轴上是一堆NFL球员的名字。我已经手动在x轴上的每个第12个播放器上创建了一条垂直线,并且我希望注释在每组12个的小节上方。