通过将函数应用于数据框的每一行来创建具有命名值的列表

我试图通过将函数应用于数据帧的每一行来获取每个元素都有名称的列表，但无法获得正确的输出。

假设这是我想要应用于每一行的函数：

format_setup_name <- function(m, v, s) {
 a <- list()
 a[[paste(m, "machines and", v, s, "GB volumes")]] <- paste(num_machines,num_volumes,vol_size,sep="-")
 a
}

如果这是输入数据帧：

df <- data.frame(m=c(1,2,3), v=c(3,3,3), s=c(15,20,30))

我无法获得如下所示的列表：

$`1-3-15`
[1] "1 machines and 3 15 GB volumes"

$`2-3-20`
[1] "2 machines and 3 20 GB volumes"

$`3-3-30`
[1] "3 machines and 3 30 GB volumes"

有人可以给我提示如何做吗？

为什么我需要这个？嗯，我想填充selectizeInput使用来自数据库的值闪亮。由于我要组合多个列，因此我需要一种方法来将所选输入与值相匹配。

这是一个很好的用例setNames可以添加names()就地属性到一个对象。另外，如果您使用as.list，您只需一行即可完成此操作，无需任何循环：

setNames(as.list(paste(df$m, ifelse(df$m == 1, "machine", "machines"), "and", df$v, df$s, "GB volumes")), paste(df$m,df$v,df$s,sep="-"))
# $`1-3-15`
# [1] "1 machine and 3 15 GB volumes"
# 
# $`2-3-20`
# [1] "2 machines and 3 20 GB volumes"
# 
# $`3-3-30`
# [1] "3 machines and 3 30 GB volumes"