Как выполнить итерацию одновременно двух массивов и поместить элементы в определенное c место функции (в Mathematica)?

Question

Я хочу создать несколько p ie графиков, и каждый из них будет иметь разные данные и разные заголовки.

columnofdata = {"Diagnóstico_de_demência", "Transtornos_psiquiátricos", 
   "Cadeirante", "Acamado", "Sequelas_neurológicas"};

titles = {"Diagnóstico de Demência", "Transtornos_psiquiátricos", 
   "Cadeirante", "Acamado", "Sequelas Neurológicas"};

PieChart[Counts[data[All, #1]],
  PlotLabel -> Style[#2, 15]]

Я хочу получить первый элемент массива columnofdata и поместите в позицию где # 1 , затем первый элемент массива заголовков и поместите его туда, где находится # 2 .

Затем получите второй элемент обоих массивов и т. Д.

Answer 1

Вот один из способов сделать это

PieChart[Counts[data[All, First@#]], PlotLabel -> Style[Last@#, 15]] & /@ 
 Transpose[{columnofdata, titles}]