gfg_data <- data.frame( Country = c("France","Spain","Germany","Spain","Germany", "France","Spain","France","Germany","France"), age = c(44,27,30,38,40,35,52,48,45,37), salary = c(6000,5000,7000,4000,8000), Purchased=c("No","Yes","No","No","Yes","Yes", "No","Yes","No","Yes")) gfg_table =table(gfg_data$salary,gfg_data$Country) gfg_table