Row Values not appearing in Output

Question

I have data that is formatted like so. I would like to calculate the percent of enrollment associated with each racial group.

building <- c(1, 2)
total_enrollment <- c(100, 200)
black_count <- c(32, 69)
hispanic_count <- c(10, 19)
white_count <- c(44, 86)
asian_count <- c(5, 12)
nativeamerican_count <- c(4, 7)
multiracial_count <- c(5, 7)

school_racial_breakdown <- data.frame(building, total_enrollment, black_count, hispanic_count, white_count,
                                      asian_count, nativeamerican_count, multiracial_count)

I wrote the following code:

library(writexl)

cols <- c('black_count', 'hispanic_count', 'white_count', 'asian_count', 'nativeamerican_count', 'multiracial_count')

school_racial_breakdown[,paste0(cols, 'Percent')] <- lapply(cols, function(x) school_racial_breakdown[,x]/school_racial_breakdown[,2]) 

write_xlsx(school_racial_breakdown, 'Demographic File.xlsx')

However, when I write to the excel file, the columns containing the percentages are blank. Any idea why this is happening and how I can fix it?

Thank you!

Answer 1

require( tidyverse )
require( writexl )
counts <- tribble(
  ~black, ~hispanic, ~white, ~asian, ~native, ~multi
  ,   32,        10,     44,      5,       4,      5
  ,   69,        19,     86,     12,       7,      7
)

##  A tibble: 2 × 6
#   black hispanic white asian native multi
#   <dbl>    <dbl> <dbl> <dbl>  <dbl> <dbl>
# 1    32       10    44     5      4     5
# 2    69       19    86    12      7     7


# Total by building
( totals <- counts %>% rowSums() )
# [1] 100 200

( portions <- counts / totals )
#   black hispanic white asian native multi
# 1 0.320    0.100  0.44  0.05  0.040 0.050
# 2 0.345    0.095  0.43  0.06  0.035 0.035

portions %>% rowSums()
# [1] 1 1

( result <- cbind( counts, portions) )
#   black hispanic white asian native multi black hispanic white asian native multi
# 1    32       10    44     5      4     5 0.320    0.100  0.44  0.05  0.040 0.050
# 2    69       19    86    12      7     7 0.345    0.095  0.43  0.06  0.035 0.035

write_xlsx( result, 'Demographic File.xlsx')