基于r中的函数参数在csv文件中可变地选择列

我对r和stackoverflow都是新手，所以请容忍我

我有一个.csv文件，有三列，“日期”、“事件”和“出席”。我正在尝试创建一个函数，该函数允许根据函数参数值选择日期和事件列，或日期和出勤列：

imported_csv <- read.csv(name.csv)

column_sort <- function(parameter){
    parsed_data <- imported_csv[c('Date', parameter)]
}

---

imported\u csv我想这就是你要找的。在编制索引时，需要通过在前面添加逗号来指定列。索引如下：data.frame[行，列]。另外，将函数设置为返回某些内容

imported_csv <- data.frame('Date' = seq(as.Date("2000/1/1"), by = "month", length.out = 30),
                           'Event' = 1:30,
                           'Attendance' = sample(rep(c(TRUE, FALSE), 20), 30))

column_sort <- function(parameter){
    parsed_data <- imported_csv[ , c('Date', parameter)]
    return(parsed_data)
}

out <- column_sort('Event')

out

#         Date Event
# 1 2000-01-01     1
# 2 2000-02-01     2
# 3 2000-03-01     3
# 4 2000-04-01     4
# 5 2000-05-01     5
# 6 2000-06-01     6

imported\u csv如何调用
column\u sort
函数？@rawr我认为这在没有
返回的情况下是可行的。这个函数没有问题。我想还有别的事。你确定你的数据框导入正确吗？很好。就像数学所问的，你是如何使用这个函数的<代码>列排序（'Attention'）
？是的，我正在使用列排序（'Attention'）@rawr调用，我相信我的数据框正在正确导入。您可以向我们展示使用函数的代码部分及其上下文。
imported_csv <- data.frame('Date' = seq(as.Date("2000/1/1"), by = "month", length.out = 30),
                           'Event' = 1:30,
                           'Attendance' = sample(rep(c(TRUE, FALSE), 20), 30))

column_sort <- function(parameter){
    parsed_data <- imported_csv[ , c('Date', parameter)]
    return(parsed_data)
}

out <- column_sort('Event')

out

#         Date Event
# 1 2000-01-01     1
# 2 2000-02-01     2
# 3 2000-03-01     3
# 4 2000-04-01     4
# 5 2000-05-01     5
# 6 2000-06-01     6