带有ggrepel的ggplot代码是否会导致其他人'；什么是撞车？

我正在可视化来自cricinfo的一些蟋蟀数据。我想强调一些球员，满足某些标准，但它不断崩溃的R工作室

#### Libraries ####
library(cricketdata)
library(dplyr)
library(ggrepel)
library(ggplot2)
### Fetching Data ####
menODI <- fetch_cricinfo("ODI", "Men", "Batting", type="career")
#### Creation of New Stat for Batsmen Ranking ####
menODI2 <- menODI %>% 
  mutate(Stat2 = 1- Average  + Hundreds+Fifties/2)
#### Plot ####
menODI2 %>% 
  ggplot(aes(Innings, Stat2)) +
  geom_point()+
  geom_text_repel( col="forestgreen",aes(label=ifelse(Average>50 & Runs > 5000,as.character(Player),'')),
    hjust=1.5,vjust=2.6, size=3)+
  ggtitle("Average >50 + Runs > 5000")

#####库####
图书馆（数据）
图书馆（dplyr）
图书馆（ggrepel）
图书馆（GG2）
###获取数据####
梅诺迪%
ggplot（aes（局数，Stat2））+
几何点（）+
geom_text_repel（col=“forestgreen”，aes（label=ifelse（平均值>50，跑步次数>5000，如角色（玩家），“”）），
hjust=1.5，vjust=2.6，size=3）+
ggtitle（“平均>50+次跑步>5000”）

---

R工作室试图制作情节，但没有给出任何原因，反而崩溃了。它需要重新启动。

我认为这是一个在Windows平台上观察到的缓冲区溢出问题，这里提出了一个问题

线程中提供了更可靠的reprex：

# test for bug in ggrepel/ggplot2
library(ggplot2)
library(ggrepel)

# sometimes works, usually R crashes
n = 1000L
my.data <- data.frame(x = runif(n), y = runif(n),
                      my.label = c(rep("", n/100 - 1), "abcd"))

# ggplot(my.data, aes(x, y, label = my.label)) +
#  geom_label()

ggplot(my.data, aes(x, y, label = my.label)) +
  geom_label_repel()

# never works, R crashes

n = 10000L
my.data <- data.frame(x = runif(n), y = runif(n),
                      my.label = c(rep("", n/1000 - 1), "abcd"))

# ggplot(my.data, aes(x, y, label = my.label)) +
#  geom_label()

ggplot(my.data, aes(x, y, label = my.label)) +
  geom_label_repel()

#测试ggrepel/ggplot2中的错误
图书馆（GG2）
图书馆（ggrepel）
#有时有效，通常是R崩溃
n=1000L
my.data如果您注释掉
geom\u text\u repel（）
它运行吗？无法复制，一切都适合我。检查您是否有最新的R、Rstudio和列出的软件包版本。@Elin它与geom_text_repel（）一起运行良好。在同一脚本中的另一个类似绘图上使用geom_text_repel（），运行良好。因此，您确实测试了我的要求。我真正建议的是，你一行一行地使用注释来隔离导致崩溃的因素。*输入错误。如果没有geom_text_repel（），它会很好地破坏。所以问题在于这条线，特别是这幅图。