Блог

Я пытаюсь найти способ, как использовать функцию summary_table (qwraps2) для нескольких фреймов данных, имеющих одинаковые переменные. Так что в итоге у меня получается столбец для каждого data.frame.

Это похоже на то, что я получил до сих пор (пример из https://www.rdocumentation.org/packages/qwraps2/versions/0.5.0/topics/summary_table ):

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

orig_opt <- options()$qwraps2_markup
options(qwraps2_markup = "markdown")

whole <- summary_table(mtcars2, our_summary1)
whole
 

Но как получить второй, третий data.frame там?

Я попробовал что-то вроде:

 mtcars2.copy<-data.frame(mtcars2)
whole_table= summary_table(c(mtcars2,mtcars2.copy), our_summary1)
```
But it didn't work...
 

Хорошо, я думаю, что нашел решение:

 whole_table= summary_table(mtcars2, our_summary1)
whole_table2= summary_table(mtcars3, our_summary1)

cbind(whole_table,whole_table2)