Реагируйте, показывая 0 вместо ничего с условным компонентом короткого замыкания (&&)

здесь есть способ сделать это

varFactor <- factor(letters[1:15])
varFactor <- varFactor[1:5]
varFactor <- varFactor[drop=T]