该列如下所示：
reported_time
3/9/2019 7:07
24/09/2019 08:17:17
3/9/2019 7:27
20/10/2019 08:02:20
2/5/2019 14:15
2/5/2019 14:49
2/5/2019 20:22
20/10/2019 20:42:15
18/09/2019 15:19:20
9/10/2019 9:11
21/10/2019 08:37:05
2/5/2019 8:57
2/5/2019 12:35
2/5/2019 22:46
尝试以下操作，以某种方式不起作用
df$Date <- as.Date(df$reported_time)
df $ reported_time中的错误：'closure'类型的对象不可子集化
df$Time <- format(df$reported_time,"%H:%M:%S")
df $ reported_time中的错误：'closure'类型的对象不可子集化
data$reported_time <- as.POSIXct(as.character(data$reported_time), format = "%Y%m%d%H%M")
data $ reported_time中的错误：'closure'类型的对象不可子集
标题名称为“ acknowledged_on”的另一列包含相同的日期和时间格式。
[尝试以下操作，但失败。
将感谢任何人的建议。谢谢
df$Date <- lapply(strsplit(as.character(df$acknowledged_on), " "), "[", 1)
df $ acknowledged_on中的错误：'closure'类型的对象不可子集化
df$Time <- lapply(strsplit(as.character(df$acknowledged_on), " "), "[", 2)
df $ acknowledged_on中的错误：'closure'类型的对象不可子集化
df$Date <- lapply(strsplit(as.character(df$acknowledged_on), " "), "[", 1)]
错误：意外的']'，在“ df $ Date
df$Time <- lapply(strsplit(as.character(df$acknowledged_on), " "), "[", 2)]
df $ Time中的[错误：意外']'
df$Date <- as.Date(df$acknowledged_on) #already got this one from the answers above
df $ acknowledged_on中的错误：'closure'类型的对象不可子集化
df$Time <- format(as.POSIXct(df$acknowledged_on) ,format = "%H:%M")
df $ acknowledged_on中的错误：'closure'类型的对象不可子集化
df$Date <- as.Date(df$acknowledged_on)
df $ acknowledged_on中的错误：'closure'类型的对象不可子集化
df$Time <- format(df$acknowledged_on,"%H:%M:%S")
df $ acknowledged_on中的错误：'closure'类型的对象不可子集化
期望的输出是（从时间中删除秒）：
reported_time3/9/2019 7:0724/09/2019 08:173/9/2019 7:2720/10/2019 08:022/5/2019 14:152/5/2019 14:492/5/2019 20:2220/10/2019 20:4218/09/2019 15:199/10/2019 9:1121/10/2019 08:372/5/2019 8:572/5/2019 12:352/5/2019 22:46
我不知道预期的输出应如何。以下是我的解决方案：