R：RLEを使用して列間で連続する同一の値の数

Question

私はRを使用しています。各プレーヤの行と、各月の数値と得点の数からなるデータフレームがあります以下のランダム値）。私は、過去5ヶ月間にわたって指定されたポイント合計の最長連続ストリークを含む新しい列（Points $ ConsecutiveShutouts）を追加したいと思います。 Iは、RLE（ポイント）を使用して試みた

Points <- data.frame("Player" = c("Alpha", "Beta", "Charlie", "Delta", "Echo", "Foxtrot", "Gamma"), "MayPts" = c(floor(runif(7, 0, 3))), "JunPts" = c(floor(runif(7, 0, 3))), "JulPts" = c(floor(runif(7, 0, 3))), "AugPts" = c(floor(runif(7, 0, 3))), "SepPts" = c(floor(runif(7, 0, 3))), "OctPts" = c(floor(runif(7, 0, 3))), "NovPts" = c(floor(runif(7, 0, 3))),"DecPts" = c(floor(runif(7, 0, 3)))) 

Player MayPts JunPts JulPts AugPts SepPts OctPts NovPts DecPts 
Alpha  0  0  1  0  2  2  2  0 
Beta  1  0  1  1  1  1  1  2 
Charlie 1  2  2  0  2  1  1  0 
Delta  0  1  1  2  2  2  0  0 
Echo  1  1  0  2  1  2  0  1 
Foxtrot 1  0  0  0  0  0  2  1 
Gamma  2  0  1  1  0  2  0  1 

：

これを行う

# Establish the start and end months 
StartMonth <- which(colnames(Points) == "SepPts") 
EndMonth <- which(colnames(Points) == "DecPts") 

# Find total of consecutive months with 0 points 
Points$ConsecutiveShutOuts <- max(rel(Points[ ,StartMonth:EndMonth] == 0), lengths[!values]) 

、私はエラーで終わる " 'X' 原子型のベクトルでなければなりません"

任意私が間違ってやっていることや、どうすれば修正できるのかアドバイスまたは代替アプローチ？

ありがとうございます！ [初心者は、うまくいけば質問の質問に正しいアプローチに従った] :)

Answer 1

いくつかの条件に基づいて合計したい場合は（例えば、1より大きい合計点だ​​け）、あなたは合算をその値より大きい行

Points <- as.data.table(Points) 
Points <- melt(Points, id="Player", variable.name = "Month", value.name = "PTs") 
Points <- Points[PTs>1, list(PTs = sum(PTs, na.rm=TRUE)), by="Player"] #change ">1" if you prefer a different value 

Answer 2

ロングフォームも使用します。私はまずこのような関数を作成します。 tidyr/dplyrを使用して

myfun <- function(series,value){ 
    tmp <- rle(series); runs <- tmp$lengths[tmp$values == value] 
    if (length(runs)==0) return(0) 
    else return(max(runs)) 
} 

、あなたはもちろん

library(dplyr) 
library(tidyr) 
Points %>% 
    gather(months,Pts,MayPts:DecPts) %>% 
    group_by(Player) %>% 
    summarise(x=myfun(tail(Pts,5),0)) 
# Past 5 month, number of consecutive zeros for each player. 

のように進行することができますあなたがしたい場合は、オリジナルのワイド形式のデータフレームに結果を参加することができます。