如图所示：
打印一下可以看到，第二行的元素是空的
解决方法：
#将gpl$Symbol中的空转换为 NA
gpl <- apply(gpl, 2, function(x) ifelse(x == "", NA, x))
效果展示：
当然，不替换成NA直接用distinct()对GPL去重也可以
如图所示：
打印一下可以看到，第二行的元素是空的
#将gpl$Symbol中的空转换为 NA
gpl <- apply(gpl, 2, function(x) ifelse(x == "", NA, x))
效果展示：
当然，不替换成NA直接用distinct()对GPL去重也可以
道可道，非常道；名可名，非常名。 无名，天地之始，有名，万物之母。 故常无欲，以观其妙，常有欲，以观其徼。 此两者，同出而异名，同谓之玄，玄之又玄，众妙之门。
