一个列表包含列名并使用该列表引用 R 中的小标题

Question

table 包含我的名字、我的年龄、我的身高。我想存储在列表中以获取身高摘要，而不是使用 test = My Height

list<- c("`My Name`" , "`My Age`" , "`My Height`" )

table%>%
group_by(`My Name` ,`My Age`,`My Height` ) %>%
summarize(test = mean(list[3], na.rm = TRUE))

Answer 1

试试 summarize_at :

library(dplyr)
lst<- c("`My Name`" , "`My Age`" , "`My Height`" )

table%>%
  group_by(`My Name` ,`My Age`,`My Height` ) %>%
  summarize_at(vars(lst[3]), mean, na.rm = TRUE)

或使用非标准评估：

table %>%
  group_by(`My Name` ,`My Age`,`My Height` ) %>%
  summarise(test = mean(!!sym(lst[2]), na.rm = TRUE))

使用可重现的示例形式 mtcars

lst <- c('cyl', 'hp', 'am')

mtcars %>%
  group_by(cyl) %>%
  summarise_at(vars(list[2]), mean, na.rm  =TRUE)

# A tibble: 3 x 2
#    cyl  test
#  <dbl> <dbl>
#1     4  82.6
#2     6 122. 
#3     8 209.

一个列表包含列名并使用该列表引用 R 中的小标题

A list contain column names and using the list to reference the tibble in R

r

tibble