作者egoweaver (Hiko)
看板R_Language
标题Re: [问题] 依日期选别栏位的值
时间Tue Aug 7 00:11:28 2018
虽然「在这个日期之前和之後做[交割年月]的筛选」的描述看不懂是怎样
的操作，但是应该是类似这样的状况吧？
# 如果需要安装 package 的话 uncomment
# install.packages(c("lubridate", "timeDate"))
library(lubridate)
library(timeDate)
library(dplyr)
# 指定要找出「每月第三个星期三」的时间段
start_date <- "2007-09-01"
end_date <- "2014-06-01"
# 载入原始档
# 注意如果日期格式不是 "YYYY-MM-DD" 的话後面的部分要相应修改
test <- read.table("test.txt", header = TRUE, stringsAsFactors = FALSE)
# 找出指定时间段的每月第三个周三
# 用 format() 把 timeDate 转成 character
period <- timeSequence(from = start_date, to = end_date, by = "month")
thirdwed <- format(timeNthNdayInMonth(period, nday = 3, nth = 3,
format = "%Y-%m-%d"))
# 只留下 Date 为每月第三个周三的 observation
test_fil <- filter(test, Date %in% thirdwed)
# 依据交割年月做筛选
# 这边看不懂原 po 想做什麽筛选...
result <- filter(test_fil, `交割年月` == 201101)
※ 引述《poker0531 (破壳)》之铭言：
: [问题类型]:
: 程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来)
: [软体熟悉度]:
: 新手(没写过程式，R 是我的第一次)
: [问题叙述]:
: 我想筛选一串日期中每月的第三个周三, 并在这个日期之前和之後做[交割年月]的筛选
: [程式范例]:
: 资料长这样:
: Date Time 交割年月 成交时间 成交价格 成交数量(B+S)
: 1 2011-01-03 084500 201101 8450000 9000 24
: 2 2011-01-03 084500 201101 8450000 9000 2
: 3 2011-01-03 084500 201101 8450000 9000 2
: 4 2011-01-03 084500 201101 8450000 9000 6
: 5 2011-01-03 084500 201101 8450000 9000 2
: 6 2011-01-03 084500 201101 8450000 9000 2
: 结算日的判断方式有google到如下:
: require(lubridate)
: x<-day(unique("
: Con<-function(x,y){
: if(day(x)>=15 && day(x)<=21 && y==3){
: "SettleDay"
: }else if ((day(x)>=16 && day(x)<=22 && y==4)||
: (day(x)>=17 && day(x)<=23 && y==5)||
: (day(x)>=18 && day(x)<=24 && y==6)||
: (day(x)>=20 && day(x)<=26 && y==1)||
: (day(x)>=21 && day(x)<=27 && y==1)||
: (day(x)>=22)){
: "SettleDay"
: }
: }
: 感谢各位大神帮忙,搞了我两个周末了
: [环境叙述]:
: R version 3.5.1 (2018-07-02)
: Platform: x86_64-w64-mingw32/x64 (64-bit)
: Running under: Windows >= 8 x64 (build 9200)
: Matrix products: default
: locale:
: [1] LC_COLLATE=Chinese (Traditional)_Taiwan.950 LC_CTYPE=Chinese
: (Traditional)_Taiwan.950 LC_MONETARY=Chinese (Traditional)_Taiwan.950
: [4] LC_NUMERIC=C LC_TIME=Chinese
: (Traditional)_Taiwan.950
: attached base packages:
: [1] stats graphics grDevices utils datasets methods base
: other attached packages:
: [1] lubridate_1.7.4
: loaded via a namespace (and not attached):
: [1] compiler_3.5.1 magrittr_1.5 tools_3.5.1 Rcpp_0.12.18
: stringi_1.2.4 stringr_1.3.1
: [关键字]:
: 台指期结算日判断
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.228.161.102
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1533571890.A.C61.html