R 分开日期和时间

我正在从病历平台导出数据

数据看起来像这样

      Date.time    TEMP      HR    RR     SBP    DBP
1   Jun-08-2015                                     
2          1323  36.8 O       –     –       –      –
3           931  36.8 O   76 MC 22 SP  104 MC  52 MC
4           930       –       –     –       –      –
5           929       –       –     –       –      –
6           813  36.8 O   76 MC 22 SP  104 MC  52 MC
7           126  36.3 O   78 MC 23 SP  112 MC  55 MC
8            40  36.3 O   78 MC 23 SP  112 MC  55 MC
9   Jun-07-2015                                     
10         2307    36 O   71 MC 22 SP  120 MC  57 MC

              X Date.time    TEMP      HR    RR     SBP    DBP
1                      NA                                     
2   Jun-08-2015      1323  36.8 O       –     –       –      –
3   Jun-08-2015       931  36.8 O   76 MC 22 SP  104 MC  52 MC
4   Jun-08-2015       930       –       –     –       –      –
5   Jun-08-2015       929       –       –     –       –      –
6   Jun-08-2015       813  36.8 O   76 MC 22 SP  104 MC  52 MC
7   Jun-08-2015       126  36.3 O   78 MC 23 SP  112 MC  55 MC
8   Jun-08-2015        40  36.3 O   78 MC 23 SP  112 MC  55 MC
9                      NA                                     
10  Jun-07-2015      2307    36 O   71 MC 22 SP  120 MC  57 MC

我需要能够在单个列上显示日期和时间，但格式如下

yyyymmddhhmm

1323 931 930 929等

与时间相对应

我的预期输出是

      Date.time    TEMP      HR    RR     SBP    DBP
1     201506081323  36.8 O       –     –       –      –
2     201506080931  36.8 O   76 MC 22 SP  104 MC  52 MC
3     201506080930       –       –     –       –      –
4     201506080929       –       –     –       –      –
5     201506080813  36.8 O   76 MC 22 SP  104 MC  52 MC
6     201506080126  36.3 O   78 MC 23 SP  112 MC  55 MC
7     201506080040  36.3 O   78 MC 23 SP  112 MC  55 MC
8     201506072307    36 O   71 MC 22 SP  120 MC  57 MC

---

将日期分隔为日期和时间，填写缺少的日期，然后粘贴回日期和时间，转换为日期类

library(dplyr)
library(tidyr)
library(stringr)

df1 %>% 
  mutate(x1 = if_else(nchar(Date.time) > 4, Date.time, NA_character_),
         x2 = if_else(nchar(Date.time) > 4, NA_character_, Date.time),
         x2 = str_pad(x2, width = 4, side = "left", pad = "0")) %>% 
  fill(x1) %>% 
  filter(!is.na(x2)) %>% 
  mutate(Date.time.v1 = as.POSIXct(paste(x1, x2), format = "%b-%d-%Y %H%M")) %>% 
  select(-c(x1, x2))

#   Date.time   TEMP    HR    RR    SBP   DBP        Date.time.v1
# 1      1323 36.8 O     -     -      -     - 2015-06-08 13:23:00
# 2       931 36.8 O 76 MC 22 SP 104 MC 52 MC 2015-06-08 09:31:00
# 3       930      -     -     -      -     - 2015-06-08 09:30:00
# 4       929      -     -     -      -     - 2015-06-08 09:29:00
# 5       813 36.8 O 76 MC 22 SP 104 MC 52 MC 2015-06-08 08:13:00
# 6       126 36.3 O 78 MC 23 SP 112 MC 55 MC 2015-06-08 01:26:00
# 7        40 36.3 O 78 MC 23 SP 112 MC 55 MC 2015-06-08 00:40:00
# 8      2307   36 O 71 MC 22 SP 120 MC 57 MC 2015-06-07 23:07:00

数据

---

df1这是我想到的，但仍然必须返回EXCEL中的文件以将日期与时间分开。这根本没花多长时间（可能1分钟）。我计划使用的所有文件的长度大致相同，所以这没什么大不了的

做了这些之后，我得到了这样一个文件

      Date.time    TEMP      HR    RR     SBP    DBP
1   Jun-08-2015                                     
2          1323  36.8 O       –     –       –      –
3           931  36.8 O   76 MC 22 SP  104 MC  52 MC
4           930       –       –     –       –      –
5           929       –       –     –       –      –
6           813  36.8 O   76 MC 22 SP  104 MC  52 MC
7           126  36.3 O   78 MC 23 SP  112 MC  55 MC
8            40  36.3 O   78 MC 23 SP  112 MC  55 MC
9   Jun-07-2015                                     
10         2307    36 O   71 MC 22 SP  120 MC  57 MC

              X Date.time    TEMP      HR    RR     SBP    DBP
1                      NA                                     
2   Jun-08-2015      1323  36.8 O       –     –       –      –
3   Jun-08-2015       931  36.8 O   76 MC 22 SP  104 MC  52 MC
4   Jun-08-2015       930       –       –     –       –      –
5   Jun-08-2015       929       –       –     –       –      –
6   Jun-08-2015       813  36.8 O   76 MC 22 SP  104 MC  52 MC
7   Jun-08-2015       126  36.3 O   78 MC 23 SP  112 MC  55 MC
8   Jun-08-2015        40  36.3 O   78 MC 23 SP  112 MC  55 MC
9                      NA                                     
10  Jun-07-2015      2307    36 O   71 MC 22 SP  120 MC  57 MC

之后，我使用了以下代码。很抱歉，为了让代码尽可能容易理解，让我的实验室里的每个人都能理解发生了什么，我需要这么多的评论

#eliminate empty rows
SJ <- na.omit(SJ)

#Convert month to number
SJ$newdate <- strptime(as.character(SJ$X), "%b-%d-%Y")

#Eliminate dashes from date
SJ$newdate <- gsub("[[:punct:]]","",SJ$newdate)

#Add column with "0000" for later use in proper date conversion
SJ$zeros <- rep("0000",nrow(SJ))

#Combine date column with zeros column to obtain date number of correct length
SJ$date = paste(SJ$newdate, SJ$zeros, sep="")

#convert date column to number 
SJ$Date.time <- as.numeric(SJ$Date.time)

#Convert time column to number
SJ$date <- as.numeric(SJ$date)

#Add time column to date column resulting in desired datetime format. Saves as vector.
Datetime <- SJ$date + SJ$Date.time

#Inserts Datetime column as first column
SJ <- cbind(Datetime,SJ)

最后，我只是删除了不必要的列<代码>X，Date.time，newdate，零，Date

---

谢谢大家的帮助

谢谢。我刚才看到你的答案了。我发布了我提出的解决方案。正如您所建议的，我仍然必须返回EXCEL以分离日期和时间。我不建议返回EXCEL，上面的代码都在R中完成。哦！我很抱歉。既然您写了“将日期分为日期和时间，填写缺失的日期，然后粘贴回日期和时间…”，我想您的意思是我必须在EXCEL中这样做。我现在一定会调查的。。。这将使事情变得更容易、更快。@Jonathanalemarios sorry应该更明确一些。我只是列出了我的R代码的步骤。