Bir tablonun satırlarına ekleme

Question

İki boyutlu bir listeye ve bir boyutlu bir listeye sahibim. 1D listesini 2B listesine ek bir sütun olarak eklemek istiyorum. Örneğin:

Table[Insert[array[[i]], column[[i]], 4], {i, Length[array]}]; 

Benim sorum: Mathematica bunu yapmanın doğru yolu nedir

array = {{a,1,2},{b,2,3},{c,3,4}}; 
column = {x,y,z}; 

final = {{a,1,2,x},{b,2,3,y},{c,3,4,z}}; 

Ben inelegantly yapmış olur? Kullanmakta olduğum döngüye ihtiyacı olduğunu düşünmüyorum. Benim çözümüm çirkin hissediyor. Örneğin

Answer 1

: Sık sık kullanmak zorunda olmadığını o kolaylaştırır

subListAppend = Transpose@Append[Transpose@#1, #2] &; 
subListAppend[array, column] 

:

Transpose@Append[Transpose@array, column] 

Ayrıca yapabilirsiniz bir işlev böylece gibidir. Ve tabii ki, sondan başka bir yere eklemek isterseniz Insert[]'u kullanabilirsiniz.

subListInsert = Transpose@Insert[Transpose@#1, #2, #3] &; 
subListInsert[array, column, 2] 
--> {{a, x, 1, 2}, {b, y, 2, 3}, {c, z, 3, 4}} 

EDIT: zorunlu hız optimizasyon tartışma başladığından bu yana, burada this ve 10000x200 dizisi kullanarak bazı sonuçlar şunlardır:

ArrayFlatten@{{array, List /@ column}}:    0.020 s 
Transpose@Append[Transpose@array, column]:   0.067 s 
MapThread[Append, {array, column}]:     0.083 s 
MapThread[Insert[#1, #2, 4] &, {array, column}]: 0.095 s 
Map[Flatten, Flatten[{array, column}, {2}]]:  0.26 s 
ConstantArray based solution:      0.29 s 
Partition[Flatten@Transpose[{array, column}], 4]: 0.48 s 

Ve kazanan ArrayFlatten olduğunu! ek bir değişkeni gerektirir rağmen

Answer 2

başka olasılık, daha hızlı geniş sayısal matrisleri için bilgisayarımda gibi görünüyor

result = ConstantArray[0, Dimensions[array] + {0, 1}]; 
result[[All, 1 ;; Last[Dimensions[array]]]] = array; 
result[[All, -1]] = column; 

olduğunu. Gerçek değerli girdilerle ilgileniyorsanız, hız kazanımlarını korumak için

result = ConstantArray[0.0, Dimensions[array] + {0, 1}]; 

'u kullanabilirsiniz.

da (IMO ve zarif) hızlı ama sonuç paketini açacak

MapThread[Append, {array, column}] 

da var. (Eğer örnekte olduğu gibi sembolik girişler varsa Ama, bu bir endişe değil.)

Answer 3

Still: Bu nasıl hakkında

k= Partition[Flatten@Transpose[{#, {x, y, z}}], 4]& 

k@ {{a, 1, 2}, {b, 2, 3}, {c, 3, 4}} 

(* 
-> {{a, 1, 2, x}, {b, 2, 3, y}, {c, 3, 4, z}} 
*) 

Answer 4

?

pos = 4; 
MapThread[Insert[#1, #2, pos] &, {array, column}] 

Answer 5

Düzleştirilmiş bir diziyle çalıştığından, Düzten ile aktarım yapmayı severim (bazen).

veren

Map[Flatten, Flatten[{array, column}, {2}]] 

{{a, 1, 2, X}, {b, 2, 3, y}, {C, 3, 4, Z}}

Fakat eğer, diyelim ki, kolon sadece 2 elemanları veren

column2 = {x, y}; 
Map[Flatten, Flatten[{array, column2}, {2}]] 

sahiptir

{{a, 1, 2, x}, {b, 2, 3, y} ', {c, 3, 4}}

(burada çalışmaz Devrik) İşte

Answer 6

benim deneyin

In[11]:= Join[array,List/@column,2] 
Out[11]= {{a,1,2,x},{b,2,3,y},{c,3,4,z}} 

Daha önce bahsedildiği programları arasında en hızlı ile karşılaştırılabilir olabilir Üyelik kullanıyor.

pratik veya kaybolmamış yöntemlerden bazıları, burada listeye eklenecek iki olduğu gibi verimli değil

Answer 7

olsa:

ArrayPad[array, {0,{0,1}}, List /@ column] 

PadRight[array, Dimensions[array] + {0, 1}, List /@ column]