2

次のコードは、サンプル データを提供します。

library(TTR)
set.seed(15)
r <- rnorm(1000, 0, .01)
P_1 <- 100
P <- P_1*cumprod(1+r)
zz <- ZigZag(P, change = 5, percent = TRUE)
set.seed(15)
volume <- round(runif(1000, 50, 550), digits = 0)
data <- as.data.frame(cbind(P, zz, volume))
plot(P, type = "l")
lines(zz, col = "red")

最後に、ジグザグ線 (zz) が方向を変えるとリセットが発生する新しい列でボリュームの累積合計を作成したいと思います。これらの転換点を示すで遊んでみましたがs <- sign(diff(data$zz, lag = 1))、 cumsum を使用できませんでした。

4

2 に答える 2

2

で試してRcppRollください:

コード

Vectorize(require)(package = c("magrittr", "dplyr", "RcppRoll"),
                               char = TRUE)

data %<>%
  # Create difference for ZigZag
  mutate(diffZZ = c(0,diff(zz))) %>% 
  # Use it as a group
  group_by(diffZZ) %>% 
  # Use RcppRoll to compute that sum
  mutate(sumVolByDiff = roll_sum(x = volume, n = 2, fill = NA)) %>% 
  # Clean / not important
  ungroup()

プレビュー

> head(data)
Source: local data frame [6 x 5]

         P       zz volume   diffZZ sumVolByDiff
     (dbl)    (dbl)  (dbl)    (dbl)        (dbl)
1 100.2588 100.2588    351 0.000000           NA
2 102.0947 100.5596    148 0.300785          523
3 101.7480 100.8604    533 0.300785         1077
4 102.6608 101.1612    375 0.300785          609
5 103.1618 101.4620    234 0.300785          692
6 101.8668 101.7627    544 0.300785          938
于 2016-02-17T14:27:10.853 に答える