suppressPackageStartupMessages({
library(dplyr)
})
DF <- tibble::tribble(
~tenure_type, ~race_eth_type, ~count, ~moe,
"Owner occupied", "ALL", 76444810, 367132,
"Renter occupied", "ALL", 43285318, 139467,
"Owner occupied", "BLACK OR AFRICAN AMERICAN ALONE HOUSEHOLDER", 6131359, 45617,
"Renter occupied", "BLACK OR AFRICAN AMERICAN ALONE HOUSEHOLDER", 8552346, 29687,
"Owner occupied", "WHITE ALONE, NOT HISPANIC OR LATINO HOUSEHOLDER", 58423846, 226380,
"Renter occupied", "WHITE ALONE, NOT HISPANIC OR LATINO HOUSEHOLDER", 22993331, 82321
)
ALL <- DF[1:2,1:3]
BW <- DF[3:6,1:3]
BW_OO <- sum(DF[c(3,5),1:3]$count)
BW_RT <- sum(DF[c(4,6),1:3]$count)
ALL_OO <- sum(DF[1,1:3]$count)
ALL_RT <- sum(DF[2,1:3]$count)
OTH_OO <- data.frame(tenure_type = "Renter occupied",race_eth_type = "OTHER", count = ALL_OO - BW_OO, moe = NA)
OTH_RT <- data.frame(tenure_type = "Owner occupied",race_eth_type = "OTHER", count = ALL_RT - BW_RT, moe = NA)
bind_rows(DF,OTH_OO,OTH_RT)
#> # A tibble: 8 x 4
#> tenure_type race_eth_type count moe
#> <chr> <chr> <dbl> <dbl>
#> 1 Owner occupied ALL 7.64e7 367132
#> 2 Renter occupied ALL 4.33e7 139467
#> 3 Owner occupied BLACK OR AFRICAN AMERICAN ALONE HOUSEHOLDER 6.13e6 45617
#> 4 Renter occupied BLACK OR AFRICAN AMERICAN ALONE HOUSEHOLDER 8.55e6 29687
#> 5 Owner occupied WHITE ALONE, NOT HISPANIC OR LATINO HOUSEHOLDER 5.84e7 226380
#> 6 Renter occupied WHITE ALONE, NOT HISPANIC OR LATINO HOUSEHOLDER 2.30e7 82321
#> 7 Renter occupied OTHER 1.19e7 NA
#> 8 Owner occupied OTHER 1.17e7 NA
Created on 2021-01-02 by the reprex package (v0.3.0.9001)