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