R의 데이터 프레임에 총 행을 추가하는 방법

다음 방법을 사용하여 R의 데이터 프레임 하단에 “전체” 행을 추가할 수 있습니다.

방법 1: 기본 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을 사용하여 합계 행 추가

R base의 rbind 및 colSums 함수를 사용하여 데이터 프레임 하단에 전체 행을 추가할 수 있습니다.

 #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을 사용하여 합계 행 추가

다음 코드는 R의 dplyr 패키지 함수를 사용하여 데이터 프레임 하단에 전체 행을 추가하는 방법을 보여줍니다.

 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에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

R에서 rbind를 사용하는 방법
R에서 줄을 삭제하는 방법
R에서 행 간의 차이를 계산하는 방법