如何在R中命名函数的输出/结果?

Question

直奔主题…我对R很陌生，我刚刚写了我的第一个"便宜":)函数，它是:

Holzrezeptur <- function(Spana, u, LG, FGL, HG, FGH) {
  if (u > 10) {
    warning("Ausgleichsfeuchtigkeit liegt über 10%")
  }
  Spanlut <- Spana*(1 + u/100)
  Leimfl <- (Spana*(LG/100))*(100/FGL)
  Haerterfl <- (Leimfl*(FGL/100)*HG/100)*(1000/FGH)
  out <- c(Spanlut, Leimfl, Haerterfl)
  return(out)
}
Holzrezeptur(1800, 4, 8, 60, 3, 30)
##[1] 1872  240  144

. .请原谅，这是用德语写的，我的英语一点也不懂:)。这是一种简化的方法，关于如何获得混合物来制造特定木材湿度的特定刨花板。

回答我的问题:我的三个输出是"Spanlut"，"Leimfl"one_answers"Haerterfl"，对于那些我想在最后命名的输出/结果。

所以结果不应该是:

##[1] 1872  240  144

但更像:

## Spanlutro Leimfluessig Haerterfluessig
##      1872          240             144

越简单越好!:)

如果我有一个方法，我会发布它，但我不知道如何开始。(我可以直接把它写进绑定吗?)我很确定对你们大多数人来说，这只是一个手指练习，所以我希望我的小问题得到回应。我真的希望我没有让你厌烦:)非常感谢你的帮助。

致以最诚挚的问候- db -

Answer 1

您需要在组合输出时提供名称。一种方法是创建一个数据框架。

你可以试试:

Holzrezeptur <- function(Spana, u, LG, FGL, HG, FGH) {
  if (u > 10) {
   warning("Ausgleichsfeuchtigkeit liegt über 10%")
  }
Spanlut <- Spana*(1 + u/100)
Leimfl <- (Spana*(LG/100))*(100/FGL)
Haerterfl <- (Leimfl*(FGL/100)*HG/100)*(1000/FGH)
out <- data.frame(Spanlutro =Spanlut
                   , Leimfluessig  = Leimfl
                   , Haerterfluessig = Haerterfl)
return(out)
}

Answer 2

最简单的解:out <- list(Spanlut=Spanlut, Leimfl=Leimfl, Haerterfl=Haerterfl)