특정 텍스트에 날짜를 지정하십시오.

Question

다음과 같이 Ident이라는 데이터 프레임이 있습니다.

 Date coredata.Ident. 
1 2017-09-01   <NA> 
2 2017-09-03   <NA> 
3 2017-09-04   <NA> 
4 2017-09-05    0 
5 2017-09-06    0 
6 2017-09-07    0 
7 2017-09-08    0 
8 2017-09-10    0 
9 2017-09-11   Doji 
10 2017-09-12   <NA> 
11 2017-09-13    0 
12 2017-09-14 Bull.Engulfing 
13 2017-09-15    0 
14 2017-09-17    0 
15 2017-09-18 Bear.Engulfing 
16 2017-09-19   Doji 
17 2017-09-20 Bear.Engulfing 
18 2017-09-21 Bull.Engulfing 
19 2017-09-22    0 
20 2017-09-24    0 
21 2017-09-25 Bear.Engulfing 
22 2017-09-26    0 
23 2017-09-27    0 
24 2017-09-28    0 
25 2017-09-29    0 

Bull.Engulfing 모두가 날짜가 그들에게 할당하도록 DateSelect1라는 변수에 Bull.Engulfing 다음 두 번째 Bull.Engulfing이 DateSelect2 등에 할당 될 수있다 그 후 나는 다음 날짜를 지정하려는

.

이 예에서 2017-09-14 행 12에 Bull.Engulfing이 있으므로 DateSelect1은 다음 행이므로 2017-09-15이어야합니다. 희망이 의미가 있습니다.

TIA

Answer 1

노트 일부 데이터 프레임에 입력되어 있다고 가정하고, 변수 부분 집합의 각 날짜를 할당 :

dates <- as.Date(subset(DF, coredata.Ident. == "Bull.Engulfing")$Date) 
for(i in seq_along(dates)) assign(paste0("DateSelect", i), dates[i]) 

DateSelect1 
## [1] "2017-09-14" 
DateSelect2 
## [1] "2017-09-21" 

참고 : 재현 형태로 입력된다 :

Lines <- " 
     Date coredata.Ident. 
1 2017-09-01   <NA> 
2 2017-09-03   <NA> 
3 2017-09-04   <NA> 
4 2017-09-05    0 
5 2017-09-06    0 
6 2017-09-07    0 
7 2017-09-08    0 
8 2017-09-10    0 
9 2017-09-11   Doji 
10 2017-09-12   <NA> 
11 2017-09-13    0 
12 2017-09-14 Bull.Engulfing 
13 2017-09-15    0 
14 2017-09-17    0 
15 2017-09-18 Bear.Engulfing 
16 2017-09-19   Doji 
17 2017-09-20 Bear.Engulfing 
18 2017-09-21 Bull.Engulfing 
19 2017-09-22    0 
20 2017-09-24    0 
21 2017-09-25 Bear.Engulfing 
22 2017-09-26    0 
23 2017-09-27    0 
24 2017-09-28    0 
25 2017-09-29    0" 
DF <- read.table(text = Lines)