r - 将 ggplot2 分组条形图转换为绘图图会导致一些条形图消失

Question

当我想将带有 ggplotly 的条形图转换为绘图图时，两个条形消失了。

我还尝试以绘图方式创建分组条形图，但这也给出了相同的结果。

这是数据集：

标题	秩	日期	艺术家	流	年
我圣诞节只想要你	1	2020 年 12 月 25 日	玛丽亚凯莉	13573228	2020
上一个圣诞节	2	2020 年 12 月 25 日	哇！	12415012	2020
在圣诞树周围摇滚	3	2020 年 12 月 25 日	布伦达·李	10893485	2020
我圣诞节只想要你	1	2019 年 12 月 25 日	玛丽亚凯莉	9268219	2019
上一个圣诞节	2	2019 年 12 月 25 日	哇！	7587790	2019
舞猴	3	2019 年 12 月 25 日	音调和我	5890362	2019
我圣诞节只想要你	1	2018 年 12 月 25 日	玛丽亚凯莉	8449779	2018
上一个圣诞节	2	2018 年 12 月 25 日	哇！	6914425	2018
在圣诞树周围摇滚	3	2018 年 12 月 25 日	布伦达·李	5786608	2018
我圣诞节只想要你	1	2017 年 12 月 25 日	玛丽亚凯莉	6467590	2017
上一个圣诞节	2	2017 年 12 月 25 日	哇！	5122502	2017
他们知道这是圣诞节吗？- 1984 版	3	2017 年 12 月 25 日	创可贴	3699892	2017

这是我使用的代码：

top_tracks_plot <- ggplot(data = top_xmastracks_spotify, aes(x = year, y = streams, fill = ordered(title))) + geom_bar(stat = "identity", position = "dodge")

ggplotly(top_tracks_plot)

如您所见，有两首歌曲在绘图图中消失了。有什么想法可以解决这个问题吗？

标签： rggplot2plotlyggplotly