为何柱状图无法完整展示数据？音乐流项目可视化问题求助

我正在进行一个音乐流项目，目标是获取2020年全球播放量TOP15的歌曲并制作交互式图表。目前已成功通过数据框（dataframe）展示TOP15歌曲名称，但遇到以下问题：

• 垂直柱状图无法正常显示
• 转为水平柱状图后虽能加载，但数据呈现异常

附上两种柱状图效果截图及使用dplyr、ggplot2编写的R语言代码，恳请帮忙排查问题。

1. 先确认数据基础格式 #

• 检查播放量字段类型：用class(df$播放量)确认是否为数值型，字符型会直接导致图表渲染失败
• 验证数据条数：用nrow(df)确认是否确实是15条数据，避免重复或缺失值干扰
• 检查歌曲名称列：确认无空值、乱码，避免标签渲染异常

2. 垂直柱状图无法显示的常见修复点 #

• 核对ggplot映射逻辑：确保aes(x=歌曲名称, y=播放量)对应的数据列名完全正确（R语言区分大小写）
• 解决标签挤压问题：若歌曲名称过长，x轴标签重叠会看起来像“无法显示”，可添加标签调整代码：

  ggplot(df, aes(x=歌曲名称, y=播放量)) +
    geom_col() +
    theme(axis.text.x = element_text(angle=45, hjust=1))
  

• 确认柱状图类型：垂直柱状图需要用geom_col()或geom_bar(stat="identity")，默认geom_bar()是统计计数，不是直接展示数值

3. 水平柱状图数据异常的排查方向 #

• 修正轴映射逻辑：水平柱状图需将x/y轴对应关系调整为aes(y=歌曲名称, x=播放量)，或用coord_flip()转换，避免轴映射颠倒
• 强制排序TOP15：确保数据按播放量从高到低排列，用dplyr提前处理：

  library(forcats)
  df_sorted <- df %>% 
    arrange(desc(播放量)) %>% 
    mutate(歌曲名称 = fct_reorder(歌曲名称, 播放量))
  

  之后用排序后的df_sorted绘图，避免出现播放量低的歌曲排在前面的异常
• 检查交互式转换：如果用plotly转交互式图表，确认ggplotly()正确包裹了完整的ggplot对象，避免主题或图层冲突

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