计算R中数据框中的元素

我有一个这样的数据框：

      ID                          TYPE
  100010700239816                932100Y
  100010700239816                9DDDDDDY
  100010700239822                0000000000011222211121110100000000000000Y

输出应该是这样的：

    ID                9   3   2   1   0   Y   D
 100010700239816      2   1   1   1   2   2   6
 100010700239822      0   0   5   9   11  1   0

因此，这只是一个示例数据，单个单元格内可能有不同的元素，而所有这些元素的数量正是我要寻找的。

我努力了 ：

 a <- count(TEST$TYPE)

和

 a <- table(TEST$TYPE)

但是我无法获取id的元素计数，该怎么做？