R извлечение частот
Я пытаюсь получить частоты, но мои идентификаторы повторяются. Вот пример данных:
id <- c(1,1,2,2,3,3)
gender <- c("m","m","f","f","m","m")
score <- c(10,5,10,5,10,5)
data <- data.frame("id"=id,"gender"=gender, "score"=score)
> data
id gender score
1 1 m 10
2 1 m 5
3 2 f 10
4 2 f 5
5 3 m 10
6 3 m 5
Я хотел бы получить частоты гендерных категорий, но у меня есть повторяющиеся идентификаторы. Когда я запускаю этот код ниже:
gender<-as.data.frame(table(data$gender))
> gender
Var1 Freq
1 f 2
2 m 4
Частота должна быть женской = 1, мужской = 2. это должно выглядеть так, как показано ниже:
> gender
Var1 Freq
1 f 1
2 m 2
Как я могу получить это, учитывая информацию об идентификаторе?
Стоит ли изучать PHP в 2023-2024 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
1
1
400
4
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 4
Вы можете использовать data.table::uniqueN для подсчета количества уникальных идентификаторов для каждой гендерной группы.
library(data.table)
setDT(data)
data[, .(Freq = uniqueN(id)), gender]
# gender Freq
# 1: m 2
# 2: f 1
Идея от @IceCreamToucan с dplyr:
data %>%
group_by(gender) %>%
summarise(freq = n_distinct(id))
gender freq
<fct> <int>
1 f 1
2 m 2
по какой-то причине я получаю общую частоту, а не частоту для каждой категории с вашим кодом.
—
09.07.2019 22:38
Это странно. Попробуйте обновиться до последней версии dplyr.
—
09.07.2019 22:41
Ответ принят как подходящий
В базе R
rowSums(table(data$gender,data$id)!=0)
f m
1 2
Опоздав на вечеринку, я был очень удивлен сложными ответами, в которых используется группировка или rowSums().
В базе R я бы
- удалите повторяющиеся строки
idиз data.frame, подставив подмножество с помощьюduplicated(id), - примените
table()к столбцуgender.
Итак, код
table(data[duplicated(data$id), "gender"])
f m 1 2
Другие вопросы по теме
Как я могу написать этот рабочий код для повышения производительности?
Соедините две таблицы данных с помощью одной числовой переменной с динамическим допуском
Как выполнять вычисления ifelse на основе первой строки по группе в R data.table
Воссоздайте сводку dplyr в data.table
Как применить комбинированную функцию к строкам data.table для извлечения и записи различных возможностей в другой data.table?
Последовательность путем сокращения data.table
Создайте двоичную переменную на основе первого появления другой переменной (даты)
Используя roll in data.table join, могу ли я заставить строго одно совпадение
Data.table — группировка по пользовательским функциям, возвращающим матрицу
Как можно преобразовать таблицу данных с помощью data.table
Похожие вопросы
Последующие проходы цикла для интерполяции подсчета населения не заполняют фрейм данных, как предполагалось - логика неверна?
Как построить несколько последовательностей (пакет TraMineR) с помощью функции plot_grid() в R?
Как поместить неопределенное количество элементов ggplot в сетку
Ошибка в match.arg(mvnTest): 'arg' должен иметь длину 1
Для цикла по списку элементов для использования в gsub R
Rbind dataframe в списке ко всем другим фреймам данных в списке
Tsclean не работает с отдельными векторными данными
Установка пакета R ОШИБКА: установка бинарного пакета не удалась
Как сделать запрос POST с параметрами заголовка и данных в R, используя httr::POST?
Расстояние диапазона R - существует ли существующая функция?
Сначала вам нужно однозначно идентифицировать комбинации id-gender. Тогда сделайте свой стол. Вот один из способов:
table(unique(data[ , c("id", "gender"))$gender)