Я хотел бы использовать janitor::tabyl для создания двусторонних таблиц для каждой переменной с учетом данной переменной в данных. Например

library(tidyverse)
library(janitor)
humans <- starwars %>%
    filter(species == "Human")
t2 <- humans %>%
    tabyl(gender, eye_color)

t2 %>%
  adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 2) %>%
  adorn_ns()
#>  gender       blue blue-gray       brown      dark      hazel    yellow
#>  female 33.33% (3) 0.00% (0) 55.56%  (5) 0.00% (0) 11.11% (1) 0.00% (0)
#>    male 34.62% (9) 3.85% (1) 46.15% (12) 3.85% (1)  3.85% (1) 7.69% (2)

В идеале я хотел бы использовать purrr:map для перебора всех остальных переменных и выполнения приведенной выше таблицы в отношении gender. Пока что я создал основную таблицу после этот пост

humans %>%
  select_if(is.character) %>%
  select(-name, -gender) %>%
  imap(.f = ~janitor::tabyl(dat = humans, !!sym(.y), gender))

Но у меня возникают проблемы с применением аналогичной логики к ранее предоставленным вызовам adorn_*.

Есть ли способ сделать это с помощью purrr?

r tidyverse purrr janitor
1
Jack Reimer 23 Сен 2020 в 10:23

1 ответ

Лучший ответ

Я не думаю, что что-то изменится и в вызове imap, вы можете просто передать (%>%) функции аналогичным образом:

library(janitor)
library(dplyr)

humans %>%
  select(where(is.character)) %>%
  select(-name, -gender) %>%
  purrr::imap(.f = ~tabyl(dat = humans, !!sym(.y), gender) %>%
                     adorn_percentages("row") %>%
                     adorn_pct_formatting(digits = 2) %>%
                     adorn_ns())

#$hair_color
#    hair_color    feminine   masculine
#        auburn 100.00% (1)   0.00% (0)
#  auburn, grey   0.00% (0) 100.00% (1)
# auburn, white   0.00% (0) 100.00% (1)
#         black  12.50% (1)  87.50% (7)
#         blond   0.00% (0) 100.00% (3)
#         brown  42.86% (6)  57.14% (8)
#   brown, grey   0.00% (0) 100.00% (1)
#          grey   0.00% (0) 100.00% (1)
#          none   0.00% (0) 100.00% (3)
#         white  50.00% (1)  50.00% (1)

#$skin_color
# skin_color   feminine    masculine
#       dark  0.00% (0) 100.00%  (4)
#       fair 18.75% (3)  81.25% (13)
#      light 54.55% (6)  45.45%  (5)
#       pale  0.00% (0) 100.00%  (1)
#        tan  0.00% (0) 100.00%  (2)
#      white  0.00% (0) 100.00%  (1)
#....
2
Ronak Shah 23 Сен 2020 в 07:31

Похожие вопросы

5 Построение двух переменных в виде линий с помощью ggplot2 на одном графике
15 Как я могу удалить все объекты, кроме одного, из рабочей области в R?
5 удалить все переменные, кроме функций
2 как запускать модели с комбинациями двух переменных и возвращать фрейм данных с p-значениями и r-квадратом для каждой модели с помощью tidyverse
1 Использование Purrr :: map2 для перебора двух векторов имен столбцов, чтобы условно перекодировать несколько столбцов в новые переменные
1 Отбросьте переменные с одним уровнем фактора, исключая НП
4 tidyverse: скрещивание таблиц одной переменной со всеми другими переменными в data.frame
1 Таблица двусторонних непредвиденных обстоятельств с частотами и процентами
1 табуляция с помощью tabyl путем группировки переменных с помощью group_split и group_map
3 мурлыкать итерацию или цикл по всем столбцам (аналогично функции, которая считает и суммирует или вычитает переменные)
1 `stringr :: str_replace ()` для списка или замен - но возвращает только один вывод
2 tidyverse: таблицы сопряженности для всех возможных комбинаций переменных
1 Как использовать tabyl () с двумя переменными внутри функции?
1 Устанавливает пакет в R, вызывая ошибку функций dplyr (Ошибка в FUN(X[[i]], ...): определяется только во фрейме данных со всеми числовыми переменными)

Связанные вопросы

4 tidyverse: скрещивание таблиц одной переменной со всеми другими переменными в data.frame
💵 Получи $100 на хостинг на 60 дней.
Регистрируйся!

Новые вопросы

1 Указание разных заголовков ggplot при использовании цикла for для создания нескольких графиков
3 Как правильно отсортировать значения оси x (месяц-год) на гистограмме ggplot2?
2 Запуск линейных регрессий за несколько лет из одного фрейма данных в R и сохранение коэффициентов в новый фрейм данных
2 Как использовать функцию R развертки
1 Как рассчитать размер выборки с помощью R, применяя дизайн смешанной модели
3 Shiny / DT / сохранить изменения при переключении и окрашивании ячеек после изменения
1 R data.table скользящее соединение и т. д., чтобы добавить динамику к предыдущему периоду
1 использование mutate, paste0 и case_when в итерации; проблема с изменением существующих переменных с помощью paste0
1 Как сделать увеличенную врезку карты с помощью ggmagnify и ggplot2
1 Как загрузить с URL-адреса данные .xls с объединенными ячейками с помощью R
Все вопросы по теме r >

r

R — это бесплатный язык программирования с открытым исходным кодом и программная среда для статистических вычислений, биоинформатики, визуализации и общих вычислений. Пожалуйста, используйте минимально воспроизводимые примеры, которые другие могут запустить с помощью копирования и вставки. Показать желаемый результат полностью. Используйте dput() для данных и укажите все небазовые пакеты с помощью library(). Не вставляйте изображения для данных или кода, вместо этого используйте блоки кода с отступом. Для вопросов по статистике используйте https://stats.stackexchange.com.

Подробнее про r...