ggplot2绘制Segment/Point图时X、Y轴反转问题求助

你的图表出现轴反转及异常显示的原因主要有以下几点：

• 误用了coord_flip()：这个函数会直接翻转X、Y轴，完全违背了你将球员放Y轴、距离放X轴的需求，直接删除即可。
• 数据类型错误：用cbind创建数据框时，数值型的topTenDistance被强制转为字符型（矩阵要求所有元素类型一致），导致ggplot将其当作离散变量处理，需手动转回数值型。
• 线段参数错误：geom_segment中yend=0无效，因为Y轴是球员名称（离散类别），0不属于合法类别，应将xend设为0、yend设为topBatter，让线段从X轴原点延伸到对应距离的点。
• 轴标签写反：xlab和ylab的内容与实际轴映射不匹配，需要调换。

修正后的完整代码 #

# Top HR by Distance
topTenDistance <- c(485, 502, 484, 492, 489, 499, 500, 497, 489, 501)
topBatter <- c("Ba", "Ca", "Da", "Fa", "Ga", "Ha", "Ja", "Ka", "Ya", "Ja")

# 直接用data.frame创建，避免类型转换问题
topCombined <- data.frame(
  topBatter = topBatter,
  topTenDistance = as.numeric(topTenDistance) # 确保距离为数值型
)

topCombined %>%
  ggplot(aes(x = topTenDistance, y = topBatter)) +
  # 线段从X轴原点延伸到对应距离，Y轴保持球员不变
  geom_segment(aes(xend = 0, yend = topBatter)) +
  geom_point(size = 1.5, color = "#134A8E") +
  ggtitle("Top HRs by Distance") +
  labs(subtitle = "MLB 2022 Season") +
  xlab("Distance (in ft)") +
  ylab("Player's Name")

调整后即可得到你预期的效果：Y轴显示球员名称，X轴显示本垒打距离，线段从X轴原点指向对应数据点。

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