r - ベクトルと単一の値を pmap で関数に渡す

Question

ゴロゴロと足を濡らします。

ベータ分布のパラメーターのさまざまな組み合わせを評価しており、x 値のベクトルと分布のパラメーターを渡そうとしています。

以下のコードを参照してください。

library(tidyr)
library(purrr)
library(dplyr)

x <- seq(0.01, 0.99, 0.01)
alpha <-  c(0.1, 0.5, 1:5, 10)
beta <-  c(0.5, 1, 2, 5)


df <- expand.grid(alpha = alpha, beta = beta, x = x) %>% 
  nest(x) %>%
  mutate(plotdata = pmap(list(data$x, alpha, beta), dbeta)) %>%
  unnest()

この場合の pmap の正しい構文は何ですか?