R에서 데이터프레임에 tibble 열별, 행별 총합 붙이기

가끔 R에서 문서에 들어가는 표를 작성하는 경우 데이터 프레임의 아래쪽과 옆쪽에 총합을 구해서 넣고싶은 경우가 있다. 이러한 것을 쉽게 해주는 함수가 janitor 패키지에 존재한다. adorn_totals() 함수를 사용하여 넣어주면 된다. 행에 넣고 싶은 경우 "row"만 입력하면 된다. 쉬워서 그냥 코드만 붙여넣었음.

library(tidyverse)
library(janitor)

mytab <- tibble::tribble(
    ~성별, ~`20대`, ~`30대`, ~`40대`, ~`50대`, ~`60대.이상`,
    "Male",    20L,    20L,    20L,     0L,        0L,
    "Female",  20L,    20L,     0L,     0L,        0L
)

mytab
#> # A tibble: 2 × 6
#>   성별   `20대` `30대` `40대` `50대` `60대.이상`
#>   <chr>   <int>  <int>  <int>  <int>       <int>
#> 1 Male       20     20     20      0           0
#> 2 Female     20     20      0      0           0

mytab |> 
    adorn_totals(c("row", "col")) 
#>    성별 20대 30대 40대 50대 60대.이상 Total
#>    Male   20   20   20    0         0    60
#>  Female   20   20    0    0         0    40
#>   Total   40   40   20    0         0   100