如何仅在月份上绘制X轴位置数据？

Question

当前具有以下数据：

    library(tidyverse)
library(plotly)
library(lubridate)

dates <- c("2019-03-01", "2019-04-01", "2019-05-01")
numbers <- c(50000, 60000, 70000)

data <- tibble(dates = as_datetime(dates), numbers = numbers)

plot_ly(data, x= ~dates, y=~numbers, showlegend = TRUE, marker = list(color = "blue"), type = "bar")

我希望将柱线放置在一个月内-而不是跨不同的月跨度-例如，3月1日的值也跨2月跨度-难道不能只在3月跨度吗？下一个酒吧在四月等！

Answer 1

使用

dates <- c("2019-03-01", "2019-04-01", "2019-05-01")
numbers <- c(50000, 60000, 70000)

data <- tibble(dates,numbers)
data$dates <- factor(data$dates, levels = data[["dates"]])

plot_ly(data, x= ~dates, y=~numbers, showlegend = TRUE, marker = list(color = "blue"), type = "bar")

您可以提取唯一因子并沿其绘图，而不是将日期转换为日期时间格式。