Creo que es así.
Primero reunes toda la información que quieres en una fila y luego haces un group by empresa para que te saque un registro por empresa. Lo que haces en cada registro es count(reporte.estado) y ahí solo salen los activos porque tienes puesto el where R.estado='activo'