如何在R函數中找到多個解決方案？

Question

我剛剛開始學習R，但找不到這個簡單問題的任何解決方案。 我試圖創建自己的功能。

sta<-function(a) 

{mean1<-mean(data$feb05, na.rm = TRUE) var(data$feb05, na.rm = TRUE)}

在函數中，我的目的是發現數據的均值和方差。 我遇到的問題是：

1）我想給數據的平均值命名為mean1 。 但是，每當我寫mean1時，我都找不到任何解決方案。

2）如果我在沒有名稱和var函數的函數中只寫mean(data$feb05, na.rm = TRUE) ，則可以獲得解決方案。 但是，如果我一起編寫Mean和var，我將無法獲得任何解決方案。

因此，作為總結，我要求給解決方案起一個名字，並在一個函數中找到多個解決方案。

Answer 1

作為向量返回

sta <- function(a) {
   c(mean1 = mean(a, na.rm = TRUE),  var1 = var(a, na.rm = TRUE))
}

現在你可以做

sta(data$feb05)

例如，

new_var <- sta(mtcars$mpg)
new_var
#mean1  var1 
#   20    36 

因此，如果您想現在訪問單個元素，則可以

new_var['mean1']
#mean1 
#   20 

new_var['var1']
#var1 
#  36 

或者您也可以將它們作為list返回

sta <- function(a) {
  list(mean1 = mean(a, na.rm = TRUE),  var1 = var(a, na.rm = TRUE))
}

並使用$運算符訪問元素，例如new_var$mean1和new_var$var1 。