Я не думаю, что colSums даст вам правильный ответ, поскольку он не учитывает количество наблюдений, а только суммирует значения столбцов.
colSums
Я думаю, что это даст вам на что надеюсь.
apply(myDF,2,function(x) sum(x > 0))