ggplot2实验室中的错误功能？标记x轴不起作用

Question

这是我第一次遇到R在使用ggplot2时拒绝重命名x轴标签。当使用下面的代码时，x轴标签仍然是“花费”（数据框中的变量），而我想将标签更改为“对大学生预算的意见”。

spending <- as.factor(c("Increase", "Decrease", "Same", "NoAnswer"))
frequency <- c(0.44, 0.16, 0.37, 0.03)
budget <- data.frame(spending, frequency)

budgetBar <- ggplot(budget, aes(spending, frequency))
budgetBar + geom_col() +
  scale_x_discrete("spending", limits = c("Increase", "Same", "Decrease", "NoAnswer")) + 
  labs(x = "Opinion on College Student Budget", y = "Percentage") + 
  scale_y_continuous(labels = scales::percent)

这是我的代码中的错误还是我看不到的东西？