如何有效地使用R来添加0个案例的摘要行？

library(dplyr)

# 创建一个数据框
data <- data.frame(
  name = c("Alice", "Bob", "Charlie"),
  age = c(25, 30, 35),
  gender = c("F", "M", "M")
)

# 使用add_row函数添加0个案例的摘要行
summary_row <- data %>%
  summarize(
    across(
      everything(),
      list(
        n = ~ n(),
        mean = ~ mean(., na.rm = TRUE),
        sd = ~ sd(., na.rm = TRUE)
      )
    )
  )

# 将摘要行添加到原始数据框中
data_with_summary <- bind_rows(data, summary_row)

# 输出结果
print(data_with_summary)