x <- data.frame(Gender = c("Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Male","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female","Female", "Female"), "Number" = c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0))
x
#> Gender Number
#> 1 Male 1
#> 2 Male 1
#> 3 Male 1
#> 4 Male 1
#> 5 Male 1
#> 6 Male 1
#> 7 Male 1
#> 8 Male 1
#> 9 Male 1
#> 10 Male 1
#> 11 Male 1
#> 12 Male 1
#> 13 Male 1
#> 14 Male 1
#> 15 Female 0
#> 16 Female 0
#> 17 Female 0
#> 18 Female 0
#> 19 Female 0
#> 20 Female 0
#> 21 Female 0
#> 22 Female 0
#> 23 Female 0
#> 24 Female 0
#> 25 Female 0
#> 26 Female 0
#> 27 Female 0
#> 28 Female 0
#> 29 Female 0
#> 30 Female 0
Created on 2020-02-12 by the reprex package (v0.3.0)