R/convert_bin_percent_to_percent_passing.R

In evanmascitti/ecmfuns: A Compilation of My Own Personal R Functions

convert_bin_percent_to_percent_passing <- function(x){
  
  if(all(x$percent_in_bin > 1)){
    warning('Encountered `percent_in_bin` values >1; converting to decimal form instead of %')
    x$percent_in_bin <- 0.01*x$percent_in_bin
  }
  
  
  x_converted <- x %>% 
    dplyr::group_by(sample_name) %>% 
    dplyr::mutate(
      percent_retained = cumsum(percent_in_bin),
      percent_passing = 1 - percent_retained
    )
  
  
  return(x_converted)
  
  
}