在r（markdown）中创建汇总表

Question

我试图在R中创建一个类似于下面的表（然后在Rmarkdown中输出）；并且必须有一种方法（我会说更简单的方法，但最终我的尝试失败了）。

我想做的是创建四个单独的数据集，然后重新绑定它们，这与我在此可重现示例（如下）中所做的相似，如果我想查看“ vs”图表（无论是什么）， “齿轮”作为“碳水化合物”的函数，最终，我到达了一个第一列将不连接的地方，因为一个列被标记为“ vs”，另一个列被标记为“齿轮”，但实际上我想保留这些标签他们的观察结果在同一列中（年龄，性别，种族和SES都是如此）。

谢谢！

m <- mtcars%>%
  mutate(vs = ifelse(vs == 1, "one", "zero"))%>%
  group_by(cyl, vs)%>%
  summarize(count = n())%>%
  ungroup()%>%
  spread(cyl, count)

m.g <-  mtcars%>%
  mutate(gear = ifelse(gear == 3, "three", ifelse(
    gear == 4, "four", "five")
    )
  )%>%
  group_by(cyl, gear)%>%
  summarize(count = n())%>%
  ungroup()%>%
  spread(cyl, count)

total.d.f <- rbind(m, m.g)