作者KKbiger (UUUU)
看板R_Language
标题Re: [问题] 资料筛选(日期问题)
时间Fri Sep 22 00:20:28 2017
※ 引述《tony1331 (BLUE)》之铭言:
: [问题类型]:
: (我想用R 做某件事情,但是我不知道要怎麽用R 写出来)
: [软体熟悉度]:
: (没写过程式,R 是我的第一次)
: [问题叙述]:
: http://i.imgur.com/woqwvM1.jpg
: Table有一栏是时间,假设是7-8月的资料,
: 请问如果我只想要1点到2点的资料该如何写
: (不管日期 只要1点到2点)
: 谢谢~
: -----
: Sent from JPTT on my Asus ASUS_Z012DA.
timedata <- as.POSIXct(c("2017-01-01 01:30:20", "2017-05-02 01:12:20",
"2017-07-21 05:30:20", "2017-04-27 01:13:40", "2016-12-27 13:13:40"),
"%Y-%m-%d %H:%M:%S", tz="GMT")
id <- c(1:5)
df <- data.frame(id, timedata)
===================以上是随意做一个data.frame来示范=====================
因为是1点到2点 所以是01:00:00~01:59:59
以下提供直接写回圈的方式:
time_strsplit<- c()
for(i in 1:nrow(df)){
time_strsplit <- c(time_strsplit,
as.numeric(substr(strsplit(as.character(df$timedata), " ")[[i]][2], 1, 2)))
}
df_subset <- subset(cbind(df, time_strsplit), time_strsplit == 1)
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.34.124.238
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1506010831.A.E5F.html
1F:→ tony1331: 谢谢,我研究一下~ 09/22 19:34