列を返す関数の作成

Question

関数に与えられた列を引数として返す関数を作成する必要があります。例えば

fun = function (parameter) { 
result = get(paste0("dataframe","parameter")) 
return(result) } 

ので、私はfun (columnnamethatexists)を使用する場合、それは現在dataframe$columnnamethatexists

を返すだろうと、何それがないと、リターンデータフレーム$パラメータは関係なく、私が入力として置くものを、存在しませんです。

申し訳ありませんが、私はそれを見つけることができませんでした。

ありがとうございます！

Answer 1

dataframe <- data.frame(a = 1:10, b = LETTERS[1:10]) 

fun <- function(val) { 
    dataframe[, val] 
} 

fun("a") 
# [1] 1 2 3 4 5 6 7 8 9 10 
fun("b") 
# [1] A B C D E F G H I J 
# Levels: A B C D E F G H I J 

Answer 2

私はdfもあなたの関数の引数であるべきだと思います。このソリューションは、常にdata.frameの形式で列を返します。

だから：

fun <- function(df, col){ 
    df[col] 
} 
fun(iris, "Sepal.Length") 
    Sepal.Length 
1   5.1 
2   4.9 
3   4.7 
4   4.6 
5   5.0 
6   5.4 
7   4.6 
8   5.0 
... 

またrlangにとdplyrで、tidyevalでそれを行うことができます。

library(rlang) 
library(dplyr) 

fun <- function(df, col){ 
    col <- enquo(col) 
    df %>% select(!!col) 
} 

fun(iris, Sepal.Length) 

ベスト、

コリン・