slide（）関数が数値ベクトルを計算してリストに入れるのを止める方法は？

Nov 25 2020

私はdata.frame1つの列のを持っています：

Price <- c(1, 2, 5, 3, 1, 4, 7, 10, 6)
df <- data.frame(Price)

7つの数値ごとに最大値を計算したいので、次のようになります。

df$MaxPrice <- c(1, 2, 5, 5, 5, 5, 7, 10, 10)

私は、この新しい列を計算しようとすると、しかし、mutate()そしてslide()、それは代わりに数値変数の、私のデータフレーム内のリストを返します。

library(dplyr)
library(slider)

df <- df %>% 
  mutate(MaxPrice = slide(Price, max, .before = 7, .after = 0, .complete = F))

なぜこれが起こっているのですか、そしてどのようにslide()数値変数を返すようにするのですか？

回答

3 akrun Nov 25 2020 at 20:18

デフォルトのメソッドがlist出力を要求しているようです。による?slide

vec_ptype（slide（.x））== list（）

の説明.ptypeは

.ptype- [vector（0）/ NULL]

出力のタイプに対応するプロトタイプ。

デフォルトのNULLの場合、出力タイプは、.fの呼び出しの結果全体で共通のタイプを計算することによって決定されます。

指定されている場合、.fへの各呼び出しの結果はそのタイプにキャストされ、最終出力はそのタイプになります。

getOption（ "vctrs.no_guessing"）がTRUEの場合、.ptypeを指定する必要があります。これは、本番コードに固定タイプを要求させる方法です。

（下記）のソースコードに基づいて、本質的には、それが戻ってデフォルトであるlistと私たちは、特定の方法を選ぶ限り、すなわちを説明することを防ぐために、何の選択肢はなさそうです_vecか_dbl

どちらか flatten

library(dplyr)
library(slider)
library(purrr)
out <- df %>% 
    mutate(MaxPrice = slide(Price, max, .before = 7, .after = 0,
       .complete = FALSE) %>% flatten_dbl) 

str(out)
#'data.frame':  9 obs. of  2 variables:
# $ Price : num 1 2 5 3 1 4 7 10 6 # $ MaxPrice: num  1 2 5 5 5 5 7 10 10

または、タイプ固有の方法を使用します。 slide_dbl

out <- df %>% 
    mutate(MaxPrice = slide_dbl(Price, max, .before = 7, .after = 0,
       .complete = FALSE) )

str(out)
#'data.frame':  9 obs. of  2 variables:
# $ Price : num 1 2 5 3 1 4 7 10 6 # $ MaxPrice: num  1 2 5 5 5 5 7 10 10

のソースコードを確認するとslide、が呼び出され、その情報を渡すオプションがないとslide_impl想定さ.ptypeれlistます。slide

slide
function (.x, .f, ..., .before = 0L, .after = 0L, .step = 1L, 
    .complete = FALSE) 
{
    slide_impl(.x, .f, ..., .before = .before, .after = .after, 
        .step = .step, .complete = .complete, .ptype = list(), 
        .constrain = FALSE, .atomic = FALSE)
}

さて、それを_dbl方法と比較してください

slide_dbl
function (.x, .f, ..., .before = 0L, .after = 0L, .step = 1L, 
    .complete = FALSE) 
{
    slide_vec_direct(.x, .f, ..., .before = .before, .after = .after, 
        .step = .step, .complete = .complete, .ptype = double())
}

1 SteveM Nov 25 2020 at 21:01

cummaxベースRで関数を使用できます。

Price <- c(1, 2, 5, 3, 1, 4, 7, 10, 6)
cummax(Price)
[1]  1  2  5  5  5  5  7 10 10

マルチベクトルの場合。データベクトルを行列にロードし、列にcummaxを適用します。フォローオン治療のためのcummaxベクトルの行列を生成します。