使用sapply将列转换为正in，并在R中保留日期时间格式

# 创建一个包含日期时间和数字的数据框
data <- data.frame(
  datetime = c("2022-01-01 12:00:00", "2022-01-02 13:00:00", "2022-01-03 14:00:00"),
  value = c(1.5, 2.7, 3.9)
)

# 使用sapply将列转换为正整数，并保留日期时间格式
data$datetime <- sapply(data$datetime, function(x) as.POSIXct(x))
data$value <- sapply(data$value, as.integer)

# 打印转换后的数据框
print(data)

             datetime value
1 2022-01-01 12:00:00     1
2 2022-01-02 13:00:00     2
3 2022-01-03 14:00:00     3