做一个映射函数，将XX时XX分映射为XX（0~144）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. Time <- c ("2016-01-01 16:22:20", "2016-01-01 12:58:15")

复制代码

用一个中间变量，把时间（小时，分钟）取出来。然后用映射函数映射到新变量中，根据空格，把时间变量分层两部分。然后取后一部分（小时分钟）我想把 时间分割成 H = 12, M = 22, S =15再计算：P <- H*6+ceiling(M/10)

日期的我分割出来 x <- strsplit(Time, " ")  这里面的 时间 “：”怎么分割啊？

是要 先转化为字符，然后strptime( , '%%%')  ？？？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：time IME Tim 西安

1. Time <- c ("2016-01-01 16:22:20", "2016-01-01 12:58:15")
   
2. Time <- strsplit(Time, " ")
   
3. Time <- unlist(Time)
   
4. Time <- strsplit(Time, " ")
   
5. 
   
6. Time_1 <- unlist(strsplit(Time[[2]][1], split = ":"))  # 使用unlist（strsplit（<字符串>,split=<分割符>））函数，并依据分割符来把一个字符串分割为含有多个字符串的向量。
   
7. Time_2 <- strsplit(Time_1, " ")
   
8. 
   
9. H <- as.numeric(Time_2[[1]][1])  # 提取小时 转化数字
   
10. M <- as.numeric(Time_2[[2]][1])  # 提取分钟 转化数字
    
11. p <- H*6+ceiling(M/10)

复制代码

上段代码 也就得到结果， 各位有没有更好的处理方法？