r - 列名をデータフレームのサブセットに設定できません

Question

次のコードを実行するpと、データフレームがロードされます。

a <- sort(table(p$Title))
a1 <- as.data.frame(a)
tail(a1, 7)

                     a
Maths               732
Science             737
Physics             737
Chemistry           776
Social Science      905
null              57374
                  88117

上記のデータフレームの結果に対していくつかの操作を行いたいと思います。データフレームに列名を追加したい。colnames 関数を試しました。

colnames(a1) <- c("category", "count")

以下のエラーが表示されます。

Error in `colnames<-`(`*tmp*`, value = c("category", "count")) : 
    attempt to set 'colnames' on an object with less than two dimensions

提案してください。