以下是一个示例代码，可以按照ID和多个状态对日期进行R的最小和最大值计算：

# 创建一个包含ID、状态和日期的数据框
data <- data.frame(ID = c(1, 1, 2, 2, 3, 3),
                   status = c("A", "B", "A", "B", "A", "B"),
                   date = as.Date(c("2022-01-01", "2022-02-01", "2022-03-01", "2022-04-01", "2022-05-01", "2022-06-01")))

# 定义一个函数，用于按照ID和多个状态计算日期的最小和最大值
calculate_min_max_date <- function(data, id, statuses) {
  # 根据ID和状态筛选数据
  filtered_data <- data[data$ID == id & data$status %in% statuses, ]
  
  # 计算日期的最小和最大值
  min_date <- min(filtered_data$date)
  max_date <- max(filtered_data$date)
  
  # 返回最小和最大日期
  return(c(min_date, max_date))
}

# 测试函数
id <- 1
statuses <- c("A", "B")
result <- calculate_min_max_date(data, id, statuses)
print(result)

这段代码首先创建了一个包含ID、状态和日期的数据框。然后定义了一个名为calculate_min_max_date的函数，该函数接受数据框、ID和多个状态作为参数。函数内部首先根据ID和状态筛选数据，然后计算日期的最小和最大值，并返回结果。最后，通过指定ID和状态来测试函数，并打印计算结果。