我来帮你搞定这个标签飘太远的问题，咱们从ggrepel包的核心参数入手，几个小调整就能让标签乖乖贴近对应的数据点：

首先先把你的数据和原始代码整理出来方便参考：

# 球员数据集
data_agg <- data.frame(
  player_dum = c("Dan Dickau", "Danny Ainge", "Daniel Ewing", "Dante Cunningham", 
                 "Joe Alexander", "Jordan Crawford", "Joe Crispin", "Joe Dumars", 
                 "Joe Binion", "Joe Courtney", "Patrick Ewing"),
  fgper = c(39.34739, 45.64634, 37.89910, 45.50715, 36.99286, 29.15000, 
            36.71111, 44.50372, 43.75000, 45.71220, 50),
  pts = c(5.816667, 12.305895, 3.255639, 5.965135, 4.208955, 4.500000, 
          3.761905, 16.064602, 1.272727, 2.750000, 20),
  mp = c(15.393333, 28.008899, 12.684211, 21.207607, 11.119403, 11.500000, 
         7.428571, 34.723009, 4.636364, 7.802083, 35)
)

# 你的原始绘图代码
ggplot(data=data_agg,aes(x=pts,y=fgper,color=mp)) + 
  geom_point() + 
  geom_text_repel(aes(label = player_dum),segment.colour = NA,box.padding = 0.2) + 
  theme(legend.key.height = unit(2.5,"cm")) + 
  scale_color_gradientn(colors=rainbow(4))

方案1：调整排斥力度和标签-点间距（最通用） #

geom_text_repel的force参数控制标签之间的排斥强度，数值越小，标签越不会互相推开；box.padding控制标签边界到数据点的最小距离，调小后标签能更贴紧点。

修改后的代码：

ggplot(data=data_agg,aes(x=pts,y=fgper,color=mp)) + 
  geom_point() + 
  geom_text_repel(
    aes(label = player_dum),
    segment.colour = NA,
    box.padding = 0.1,  # 缩小标签与点的最小距离
    force = 0.1         # 降低标签间排斥力，减少被"挤走"的概率
  ) + 
  theme(legend.key.height = unit(2.5,"cm")) + 
  scale_color_gradientn(colors=rainbow(4))

方案2：针对单个离群点单独设置偏移 #

如果只有Patrick Ewing这一个点的标签飘远，我们可以给它单独设置微小偏移，精准拉回标签：

ggplot(data=data_agg,aes(x=pts,y=fgper,color=mp)) + 
  geom_point() + 
  geom_text_repel(
    aes(label = player_dum),
    segment.colour = NA,
    box.padding = 0.2,
    # 只给Patrick Ewing设置偏移，其他点保持默认
    nudge_x = ifelse(data_agg$player_dum == "Patrick Ewing", 0.5, 0),
    nudge_y = ifelse(data_agg$player_dum == "Patrick Ewing", -1, 0)
  ) + 
  theme(legend.key.height = unit(2.5,"cm")) + 
  scale_color_gradientn(colors=rainbow(4))

方案3：允许更多标签重叠（标签密集时适用） #

如果图中标签数量多，ggrepel会把标签推开以避免重叠，允许更多重叠的话，标签就不会被迫移到很远的地方：

ggplot(data=data_agg,aes(x=pts,y=fgper,color=mp)) + 
  geom_point() + 
  geom_text_repel(
    aes(label = player_dum),
    segment.colour = NA,
    box.padding = 0.2,
    max.overlaps = Inf  # 允许所有标签重叠，不再为避重叠推远标签
  ) + 
  theme(legend.key.height = unit(2.5,"cm")) + 
  scale_color_gradientn(colors=rainbow(4))

优先试试方案1，这是最通用的调整方式；如果只有个别点出问题，方案2更精准；如果是标签密集导致的，方案3能快速解决。

内容的提问来源于stack exchange，提问作者victordongy