Как подсчитать количество значений в столбцах на основе категории в R?

Предположим, у нас есть фрейм данных df, например

book_id book_category book_word_hi book_word_bye book_word_yes
1       drama         3            0             4
2       action        1            4             5
3       drama         5            3             2

Я хотел бы подсчитать количество значений в столбцах book_word и суммировать их в таблице для каждого book_category.

Таким образом, вывод здесь должен выглядеть примерно так:

drama: 17 
action: 10

Кто-нибудь знает как это сделать?

Стоит ли изучать PHP в 2023-2024 годах?
Стоит ли изучать PHP в 2023-2024 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
2
0
60
5
Перейти к ответу Данный вопрос помечен как решенный

Ответы 5

Используйте функцию summarise_atссылка на документы:

df %>%
  summarise_at(c("book_word_hi","book_word_bye","book_word_yes"), sum, na.rm = FALSE)

Также можно комбинировать с group_by

Спасибо. Есть ли способ адаптировать код, используя индекс столбца, а не имя столбца? Например. c([3:5])? @Mads

HelpMe 05.05.2022 16:16

Да, я так думаю. Проверьте документы, на которые я ссылался. Вы можете использовать операторы в стиле выбора, например: summarise_at(vars(book_word_hi:book_word_yes), mean, na.rm = FALSE) для одновременного выбора множества переменных.

Mads 05.05.2022 16:20

Вы также можете использовать индексацию столбцов. Проверьте этот другой ответ SO: stackoverflow.com/questions/45883513/…

Mads 05.05.2022 16:21

Здесь могут быть и другие столбцы, такие как book_word_foo, которые будут учитываться:

library(tidyverse)

data <- tribble(
  ~book_id, ~book_category, ~book_word_hi, ~book_word_bye, ~book_word_yes,
  1, "drama", 3, 0, 4,
  2, "action", 1, 4, 5,
  2, "drama", 5, 3, 2,
)

data %>%
  pivot_longer(-c(book_id, book_category)) %>%
  group_by(book_category) %>%
  summarise(n = sum(value))
#> # A tibble: 2 × 2
#>   book_category     n
#>   <chr>         <dbl>
#> 1 action           10
#> 2 drama            17

Created on 2022-05-05 by the reprex package (v2.0.0)

Ответ принят как подходящий

Это короткий и простой однострочный код на основе R, не требующий дополнительных пакетов.

tapply(rowSums(df[3:5]), df[2], sum)
#> book_category
#> action  drama 
#>     10     17 

Сначала просуммируйте все столбцы, которые starts_with содержат строку «book_word». Затем group_by и sum увеличьте значения на book_category.

library(dplyr)

df %>% 
  mutate(book_sum = rowSums(across(starts_with("book_word")))) %>% 
  group_by(book_category) %>% 
  summarize(sum = sum(book_sum))

# A tibble: 2 × 2
  book_category   sum
  <chr>         <int>
1 action           10
2 drama            17

Использование aggregate из base R

aggregate(book_sum ~ book_category, transform(data, book_sum = rowSums(data[3:5])), sum)
  book_category book_sum
1        action       10
2         drama       17

Другие вопросы по теме