Tworzenie macierzy

Część sekcji Logika i przepływ sterowania ścieżki R w Coddy. Lekcja 17 z 64.

Macierz to wektor uporządkowany w wiersze i kolumny, a każda wartość ma ten sam typ. matrix(data, nrow = ...) domyślnie wypełnia ją kolumna po kolumnie:

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

Wynik:

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

Dodaj byrow = TRUE, aby wypełniać ją wiersz po wierszu, co odpowiada danym zapisanym po jednym wierszu w każdej linii:

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

Wynik:

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

Podaj albo nrow, albo ncol; R obliczy drugą wartość na podstawie długości danych.

dim(m) zwraca liczbę wierszy i kolumn, a nrow() i ncol() zwracają każdą z tych wartości osobno. matrix(0, nrow = 2, ncol = 3) powiela pojedynczą wartość, aby wypełnić macierz:

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

Wynik:

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

rbind() układa wektory w wierszach, a cbind() w kolumnach, co pozwala utworzyć macierz z osobnych wektorów:

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

Wynik:

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

Wyzwanie

Łatwy

Uzupełnij make_grid(values, n_cols). Zwróć macierz z n_cols kolumnami, która przechowuje wartości values wierszami. Liczba wartości jest zawsze wielokrotnością n_cols.

Dostarczony kod odczytuje wartości z wiersza rozdzielonego przecinkami, a n_cols z następnego wiersza. Wypisuje każdy wiersz zwróconej macierzy w osobnym wierszu, a następnie jej rozmiar w postaci rows x columns.

Spróbuj swoich sił

make_grid <- function(values, n_cols) {
  # Wpisz tutaj swój kod
  matrix(values)
}

# Dostarczony kod wejścia/wyjścia: pozostaw go bez zmian
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")