Contando Elementos em Listas Múltiplas

Question

Como construir uma tabela que conta quantas vezes cada elemento em mainlist ocorre em lst1, lst2, lst3, lst4 e qual lst1, lst2, lst3, lst4 contém esse elemento. Por exemplo, na lista principal, o elemento N6073 tem contagem = 4 e N6073 aparece em lst1, lst2, lst3 e lst4. Na lista principal, o elemento N12061 tem contagem = 2 e N12061 aparece em lst1, lst3.

mainlist = {N6073, N6019, N12061, N6025, N6065, N6071, N6039, N6077, 
  N53023, N22103, N38077, N12093, N12111, N12035, N22117, N12053, 
  N41005, N4019, N22051, N22105}
lst1 = {N12061, N12111, N4019, N41005, N53023, N6019, N6025, N6065, 
  N6073, N6077}
lst2 = {N12053, N12093, N22117, N6019, N6025, N6039, N6073}
lst3 = {N12061, N12111, N4019, N6065, N6071, N6073}
lst4 = {N22103, N4019, N6019, N6025, N6039, N6065, N6073}

Answer 1

table = {#, Counts[Join[lst1, lst2, lst3, lst4]] @ # /. _Missing -> 0, 
     Function[x, Select[{"lst1", "lst2", "lst3", "lst4"}, 
        MemberQ[x] @ ToExpression[#] &]] @ #} & /@ mainlist;

headers = {"element", "count", "lists"};

grid = Prepend[table, headers];

grid // Grid

Abordagens alternativas:

SparseArray:

sa = SparseArray[Outer[Boole @* MemberQ,  {lst1, lst2, lst3, lst4}, mainlist, 1]];

parents = Extract[{"lst1", "lst2", "lst3", "lst4"}, 
   List /@ Transpose[sa]["AdjacencyLists"]];

table2 = Transpose[{mainlist, Total[sa, 1], parents}];
table2 == table

 True

RelationGraph:

rg = RelationGraph[MemberQ[ToExpression@#2, #] &, 
  mainlist, {"lst1", "lst2", "lst3", "lst4"}, VertexLabels -> "Name"]

table3 = {#, VertexDegree[rg, #], AdjacencyList[rg, #]} & /@ mainlist;
table3 == table

 True

Answer 2

Clear["`*"];
mainlist = {N6073, N6019, N12061, N6025, N6065, N6071, N6039, N6077, 
   N53023, N22103, N38077, N12093, N12111, N12035, N22117, N12053, 
   N41005, N4019, N22051, N22105};
lst1 = {N12061, N12111, N4019, N41005, N53023, N6019, N6025, N6065, 
   N6073, N6077};
lst2 = {N12053, N12093, N22117, N6019, N6025, N6039, N6073};
lst3 = {N12061, N12111, N4019, N6065, N6071, N6073};
lst4 = {N22103, N4019, N6019, N6025, N6039, N6065, N6073};
Subtract[#, 1] & /@ Counts[Join[mainlist, lst1, lst2, lst3, lst4]]

O resultado é

<|N6073 -> 4, N6019 -> 3, N12061 -> 2, N6025 -> 3, N6065 -> 3, 
 N6071 -> 1, N6039 -> 2, N6077 -> 1, N53023 -> 1, N22103 -> 1, 
 N38077 -> 0, N12093 -> 1, N12111 -> 2, N12035 -> 0, N22117 -> 1, 
 N12053 -> 1, N41005 -> 1, N4019 -> 3, N22051 -> 0, N22105 -> 0|>