修改R脚本以从两列中读取日期

Question

我想在当前代码中更改以下R脚本代码行，以便R脚本从“ RecordDate”列中查找最小日期和一个最大日期，而不是使用start = c（2018，5），end = c（2019，5），频率= 12）。第二部分是使用“计数”列获取该日期的日期点，而不是使用data2 <-ts（c（9,9,14,4,14,15,4,14,17,17,19 ，16）。需要使R脚本更具动态

Internet上的常规搜索。

library(ggplot2)
library(trend)
library(zoo)
library(dplyr)
library(Kendall)
#End of first set of commands


#Begin second set of commands
data2 <- ts(c(9,9,14,4,14,15,4,14,17,17,19,16), start=c(2018, 5), end=c(2019, 5), frequency=12)
  mk.test(data2)
  data1X <- c(1:length(data1))
  data1Fit <- lm(data1~data1X)
  data1df <- data.frame(date=as.Date(time(data1)), Y=as.matrix(data1))
  ggplot(data=data1df, mapping=aes(x=date, y=Y, ymin = 0))+geom_point() +
    geom_line(color='blue') +
    stat_smooth(method = "lm", col = "red") +
    xlab("Months") + 
    ylab("Complaints") +
    scale_x_date(date_breaks = "1 month", date_labels = '%b %y') +
    labs(title = paste("Adj R2 = ",signif(summary(data1Fit)$adj.r.squared, 5),
                       " Slope =",signif(data1Fit$coef[[2]], 5)))
  #End of second set of commands

如我最初的R Script所示，与使用固定向量日期和数据点相比，R Script具有更动态的功能。