如何用R将日期列升序排列并解决plot_ly绘图异常问题

可能的问题根源 #

• 转换日期后，frame参数识别的是日期的原始字符格式而非转换后的日期类型，导致帧的顺序或数值映射出错
• 数据集排序后可能存在重复日期-大洲组合，引发绘图时的数值混乱

具体解决步骤 #

1. 规范日期转换与排序
   确保日期列完全转换为日期类型，且数据集按date和continent正确排序：

   library(lubridate)
   library(dplyr)
   library(plotly)
   
   # 转换日期并排序
   df <- df %>%
     mutate(date = dmy(date)) %>%
     arrange(date, continent)
   

2. 为frame参数设置明确的字符标签
   plot_ly对日期类型的frame处理易出问题，将转换后的日期格式化为固定格式的字符型标签，确保帧顺序和映射准确：

   df <- df %>%
     mutate(date_label = format(date, "%Y-%m-%d")) # 统一日期显示格式
   

3. 重新构建柱状图
   使用格式化后的date_label作为frame参数，明确各维度映射关系：

   plot_ly(df, 
           x = ~continent, 
           y = ~continental_sum, 
           color = ~continent,
           type = "bar",
           frame = ~date_label) %>%
     layout(yaxis = list(title = "各大洲总死亡数"),
            xaxis = list(title = "大洲")) %>%
     animation_opts(frame = 500, transition = 0) # 可按需调整动画速度
   

4. 检查并修复数据完整性
   确认每个日期-大洲组合唯一，无重复或缺失值：

   # 检查重复项
   df %>% count(date, continent) %>% filter(n > 1)
   

   若存在重复，根据需求聚合或删除重复行：

   df <- df %>%
     group_by(date, continent) %>%
     summarise(continental_sum = sum(continental_sum), .groups = "drop")
   

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