在用户定义的函数中将字符串作为参数传递

Question

fun1 <- function(x){
  selectDay <- subset(tips, day == x, select = tip)
  print("Day Selected = ")
  print(x)
  meanOfDay <- mean(selectDay)
  meanOfDay
}

fun1("Sun")

在我正在处理的数据框中，在日列中有许多值（“太阳”，“周四”等）。我正在选择一个（例如星期日）并计算那天收到的平均提示。但是，我收到的错误是说参数不是数字或逻辑：返回NA。

我该如何解决这个问题？谢谢！