R语言 plot函数做散点图横坐标为2018年1月1日-2018年12月31日删除原来的横坐标标签并且将横坐标标签分12个月显示

要实现这个需求，可以使用R语言的plot函数结合ggplot2和lubridate包。

首先，需要生成一个包含所有日期的向量。可以使用lubridate包中的seq函数来生成从2018年1月1日到2018年12月31日的日期向量。代码如下：

library(lubridate)

start_date <- ymd("2018-01-01")
end_date <- ymd("2018-12-31")

date_vector <- seq(start_date, end_date, by = "day")

接下来，可以随机生成与日期向量对应的y值。这里假设y值是一个长度与日期向量相同的随机数向量。代码如下：

set.seed(123)
y_values <- runif(length(date_vector))

然后，可以使用ggplot2包中的ggplot函数创建一个散点图，并设置x轴为日期向量，y轴为对应的y值。代码如下：

library(ggplot2)

df <- data.frame(date = date_vector, y = y_values)

ggplot(df, aes(x = date, y = y)) +
  geom_point() +
  theme(axis.text.x = element_blank()) +
  scale_x_date(date_breaks = "1 month", date_labels = "%b")

在上述代码中，使用theme函数将x轴的文本设置为空，以删除原来的横坐标标签。然后，使用scale_x_date函数将横坐标标签设置为每个月的缩写形式。

最后，使用geom_point函数添加散点图的数据点。运行上述代码后，将会得到一个横坐标为2018年1月1日到2018年12月31日，纵坐标为随机数的散点图，且横坐标标签为每个月的缩写形式