Как заказать выходные столбцы для qwrap2 summary_table - PullRequest
Новая
       18

Как заказать выходные столбцы для qwrap2 summary_table

1 голос
/ 25 апреля 2019

Как я могу заказать выходные столбцы таблицы данных qwraps2 в R? При запуске кода под первым столбцом таблицы представлены выходные данные для 6 цилиндров, затем 4 цилиндров, затем 8 цилиндров.

Я пытался упорядочить данные, но это не влияет на таблицу вывода. 

library(qwraps2)
mtcars2 <-
  dplyr::mutate(mtcars,
                cyl_factor = factor(cyl,
                                    levels = c(6, 4, 8),
                                    labels = paste(c(6, 4, 8), "cylinders")),
                cyl_character = paste(cyl, "cylinders"))


our_summary1 <-
  list("Miles Per Gallon" =
         list("min" = ~ min(.data$mpg),
              "max" = ~ max(.data$mpg),
              "mean (sd)" = ~ qwraps2::mean_sd(.data$mpg)),
       "Displacement" =
         list("min" = ~ min(.data$disp),
              "median" = ~ median(.data$disp),
              "max" = ~ max(.data$disp),
              "mean (sd)" = ~ qwraps2::mean_sd(.data$disp)),
       "Weight (1000 lbs)" =
         list("min" = ~ min(.data$wt),
              "max" = ~ max(.data$wt),
              "mean (sd)" = ~ qwraps2::mean_sd(.data$wt)),
       "Forward Gears" =
         list("Three" = ~ qwraps2::n_perc0(.data$gear == 3),
              "Four"  = ~ qwraps2::n_perc0(.data$gear == 4),
              "Five"  = ~ qwraps2::n_perc0(.data$gear == 5))
  )

by_cyl <- summary_table(dplyr::group_by(mtcars2, cyl_factor), our_summary1)
by_cyl

Я хотел бы представить это в возрастающем порядке (сначала 4, затем 6, затем 8).

...