Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/79.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/date/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 如何将日期转换为格式;ddmmyyy“;_R_Date - Fatal编程技术网

R 如何将日期转换为格式;ddmmyyy“;

R 如何将日期转换为格式;ddmmyyy“;,r,date,R,Date,我有一个日期条目列表,需要将每个日期格式转换为“DDMMYYYY” 例如: a <- c("31 aug 1953", "1953", "aug 1953") 由于有不同的格式,一个选项是将提取到'day'、'month'和'year'中,然后将后的粘贴到一起,用stru pad格式的0替换缺少的值 library(dplyr) library(tidyr) library(stringr) data.frame(a) %>% extract(a, into = c('

我有一个日期条目列表,需要将每个日期格式转换为“DDMMYYYY”

例如:

a <- c("31 aug 1953", "1953", "aug 1953")

由于有不同的格式,一个选项是
提取到'day'、'month'和'year'中,然后
后的
粘贴到一起,用
stru pad格式的0替换
缺少的值

library(dplyr)
library(tidyr)
library(stringr)
data.frame(a) %>% 
     extract(a, into = c('day', 'month', 'year'), "(\\d{2})*\\s*([a-z]*)\\s*(\\d{4})") %>% 
     mutate(month = match(toupper(month), toupper(month.abb))) %>% 
     mutate_all(funs(str_pad(replace(., is.na(.), "00"), width = 2, pad = "0"))) %>%
     unite(newcol, day, month, year, sep="") %>%
     pull(newcol)
#[1] "31081953" "00001953" "00081953"

a=截止日期(截止日期(“1953年8月31日”))格式日期(a,“%d%m%Y”)。但它只适用于一个值当我们有不同模式的日期值列表时如何处理这种情况进一步分析:请您告知我们如何实现以下目标:示例:entry=c(“护照654133553将于2019年3月11日到期”、“护照472420180”、“护照563220533(朝鲜)”、“护照伊拉克”,“护照m 788439”、“以下数据来源于签发的厄立特里亚护照”、“护照和国民”)所需输出:护照国家“654133553”NA“472420180”NA“563220533”朝鲜,“NA”伊拉克“788439“不,不,不NA@PNiks进一步添加-请以新问题的形式发布,但stack收到一条消息,不允许发布多个问题。请您在这里提供您的意见,因为我不允许回答新问题。谢谢你advance@PNiks我不知道你为什么不能发布另一个问题。人们发布了多个问题,我不知道为什么会出现这个错误。但是如果你能在同一个平台上提供你的意见,那将是非常有帮助的。
library(dplyr)
library(tidyr)
library(stringr)
data.frame(a) %>% 
     extract(a, into = c('day', 'month', 'year'), "(\\d{2})*\\s*([a-z]*)\\s*(\\d{4})") %>% 
     mutate(month = match(toupper(month), toupper(month.abb))) %>% 
     mutate_all(funs(str_pad(replace(., is.na(.), "00"), width = 2, pad = "0"))) %>%
     unite(newcol, day, month, year, sep="") %>%
     pull(newcol)
#[1] "31081953" "00001953" "00081953"