ользую код ниже, чтобы получить обзор частей моих данных.

Что было бы лучшим способом сделать функцию из приведенного ниже кода?

Он будет принимать dataList, а также некоторые графические параметры (например, цвета) в качестве аргументов и возвращать настраиваемое табличное представление, как показано ниже.

overviewtheData=Text@Grid[{Map[Rotate[Text[#],
90Degree]&,data[[1]]]}~Join~data[[2;;]],
Background->{{{{White,Pink}},{1->White}}},
Dividers->{All,{1->True,2->True,0->True}},
ItemSize->{1->5,Automatic},
Alignment->Top,
Frame->True,
FrameStyle->Thickness[2],
ItemStyle->{Automatic,Automatic,{{1,1},
{1,Length@data[[1]]}}->Directive[FontSize->15,Black,Bold]}]