Сумма для каждой категории в факторных переменных
Я хотел бы получить таблицу, в которой подсчитываются частоты каждой категории факторов по всем переменным, кроме id. У меня есть несколько переменных, каждая из которых может содержать 1, 0 или NA, и мне нужна таблица, которая дает мне частоту каждой из них. Ниже я изменил NA на 2, поскольку NA не включен как категория в факторные переменные, а затем я создаю каждую из переменных, кроме id-факторов. Я не могу понять последний шаг, чтобы получить таблицу «хочу» ниже, в которой для каждой переменной просто подсчитывается количество единиц, количество нулей и количество NA.
# have
df3=data.frame(id=c(1,2,3,4,5,6,7),
ibd=c(0,1,1,0,0,1,1),
ihd=c(1,1,0,NA,0,0,1),
psoriasis=c(0,0,NA,0,0,1,1),
mi=c(1,0,0,0,0,NA,1)
)
df3 %>% replace(is.na(.), 2)
df3 <- df3 %>%
mutate(across(-c(id), as.factor))
# want
df5=data.frame(id=c("1s", "0s", "NAs"),
ibd=c(4,3,0),
ihd=c(3,3,1),
psoriasis=c(2,4,1),
mi=c(2,4,1)
)
Стоит ли изучать PHP в 2026-2027 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
2
0
74
4
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 4
Ответ принят как подходящий
library(tidyr); library(dplyr)
pivot_longer(df3, -id) |>
group_by(name) |>
count(value) |>
pivot_wider(names_from=name, values_from=n, values_fill=0)
# A tibble: 3 × 5
value ibd ihd mi psoriasis
<fct> <int> <int> <int> <int>
1 0 3 3 4 4
2 1 4 3 2 2
3 NA 0 1 1 1
Вы можете использовать table + stack, как показано ниже.
table(
stack(
type.convert(df3[-1], as.is = TRUE)
),
useNA = "ifany"
)
который дает
ind
values ibd ihd psoriasis mi
0 3 3 4 4
1 4 3 2 2
<NA> 0 1 1 1
Filter(is.factor, df3) |>
lapply(\(x) table(factor(x, levels = c(1, 0)), useNA = "always")) |>
do.call(cbind, args = _) |>
as_tibble(rownames = "id")
# id ibd ihd psoriasis mi
# <chr> <int> <int> <int> <int>
# 1 1 4 3 2 2
# 2 0 3 3 4 4
# 3 NA 0 1 1 1
Где
df3 <- data.frame(
id = seq(1, 7, by = 1),
ibd = factor(c("0", "1", "1", "0", "0", "1", "1")),
ihd = factor(c("1", "1", "0", NA, "0", "0", "1")),
psoriasis = factor(c("0", "0", NA, "0", "0", "1", "1")),
mi = factor(c("1", "0", "0", "0", "0", NA, "1"))
)
library(purrr)
library(dplyr)
select(df3, -id) |>
imap(\(x, y) as.data.frame(table(x, useNA = "always", dnn = "id"), responseName = y)) |>
reduce(full_join, by = "id")
# id ibd ihd psoriasis mi
# 1 0 3 3 4 4
# 2 1 4 3 2 2
# 3 <NA> 0 1 1 1
Другие вопросы по теме
Сгруппируйте 2d коллекцию Laravel по двум столбцам и суммируйте третий столбец в каждой группе
Суммирование значений словаря в C#
Возвращает СУММУ всех ячеек, которые соответствуют ДВУМ КРИТЕРИЯМ, связанным ПОЗИЦИЕЙ
SQL выберите сумму объединенной таблицы
Как я могу завершить двойную сумму N*M-элементов за время O(N+M)?
Используйте QUERY вместо COUNTIFS в формуле Google Таблиц
Суммирует по перекрывающимся прямоугольным срезам двумерного массива
Как удалить пустые столбцы/столбцы с нулевой суммой
Сумма значений в массиве Vbscript
Почему Pythons sum() и Pandas sum() дают разные результаты
Похожие вопросы
Создание таблицы частот для каждого столбца в фрейме данных с помощью цикла и сохранение результатов в списке
Вложенное сохранение объектов отображения purrr в R
Объедините две таблицы, если заданное значение переменной является частью другой переменной
Как изменить пределы оси X для определенных фасетов в ggplot2 facet_grid?
Табуляция столбца в data.frame, игнорируя порядок элементов в нем в R
Подстрока {.col} из mutate(across()) на лету
Агрегировать ежедневные растровые данные по неделям в R
Удалить перекрывающиеся полигоны
Соответствие индекса в data.table
Проблемы при работе с векторными слоями в R terra «Точки LinearRing не образуют замкнутую линию»
group_by(name) |> count(value)равноcount(name, value)