在R中打印数据集所有列的唯一值

Question

所以我想在这里做的就是获取所有列的唯一值，

 i = 1
for (i in i : ncol(usd_empatt_dataset))
{
  cat(names(usd_empatt_dataset[i])," has ", colSums(is.na(usd_empatt_dataset[i])),"\n")
}

代码执行正常。

但是我收到以下错误消息

Error in print.default(names(usd_empatt_dataset[i]), " has ", unique(usd_empatt_dataset[3]),  : 
  invalid 'digits' argument
In addition: Warning message:
In print.default(names(usd_empatt_dataset[i]), " has ", unique(usd_empatt_dataset[3]),  :
  NAs introduced by coercion

请与他们分享一些修正和知识。 在此先感谢：）