إنشاء المصفوفات

جزء من قسم المنطق وتدفق التنفيذ في رحلة R على Coddy. الدرس 17 من 64.

المصفوفة هي متجه مرتّب في صفوف وأعمدة، ولكل قيمة النوع نفسه. تقوم matrix(data, nrow = ...) بملئها عمودًا تلو الآخر افتراضيًا:

m <- matrix(1:6, nrow = 2)
print(m)

الناتج:

     [,1] [,2] [,3]
[1,]    1    3    5
[2,]    2    4    6

أضف byrow = TRUE لملئها صفًا تلو صف، بما يتوافق مع البيانات المكتوبة في صف واحد لكل سطر:

m <- matrix(1:6, nrow = 2, byrow = TRUE)
print(m)

الناتج:

     [,1] [,2] [,3]
[1,]    1    2    3
[2,]    4    5    6

حدّد إما nrow أو ncol؛ إذ يحسب R الآخر من طول البيانات.

‎dim(m)‎ تُرجع عدد الصفوف والأعمدة، بينما تُرجع nrow() وncol() كلًّا منهما على حدة. تكرّر matrix(0, nrow = 2, ncol = 3) قيمة واحدة لملء المصفوفة:

m <- matrix(0, nrow = 2, ncol = 3)
print(dim(m))
print(nrow(m) * ncol(m))
print(length(m))

الناتج:

[1] 2 3
[1] 6
[1] 6

rbind() يرصّ المتجهات كصفوف وcbind() كأعمدة، مما يُنشئ مصفوفة من متجهات منفصلة:

a <- c(1, 2, 3)
b <- c(4, 5, 6)
print(rbind(a, b))
print(dim(cbind(a, b)))

الناتج:

  [,1] [,2] [,3]
a    1    2    3
b    4    5    6
[1] 3 2

التحدي

سهل

أكمل make_grid(values, n_cols). أعد مصفوفة تحتوي على n_cols أعمدة وتضم values صفًا بعد صف. يكون عدد القيم دائمًا من مضاعفات n_cols.

يقرأ الكود المُقدَّم القيم كسطر مفصول بفواصل، ويقرأ n_cols من السطر التالي. يطبع كل صف من المصفوفة المُعادة في سطر مستقل، ثم يطبع حجمها بالصيغة rows x columns.

جرّب بنفسك

make_grid <- function(values, n_cols) {
  # اكتب الكود الخاص بك هنا
  matrix(values)
}

# كود الإدخال/الإخراج المُزوَّد: أبقِه كما هو
input <- suppressWarnings(readLines(file("stdin")))
values <- as.numeric(strsplit(input[1], ",")[[1]])
m <- make_grid(values, as.numeric(input[2]))
for (i in seq_len(nrow(m))) cat(m[i, ], "\n")
cat(nrow(m), "x", ncol(m), "\n")