如何在不矢量化数据的情况下在每行 100 列上运行 Purrr：：map？

问：

我正在尝试对我的数据框（100 列，40 行）运行项式。我只能通过首先矢量化我的数据，运行咕噜声，然后拆分我的数据来成功地做到这一点。

我现在无法更改列名称或添加任何新列。有没有另一种方法可以运行咕噜声，而无需先对我的数据进行矢量化？

    #turn data frame into vector
   Obvs_clin_vector <- as.vector(as.matrix(pen_prev_clin %>%
                                         dplyr:: select(starts_with("X"))))
       
   #Run binomial through vector                   
   Obvs_clin <- as.numeric(purrr::map(Obvs_clin_vector, ~ rbinom(1, .x, obvs_p)))

   #Split vector   
    Obvs_clin <- as.data.frame(matrix(unlist(Obvs_clin), nrow = 40 , ncol = 100))