我有一个数据集，包含日期、洲和continental_sum（每个洲的总死亡人数）的详细信息，如图所示。

但是日期栏没有按顺序排列，我该如何安排我应该使用lubridate？

typeof(continental_death_total$date)
[1] "character"

library(lubridate)
continental_death_total%>%
  mutate(date = dmy(date))

尝试上面的代码，日期列将按升序排列

但是当我试着画一个条形图时，它显示了不同的值。
条形图的代码

df <- continental_death_total

fig <- df %>%
  plot_ly(
    x = ~continent,
    y = ~continental_sum,
    frame = ~date,
    type = 'bar',
    mode = 'markers',
    showlegend = F
  )

fig

条形图输出