bind_rows
dplyr
# creating the setup given in the question
one<-c('Black','Black','Black','Black','Black','Black','Blue','Blue','Blue','Blue','Blue')
two<-c('Black','Black','Black','Black','Black','Black','Black')
three<-c('Blue','Blue','Blue')
tb1<-table(one)
tb2<-table(two)
tb3<-table(three)
# note that there is no need for individual dataframes
# bind the rows of the given tables into a tibble
result <- dplyr::bind_rows(tb1, tb2, tb3)
# replace NAs with 0 values
result[is.na(result)] <- 0
# check the resulting tibble
result
# # A tibble: 3 x 2
# Black Blue
# <dbl> <dbl>
# 1 6 5
# 2 7 0
# 3 0 3