Создание таблицы в качестве вывода

Я полностью застрял в создании таблицы из следующего кода:

table4a = NY %>% 
  group_by(loan_type) %>% 
  summarize(
    min_amt = min(loan_amount, na.rm=TRUE), 
    max_amt = max(loan_amount, na.rm=TRUE), 
    mean_amt = mean(loan_amount, na.rm = TRUE))
table4a <- as.data.table(table4a)

По сути, мне нужны минимальные, максимальные и средние суммы по типу кредита в таблице, но это просто не работает; Я знаю, что могу создать отдельные минимальные, максимальные и средние значения по типу кредита и включить их в матрицу, но я чувствую, что должен быть лучший способ! Пожалуйста помоги!


r dplyr
person Kay Sh    schedule 13.11.2020    source источник
comment
Что значит не работает именно здесь? Вы получаете какую-то ошибку? Вам будет легче помочь, если вы включите простой воспроизводимый пример с образцом ввода и желаемым выводом, которые можно использовать для тестирования и проверки возможных решений.   -  person MrFlick    schedule 14.11.2020
comment
Я не получаю синтаксическую ошибку; скорее, я пытаюсь получить вывод, который выглядит как отформатированная таблица, которую я мог бы экспортировать и включить в документ (т. е. с правильными заголовками и т. д.).   -  person Kay Sh    schedule 14.11.2020
comment
Ну, поскольку мы не можем запустить код, неясно, каков ваш текущий вывод и как он должен выглядеть. воспроизводимый пример поможет вам намного проще. Что такое правильный заголовок?   -  person MrFlick    schedule 14.11.2020

Ответы (1)


arrow_upward
0
arrow_downward

Трудно дать совет без подробностей, но посмотрите на пакет gt, например.

library(tidyverse)
#install.packages("palmerpenguins")
library(palmerpenguins)
#install.packages("gt")
library(gt)

penguins %>% 
  group_by(species) %>%
  na.omit() %>% 
  mutate(Minimum = as.numeric(min(flipper_length_mm)),
         Maximum = max(bill_length_mm),
         Mean = mean(bill_depth_mm)) %>% 
  select(species, Minimum, Maximum, Mean) %>% 
  unique() %>% 
  gt(groupname_col = TRUE)

example.png

person jared_mamrot    schedule 14.11.2020
comment
Большое спасибо! Пакет gt действительно помог! - person Kay Sh; 22.11.2020
comment
Нет проблем, пожалуйста, примите ответ, если проблема решена. - person jared_mamrot; 23.11.2020