ggplot循环中的Group子句

Question

我想将ggplot放入循环中。循环是遍历多列。我在另一个线程上找到的udf的帮助下，在aes命令中管理了这个 without group子句： How do I combine aes() and aes_string() options

# Necessary for use of BOTH aes and aes_string
`+.uneval` <- function(a,b) {
                              `class<-`(modifyList(a,b), "uneval")
                              }

# Create list of column names
columns = as.character(c("quantity_actual", "price_sale", "quantity_corrected"))

# Loop through the columns
for (i in columns)
{
  print(
        ggplot(demand, aes(x = date) + aes_string(y = i)) +
          geom_line() +
          scale_y_continuous(labels = comma)
        )
}

但是，在另一个我确实需要group子句的情节中，R无法识别它的存在

for (i in columns)
  {
    print(
            ggplot(demand_year_month, aes(x = year_month) + aes_string(y = i), group = 1) +
            geom_line() +
            scale_y_continuous(labels = comma)
          )
  }

因为它抛出错误： 'geom_path：每组仅包含一个观察值。您需要调整团队审美吗？” 我的猜测是需要对udf进行修改。如果是这样，怎么办？还是有更整洁的解决方案？谢谢。