java使用R检测以多种格式显示的日期格式

Question

我想用R来检测数据中的日期格式。如果一列中存在多个格式，我还想发出一个标志

Answer 1

我目前正在使用以下代码：

这些是将被识别的日期格式

dflist<-数据“y-%m-%m-%m-%dT%dT%H%H%H%H%H:%m:%S.++%H:%m，，%y-%m-%m-%m-%dT%H%H%H%H:%m，%m-%H%H:%m，%y%y%m，，%y%y%y%m%m，，，，，%y-%y-%y-%m-%m-%m-%m-%m-%m-%m-%m-%m-%m-%m-%m-%t%t%m%m%H%t%H%H%H%H%H%H%H%H%H:%H:%m:%m:%m:%m:%m:%m:%m:%m:%m:%m:%m:%m:%m:%m:%m.m.，，，，，，%H%H%H%H%H%H%H%H%H%H%H%m-%m-%-%d-%b“，%y.%b.%d”，%y.%d.%b“，%y/%b/%d”，%y/%d/%b“，%b%d%y”，%b%d%y“，%b-%d-%y”，“b/d/y”和“b/b/d/y”两个月，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月，两个月内，两个月内，两个月内，两个月内，两个月内，两个月，两个月内，两个月，两个月的“，%y%d%m”，“%y%m%d”，“%y-%d-%m”，“%y-%m-%d”，“%y-%m-%dT%H:%m:%S++%H:%m”，“%y-%m-%dT%H:%m:%S.-%H:%m”，“%y.%d.%m”，一个月内，一个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两个月内，两%d“，%Y/%d/%m“，%Y/%m/%d”））

创建新列并在其中存储NA

dflist$columns<-不

fc列将列出所有可用格式，后缀为“| |”

dflist$fc<-粘贴（dflist$formats，“| |”，sep=”“）

feed1将包含所有以“| |”为后缀的条目列表

feed1<-像数据框架（sapply（knime.in，function（x）{paste（x，“| |”，sep=”“）}）#在每个条目末尾添加“| |”

对于（i in 1:nrow（dflist）） {

尝试使用as将条目转换为日期。使用“dflist$fc”作为格式参数的日期函数

如果成功转换，则存储1，否则存储0。最后，我们将所有条目相加，得到列中某种格式的单元格百分比

我们为一个列设置了80%（0.8）的阈值，以使其符合某些日期格式

dflist[i，“列”]<-粘贴（名称（feed1）[as.logical（sapply（feed1，函数（x））ifelse（sum（！is.na（as.Date）（as.character（x），format=as.character（dflist[i，“fc”]）））））>；（0.9*length（x[！x==“NA | |“]），1,0））]，collapse=“，”） }

日期表<-dflist[，c（“格式”、“列”）] t<-t（日期表）