split（）函數不能嵌入另一個函數

Question

我想編寫一個稱爲state的狀態縮寫作爲其唯一輸入變量的函數。

應該然後..

• 讀取read.csv()
• 一定CSV文件中的功能與split()
• 返回與狀態縮寫分割數據幀向上通過的狀態的縮寫僅數據state

我知道這是一種過濾功能，但我明確地想要用split功能。

這裏是我的代碼：

best <- function(state) { 

## Read the data 
data <- read.csv("outcome-of-care-measures.csv", colClasses = "character") 

## Split data up by the 'State' column 
data_split <- split(data, data$State) 

## Return data with state in 'State' column 
data_split$state 

} 

## Executing the function 
best("NY") ## returns NULL 

當我執行這些行不使用的功能，這是工作。所以我認爲將輸入變量state作爲參數data_split$state存在問題。

感謝您的幫助。

最良好的祝願， 馬庫斯

Answer 1

你可以嘗試使用：

data_split[[state]] 

全碼：

best <- function(state) { 
    data <- read.csv("outcome-of-care-measures.csv", colClasses = "character") 
    # split data on the _column_ called 'State' 
    data_split <- split(data, data$State) 
    # return the entry in the list whose _name_ is contained in 'state' 
    data_split[[state]] 
}