Cree una función para la representación tabular personalizada

Question

May 28, 2011, 04:59 AM

function grid wolfram-mathematica tabular

Cree una función para la representación tabular personalizada

Utilizo el siguiente código para obtener una descripción general de partes de mis datos.

Cuál sería la mejor manera de hacer una función con el siguiente código?

omaría una lista de datos, así como algunas opciones gráficas (como colores) como argumentos y devolvería una representación tabular personalizada como se muestra a continuació

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]}]