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.