Як додати підсумковий рядок до кадру даних у r
Ви можете використовувати наступні методи, щоб додати рядок «загальний» у нижню частину кадру даних у R:
Спосіб 1: Використовуйте Base R
rbind(df, data. frame (team=' Total ', t(colSums(df[, -1]))))
Спосіб 2: використовуйте dplyr
library (dplyr) df %>% bind_rows(summarize(., across(where(is.numeric), sum), across(where(is.character), ~' Total ')))
У наступному прикладі показано, як використовувати кожен метод на практиці з таким кадром даних:
#create data frame df <- data. frame (team=c('A', 'B', 'C', 'D', 'E', 'F'), assists=c(5, 7, 7, 9, 12, 9), rebounds=c(11, 8, 10, 6, 6, 5), blocks=c(6, 6, 3, 2, 7, 9)) #view data frame df team assists rebound blocks 1 to 5 11 6 2 B 7 8 6 3 C 7 10 3 4 D 9 6 2 5 E 12 6 7 6 F 9 5 9
Приклад 1: додайте підсумковий рядок за допомогою бази R
Ми можемо використовувати функції rbind і colSums R base, щоб додати підсумковий рядок у нижній частині кадру даних:
#add total row to data frame df_new <- rbind(df, data. frame (team=' Total ', t(colSums(df[, -1])))) #view new data frame df_new team assists rebound blocks 1 to 5 11 6 2 B 7 8 6 3 C 7 10 3 4 D 9 6 2 5 E 12 6 7 6 F 9 5 9 7 Total 49 46 33
Зверніть увагу, що внизу кадру даних додано рядок, який відображає суму значень у кожному стовпці.
Приклад 2: додайте підсумковий рядок за допомогою dplyr
Наступний код показує, як використовувати функції пакету dplyr у R, щоб додати підсумковий рядок у нижню частину кадру даних:
library (dplyr) #add total row to data frame df_new <- df %>% bind_rows(summarize(., across(where(is.numeric), sum), across(where(is.character), ~' Total '))) #view new data frame df_new team assists rebound blocks 1 to 5 11 6 2 B 7 8 6 3 C 7 10 3 4 D 9 6 2 5 E 12 6 7 6 F 9 5 9 7 Total 49 46 33
Зверніть увагу, що внизу кадру даних додано рядок, який відображає суму значень у кожному стовпці.
Також зауважте, що цей метод дає ті самі результати, що й базовий метод R.
Додаткові ресурси
У наступних посібниках пояснюється, як виконувати інші типові завдання в R:
Як використовувати rbind у R
Як видалити рядки в R
Як обчислити різницю між рядками в R