为 R 中的特定文本分配日期答案

【问题标题】：Assign a date to specific text in R为 R 中的特定文本分配日期
【发布时间】：2017-11-15 16:57:55
【问题描述】：

我在 R 中有一个名为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

我想将下一个日期分配给一个名为DateSelect1 的变量，然后将第二个Bull.Engulfing 分配给DateSelect2 等等。这样所有的Bull.Engulfing为他们分配一个日期。

所以在本例中，由于2017-09-14 第 12 行有一个 Bull.Engulfing，DateSelect1 应该是 2017-09-15，因为它是下一行。希望这是有道理的。

TIA

【问题讨论】：

您能否附上您希望看到的样本？从解释中，我不确定您在寻求什么结果。

标签： r date dataframe forex

【解决方案1】：

假设 Note 子集中的输入是数据框，并将该子集中的每个日期分配给一个变量：

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)

【讨论】：