wallets as (

select distinct(proposer) as proposer from flow.core.fact_transactions ad

join flow.core.fact_events b

on ad.tx_id = b.tx_id

and ad.tx_succeeded = 1

where event_contract = 'A.39e42c67cc851cfb.EmeraldIdentityDapper'

),

avg_activity as (

select event_type, proposer, count(event_type) as event_num

from flow.core.fact_events events

join flow.core.fact_transactions tx

on events.tx_id = tx.tx_id

where exists (

select proposer

from flow.core.fact_transactions a

where tx.proposer = a.proposer

group by proposer

and proposer in (select proposer from wallets)

group by event_type, proposer

select event_type,

AVG(event_num) as avg_event_num,

row_number() over (order by avg_event_num desc) as rank

from avg_activity

group by event_type

qualify rank between 3 and 22

order by rank asc