R标记删除最后一列

我正在创建一个带有R标记的五位数汇总表，但最后一列显示了频率

我的问题是：

有没有办法删除最后一列？和

有没有办法把桌子调换一下

请参阅下面的代码：

mpg %>%
  summarize( Min = min(cty),
             Q1 = quantile(cty, 0.25),
             Mean = mean(cty),
             Q3 = quantile(cty, 0.75),
             Max = max(cty)
  ) %>% table %>% knitr::kable(caption = "Five Number Summary")

五位数字汇总表的图像：

---

最后一列来自

表

，您可以删除该列以删除最后一列

要转换数据，请使用

pivot\u longer

from

tidyr

library(dplyr)
mpg %>%
  summarize( Min = min(cty),
             Q1 = quantile(cty, 0.25),
             Mean = mean(cty),
             Q3 = quantile(cty, 0.75),
             Max = max(cty)) %>% 
  tidyr::pivot_longer(cols = everything()) %>%
  knitr::kable(caption = "Five Number Summary")

Table: Five Number Summary

|name |    value|
|:----|--------:|
|Min  |  9.00000|
|Q1   | 14.00000|
|Mean | 16.85897|
|Q3   | 19.00000|
|Max  | 35.00000|