Using KDIGO 2012 Clinical Practice Guideline for the Evaluation and Management of Chronic Kidney Disease Volume 3 | Issue 1 | January 2013
GFR_staging(...)
# S3 method for class 'data.frame'
GFR_staging(.data, GFR, ...)
# S3 method for class 'units'
GFR_staging(GFR, ...)
# S3 method for class 'numeric'
GFR_staging(GFR, ...)
GFR category
G1: Normal or high GFR, \(\ge\)90
G2: Mildly decreased, 60-89
G3a: Mildly to moderately decreased, 45-59
G3b: Moderately to severely decreased, 30-44
G4: Severely decreased, 15-29
G5: Kidney failure, <15
See https://kdigo.org/guidelines/ckd-evaluation-and-management/ for more details
df <- tibble::tibble(
eGFR = units::set_units(c(-1, NA, 100, 70, 50, 35, 20, 10), "mL/min/1.73m2")
)
GFR_staging(df, "eGFR")
#> [1] <NA> <NA> G1 G2 G3a G3b G4 G5
#> Levels: G1 < G2 < G3a < G3b < G4 < G5
df %>%
dplyr::mutate(GFR_level = GFR_staging(eGFR))
#> # A tibble: 8 × 2
#> eGFR GFR_level
#> [mL/1.73m2/min] <ord>
#> 1 -1 NA
#> 2 NA NA
#> 3 100 G1
#> 4 70 G2
#> 5 50 G3a
#> 6 35 G3b
#> 7 20 G4
#> 8 10 G5