创建函数来对数据帧进行子集，然后利用r中的特定列

subset_dataframe <- function(dataframe, columns) {
  subset <- dataframe[, columns, drop = FALSE]
  return(subset)
}

# 创建一个示例数据帧
df <- data.frame(
  id = c(1, 2, 3),
  name = c("Alice", "Bob", "Charlie"),
  age = c(25, 30, 35)
)

# 使用函数进行子集操作，仅保留"id"和"name"列
subset_df <- subset_dataframe(df, c("id", "name"))

# 打印子集后的数据帧
print(subset_df)

  id    name
1  1   Alice
2  2     Bob
3  3 Charlie