在R中的do.call rbind函数内重命名表头

Question

我正在尝试重命名在rbind和do.call中调用的表函数中的列标题。
如何重命名输出标题名称？
我正在使用的功能拆分序列并计算A，T，G和C的数量并绑定到数据帧（dat）。
目标序列

CAGGATCAGGTAGACAGAG
TCTAAAGAAGAGACTGAAA 

代码：

cbind(dat, do.call(rbind, lapply(dat$TargetSeq,  function(x){table(strsplit(as.character(x),""))})))

期望的输出：

       Tar_A Tar_C Tar_G Tar_T
 [1,]  9 2 4 4
 [2,]  6 5 4 4

我将非常感谢这一帮助 此致