我有一个脚本,它可以下载一堆关于一些空军基地周围区域的 COVID 数据并生成一个图表。我打算尝试使用一个大的 dput() 来重现它,但是对于一个帖子来说它的字符太多了。复制数据帧的 dput() 可以从这里复制。
数据本身看起来像
head(smDailyBaseData)
DaysSince Base abbv newRate label
<drtn> <chr> <chr> <dbl> <chr>
1 7 days Edwards EdwardsAFB 0 "Edwards \n 0"
2 8 days Edwards EdwardsAFB 0.00000140 "Edwards \n 2"
3 9 days Edwards EdwardsAFB 0.00000140 "Edwards \n 0"
4 10 days Edwards EdwardsAFB 0.00000140 "Edwards \n 0"
5 11 days Edwards EdwardsAFB 0.00000140 "Edwards \n 0"
6 12 days Edwards EdwardsAFB 0.00000140 "Edwards \n 0"
对于 737 行...
情节代码是
#endpoint layer
BaseEndpoints <- smDailyBaseData %>%
group_by(Base) %>%
filter(DaysSince == max(DaysSince)) %>%
select(Base, abbv, DaysSince, newRate,label) %>%
ungroup()
ZoomEndpoints <- BaseEndpoints %>% filter(Base != 'Hanscom') %>%
mutate(zoom = TRUE)
MAEndPoint <- BaseEndpoints %>% filter(Base == 'Hanscom') %>%
mutate(zoom = FALSE)
ZoomEndpoints <- rbind(ZoomEndpoints, MAEndPoint)
BasePlot <- smDailyBaseData %>%
ggplot(mapping = aes(x = as.numeric(DaysSince), y = newRate)) +
geom_line(aes(color=abbv),show.legend = FALSE) +
scale_color_ucscgb() +
geom_point(data = BaseEndpoints,size = 1.5,shape = 21,
aes(color = abbv,fill = abbv), show.legend = FALSE) +
geom_label_repel(data=ZoomEndpoints, aes(label=label), show.legend = FALSE,
vjust = 0) +
labs(x = "Days Since First Confirmed Case",
y = "% Local Population Infected Daily") +
theme(plot.title = element_text(size = rel(1), face = "bold"),
plot.subtitle = element_text(size = rel(0.7)),
plot.caption = element_text(size = rel(1))) +
facet_zoom(xlim = c(50,130), ylim=c(0,0.0075),zoom.data=zoom)
print(BasePlot)
结果就是这个情节
尽管缩放,但仍然有点拥挤,标签覆盖了大量数据。我想让所有标签在缩放图的右侧排成一排,所有空白区域都在此处(例如,在 x 轴上 120 以上),然后它们可以有更长的线来连接端点。但我一直没能做到这一点。我已经尝试润湿direction
y 并hjust
按照此处所述使用,但没有得到我正在寻找的距离或对齐方式。
任何指导将不胜感激。