¿Cómo formatear dos listas separadas en columnas, en lugar de filas en Mathematica?

Question

Parece que debería ser un pedazo de pastel, pero no encontré la respuesta en la documentación de Mathematica. Supongamos que tengo dos listas separadas, por ejemplo x = {1,2,3,4,5} y y = {1,4,9,16,25}. Quiero dar formato a estas listas como una tabla con cada lista como una columna, de esta manera:

x y 
1 1 
2 4 
3 9 
4 16 
5 25 

Pero si lo hago TableForm [x, y], consigo sólo la primera columna, de esta manera:

1 
2 
3 
4 
5 

Si hago cuadrícula [{x, y}], me sale una mesa, pero con formato de filas en lugar de columnas, así:

1 2 3 4 5 
1 4 9 16 25 

Ahora, si tengo mis valores como {x, y} pares, en lugar de listas separadas, entonces puedo obtener casi lo que quiero, así:

Input: Table[{n,n^2},{n,1,5}]//TableForm 

Output: 
1 1 
2 4 
3 9 
4 16 
5 25 

digo casi , porque me gustaría tener los nombres de las variables en la parte superior de cada columna, y me gustaría las columnas justificadas de manera que las los dígitos se colocan siempre verticalmente en el "lugar de las unidades", los dígitos de las decenas en el "lugar de las decenas", etc.

Así que volviendo a mi pregunta: si tengo dos listas separadas de la misma longitud, ¿cómo puedo formatear? ellos como una tabla de columnas? Revisé la documentación de MMA para Grid y TableForm, pero no pude encontrar la forma de hacerlo. ¿Me he perdido algo? Si no hay una manera directa de hacerlo, ¿hay alguna manera de transformar dos listas separadas en pares de valores que luego podrían formatearse en columnas utilizando TableForm?

Gracias por cualquier sugerencia que pueda tener.

Answer 1

personalmente prefiero Grid para TableForm. Tal vez algo como esto?

algunos preliminares:

x = {1, 2, 3, 4, 5}; 
y = {1, 4, 9, 16, 25}; 
grid = Transpose@{x, y}; 
headings = {{Item["x", Frame -> {True, True}], 
    Item["y", Frame -> {True, False}]}}; 

El siguiente código,

Grid[Join[headings, grid], Alignment -> Right, Dividers -> All, 
Spacings -> {3, 1}, FrameStyle -> Orange] 

da esto como salida, por ejemplo:

Answer 2

A menudo, en Mathematica, utiliza Transpose para cambiar la función de fila y columna.

In[6]:= x = {1,2,3,4,5}; y = {1,4,9,16,25}; 

In[7]:= {x,y} // Transpose // TableForm 

Out[7]//TableForm= 1 1 

        2 4 

        3 9 

        4 16 

        5 25 

Answer 3

Grid[Transpose[{x, y}], Alignment -> Right] 

Answer 4

En lugar de utilizar Transpose puede utilizar la Opción TableDirection:

x={1,2,3,4,5};y={1,4,9,16,25}; 
TableForm[{x,y},TableDirections->Row,TableHeadings->{{"x","y"}}] 

Answer 5

yo usaría:

x = {1, 2, 3, 4, 5}; 
y = {1, 4, 9, 16, 25}; 

TableForm[{{x, y}}, TableAlignments -> Right] 

---

Éstos son algunos ejemplos más complicadas, lo que demuestra las obras TableForm manera. Se vuelve complicado, y generalmente tengo que experimentar un poco para obtener lo que quiero.

a = {1, 2, 3}; 
b = {4, 5, 6}; 

{a, b} // TableForm 

{{a}, {b}} // TableForm 

{{{a}}, {{b}}} // TableForm 

{{{a}, {b}}} // TableForm 

{{List /@ a, List /@ b}} // TableForm 

{{a}, b} // TableForm 

{{{a}, b}} // TableForm 

{{{a}}, {b}} // TableForm 

{{{{a}}, {b}}} // TableForm