Hola Mercedes:
Por lo que he entendido, lo siguiente te valdría
d <- data.frame(Consumidores=c('A', 'B', 'C', 'D', 'E'), peras=c(0, 1, 2, 0, 3), tomates=c(1,2,3,0,4))
d
f <- function(x) table(as.factor(x > 0))
r <- mapply(f, d[2:ncol(d)])
rownames(r) <- c('No consumidores', 'Consumidores')
t(r)
El resultado
> d <- data.frame(Consumidores=c('A', 'B', 'C', 'D', 'E'), peras=c(0, 1, 2, 0, 3), tomates=c(1,2,3,0,4))
> d
Consumidores peras tomates
1 A 0 1
2 B 1 2
3 C 2 3
4 D 0 0
5 E 3 4
> f <- function(x) table(as.factor(x > 0))
> r <- mapply(f, d[2:ncol(d)])
> rownames(r) <- c('No consumidores', 'Consumidores')
> t(r)
No consumidores Consumidores
peras 2 3
tomates 1 4
> t(r)
No consumidores Consumidores
peras 2 3
tomates 1 4
Cuando hagas una consulta pon algunos datos y el resultado que esperas, de esa forma se entiende mejor y es más fácil ayudarte.
Un saludo.