奇怪的R语言apply问题及解决

今天遇到了一个百思不得解的问题，记录一下，欢迎交流讨论。为了简化问题，我把数据删除到两行，并把问题最小化了。
我想用apply函数筛选一下第三列V4中的数据，用一个稍微复杂的条件，这里我简化成了是否大于0，当然，如果只是>0，太多方法可以实现了，只是复现最小错误。

# 原始数据如下：
# pca_test
# V1                 V2           V4
 1        1            439947 -0.000695291
 16035 2264 19307-P128  0.064951700

我最初的代码如下：

test_func <- function(row){
  print(row[3])
  row[3] > 0
}
apply(pca_test, 1, test_func)

才开始没打印出来的（此处省略n十分钟）。打印出来才发现问题所在，正数多了个空格，导致结果错误，但是单独放一行上去结果是OK的。就是这么神奇有没有，怎么解决呢，as.numeric转化成数值试试？

test_func <- function(row){
  print(as.numeric(row[3]))
  as.numeric(row[3]) > 0
}
apply(pca_test, 1, test_func)

问题解决啦！原因分析：
可能是因为会转化成字符串，导致空格多出来，或者是个bug。
原来的数据结构如下：

数据处理过程中，需要的值变成了chr类型：