Создание графиков таблиц сопряженности из нескольких фреймов данных

Question

У меня есть большое количество таблиц на случай непредвиденных обстоятельств, некоторые из которых содержат только одну строку и несколько столбцов, большинство со многими из каждой.

Если я создал таблицы непредвиденных обстоятельств, которые сравнивают значения в 2 отдельных фреймах данных, каков наиболее эффективный / действенный способ создания некоторых графиков для визуализации полученных данных?

Вот два фрейма данных, один со всеми соискателями и один только с теми, кто был успешным:

Id <- c(1,5,7,9,11,12,13,15,17,18)
Type <- c("Beginner", "Expert", "Intermediate", "Beginner", 
"Professional", "Expert", "Intermediate", "Professional", "Professional", 
"Expert")
Response<- c(0,1,2,2,1,2,1,2,1,1)
Successful <- data.frame(Id, Type, Response)
Successful

#   Successful
Id  Type             Response    
1   Beginner         0
5   Expert           1
7   Intermediate     2
9   Beginner         2
11  Professional     1
12  Expert           2
13  Intermediate     1
15  Professional     2
17  Professional     1
18  Expert           1

Id <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18)
Type <- c("Beginner", "Expert", "Professional", "Beginner", "Expert", 
"Expert", "Intermediate", "Expert", "Beginner", "Intermediate", 
"Professional", "Expert", "Intermediate","Intermediate", "Professional", 
"Beginner", "Professional","Expert")
Response<- c(0,2,2,1,1,0,2,0,2,0,1,2,1,1,2,2,1,1)
AllApplicants <- data.frame(Id, Type, Response)
AllApplicants

#   AllApplicants
Id  Type             Response        
1   Beginner         0
2   Expert           2
3   Professional     2
4   Beginner         1
5   Expert           1
6   Expert           0
7   Intermediate     2
8   Expert           0
9   Beginner         2
10  Intermediate     0
11  Professional     1
12  Expert           2
13  Intermediate     1
14  Intermediate     1
15  Professional     2
16  Beginner         2
17  Professional     1
18  Expert           1

Скажем, например, я сформировал три следующие таблицы непредвиденных обстоятельств:

round(100*table(Successful$Type)/table(AllApplicants$Type), 3)

round(100*prop.table(table(AllApplicants$Response, AllApplicants$Type),2), 
1)

round(100*prop.table(table(Successful$Response)), 1)

Есть ли функция построения графика, которую можно использовать для наблюдения за этим? Если да, то как мне ввести данные? ggplot (например, geom_mosaic ()), как правило, требует только одного кадра данных ...