如何通过函数使长数据变长？

Question

我正在尝试创建一个细分列，或者换句话说，使宽数据变长。但是，在迭代创建数据框来执行此操作时遇到了一个问题。

mtcars.1 <- mtcars %>%
  mutate(mpg = ifelse(mpg <= 25,"MPG <= 25","MPG > 25")) %>%
  mutate(displ = ifelse(disp <= 200,"Disp <= 200","Disp > 200"))


cols <- as.list(c("displ","mpg"))
SegmentSpread <-  function(x) {
  x <- mtcars.1 %>%
    group_by(cyl,x) %>%
    summarise(Count = n())
  return(x)
}

lapply(cols, SegmentSpread)

我想返回一个数据帧，其中位移段和mpg段在一个段列中，而每个列的计数在另一列中，而圆柱体则是一列。

我意识到我已经走了。

输出为：

 Error in grouped_df_impl(data, unname(vars), drop) : 
  Column `x` is unknown