从R中的字符列表中绘制饼图

我在R中有一些数据看起来有点像这样：

data=c("a","a","a","b","b","c")

> vals
[1] 3 2 1
> lbls
[1] "a" "b" "c"

如何有效地（如果可能，避免循环）处理此数据以获得如下所示的2个新值：

data=c("a","a","a","b","b","c")

> vals
[1] 3 2 1
> lbls
[1] "a" "b" "c"

因此，我可以使用以下方法绘制饼图：

pie(vals, labels=lbls)

重要提示：我不能使用解决方案a硬编码“a”、“b”和“c”。我需要一个解决方案，可以添加任何字符串，如“d”或“e”到数据中，而无需调整代码

---

对于那些对我试图做什么感到好奇的人：我试图编写一个脚本，解析版本文件的SVN错误，并绘制编辑器贡献的饼图。本质上，

数据

是文件的所有编辑器

---

---

提前谢谢：这就是你要找的吗

pie(table(data), names(table(data)))

---

这就是你要找的吗

pie(table(data), names(table(data)))