如图所示: 打印一下可以看到,第二行的元素是空的 解决方法: #将gpl$Symbol中的空转换为 NA gpl <- apply(gpl, 2, function(x) ifelse(x == "", NA, x)) 效果展示: 当然,不替换成NA直接用distinct()对GPL去重也可以