R中调用返回日期的函数，变量类型却显示为character的问题

你遇到的核心问题是**as.Date()默认只识别YYYY-MM-DD这种标准日期格式**，而你输入的是MM/DD/YYYY（比如12/31/2017），导致日期转换失败，返回的结果还是字符型（character），后续和数据框里的Task_Date（Date类型）比较时就触发了格式不匹配的错误。

具体修复步骤 #

1. 给as.Date()指定输入格式
   修改你的日期输入函数，明确告诉R你输入的日期格式是MM/DD/YYYY：

   begdate <- function() {
     n <- readline(prompt = "Enter begin date (MM/DD/YYYY): " )
     return(as.Date(n, format = "%m/%d/%Y"))
   }
   
   enddate <- function() {
     n <- readline(prompt = "Enter end date (MM/DD/YYYY): " )
     return(as.Date(n, format = "%m/%d/%Y"))
   }
   

   这里的格式符对应规则：

   • %m：两位数字的月份（比如12代表12月）
   • %d：两位数字的日期（比如31代表31日）
   • %Y：四位数字的年份（比如2017）

2. 验证转换结果
   调用函数后执行class(bdate)，应该返回[1] "Date"，说明日期转换成功。

3. 执行子集筛选
   现在再运行筛选代码，就能正常和Task_Date比较了：

   bdate <- begdate()
   edate <- enddate()
   TLSub <- subset(TechLabor, Task_Date >= bdate & Task_Date <= edate)
   

额外优化：添加错误处理（可选） #

如果想让函数更健壮，避免用户输入错误格式导致崩溃，可以加上循环和错误捕获：

begdate <- function() {
  repeat {
    n <- readline(prompt = "Enter begin date (MM/DD/YYYY): " )
    date_obj <- tryCatch(as.Date(n, format = "%m/%d/%Y"), error = function(e) NULL)
    if (!is.null(date_obj)) {
      return(date_obj)
    } else {
      cat("Invalid date format! Please use MM/DD/YYYY.\n")
    }
  }
}

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