יצירת מטריצות

חלק מהיחידה לוגיקה וזרימת תוכנית במסלול ה-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")