r - R でデータセットから名前付きベクターを作成する

Question

次のように単純化されたデータセットがあります。

print(data)
Team   Colour
A      Red
B      Red
C      Blue
D      Green

このデータのワッフル チャート (正方形の円グラフ) を作成したいと考えています。私はこれを非常に簡単に行うことができます：

waffle(c(Red = sum(data$Colour == "Red"), 
         Blue = sum(data$Colour = "Blue"), 
         Green = sum(data$colour = "Green")))

ただし、データセットを操作して、上記のワッフル関数内で作成された名前付き整数を生成する簡単な方法を見つけることができないようです。光沢のあるアプリ内のリアクティブ関数である必要があるため、元のデータセットから直接生成する必要があります。

私はgroup_bydplyr内で使用してみました:

forwaffle <- data%>%
             group_by(Colour)
             summarise(frequency=n())

ただし、このリストを必要な名前付き整数に変換できません。t()andを使用してみunlist()ましたが、どちらも望ましい結果を達成しません。