R函數返回結果

Question

我嘗試創建一個包含R循環的函數時遇到了一些麻煩。循環工作正常，但是當我將它放入函數體內時，它不會再寫任何輸出。

所以給我的數據有：

df1<-data.frame(a=sample(1:50,10),b=sample(1:50,10),c=sample(1:50,10)) 

我創建一個向量來存儲我的結果，並與一些功能

result <- vector("list",10) 

    for (i in 1:10) 
    { 
     result[[i]] <- df1*i 
    } 

一個循環，當我嘗試創建這樣

功能

# make the loop a function 
    result2 <- vector("list",10) 

    loop.function<- 
     function(x,a,b){ 
     for (i in a:b) 
     { 
     result2[[i]] <- x*i 
     } 
    } 
    loop.function(df1,1,10) 

我在「result2」中找不到數據。所以我認爲在語法上存在一些基本問題。誰能幫我嗎？

Answer 1

您的函數不返回它創建的列表。您需要添加一個return命令：

result2 <- vector("list",10) 

loop.function<- 
    function(x,a,b){ 
    for (i in a:b) 
    { 
    result2[[i]] <- x*i 
    } 
    return(result2) # added this row 
} 

---

順便說一句：這個功能的一個較短的版本可以與lapply創建：

myfun <- function(x, a = 1, b) { 
    lapply(seq(a, b), "*", x) 
}