適用関数を通したコロン名R

Question

私は、data.frameでapply関数とユーザー定義関数を使用しようとしています。関数内では、（プロットのタイトルの）列名を使用したいが、applyは列名を削除してベクトルだけを渡すようだ。 MWE：

trialData <- data.frame('a' = rnorm(100), 
         'b' = rnorm(100), 
         'c' = rnorm(100)) 

someData <- function(dataInput){ 
    return(colnames(dataInput)) 
} 

dataOutput <- apply(trialData, 2, someData) 

print(dataOutput) 

返信NULL関数内で列名にアクセスする方法はありますか？

Answer 1

コメント者のおかげで私は私の望む結果を得るために以下に到着しました。

trialData <- data.frame('a' = rnorm(100), 
         'b' = rnorm(100), 
         'c' = rnorm(100)) 

someData <- function(dataInput){ 
    # lots of code here 
    return(
    dataName = colnames(dataInput) 
) 
} 

dataOutput <- lapply(colnames(trialData), function(x){someData(trialData[x])}) 

print(dataOutput)