我試圖把這個操作變成一個函式，我可以在其中設定n引數而不使用for loop. 這個例子是 3 次。我以為我可以做到，purrr::reduce但它需要一個串列（？）。
tibble::add_row(tibble::add_row(tibble::add_row(df, .before = 1), .before = 1), .before = 1)
uj5u.com熱心網友回復：
reduce(rep(list(add_row), 3), ~.y(.x, .before = 1), .init =df)
x y
1 NA NA
2 NA NA
3 NA NA
4 1 3
5 2 4
uj5u.com熱心網友回復：
library(tidyverse)
add_row_n <- function(df, n) {
walk(1:n, ~ {df <<- add_row(df, .before = 1)})
df
}
tibble() %>%
add_row_n(3)
#> # A tibble: 3 × 0
tibble(x = 1, y = 2) %>%
add_row_n(3)
#> # A tibble: 4 × 2
#> x y
#> <dbl> <dbl>
#> 1 NA NA
#> 2 NA NA
#> 3 NA NA
#> 4 1 2
由reprex 包(v2.0.1)于 2021 年 11 月 26 日創建
uj5u.com熱心網友回復：
怎么樣
add_n_rows = function(df, n) {
new.rows = as.data.frame(matrix(NA, nrow=n, ncol=ncol(df)))
colnames(new.rows) <- colnames(df)
df %>% add_row(new.rows, .before = 1)
}
# test
df = data.frame(x = rnorm(10), y = rnorm(10))
add_n_rows(df, 3)
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/367385.html
上一篇：我如何計算R中的處理和未處理