Für Zeilen (nicht Spalten gemäß Ihrem Beispiel) dann head()
und tail()
könnte verwendet werden.
A <- matrix(rep(1:8, each = 5), nrow = 5)
tail(A, 3)
ist fast das gleiche wie
A[3:dim(A)[1],]
(Die gedruckten Rownamen / Indizes sind unterschiedlich).
Diese funktionieren auch für Vektoren und Datenrahmen:
> tail(1:10, 4)
[1] 7 8 9 10
> tail(data.frame(A = 1:5, B = 1:5), 3)
A B
3 3 3
4 4 4
5 5 5
Für die Spaltenversionen könnten Sie sich anpassen tail()
, aber es ist etwas schwieriger. Ich frage mich, ob NROW()
und NCOL()
könnte hier nützlich sein, anstatt dim()
?
> A[, 3:NCOL(A)]
[,1] [,2] [,3] [,4] [,5] [,6]
[1,] 3 4 5 6 7 8
[2,] 3 4 5 6 7 8
[3,] 3 4 5 6 7 8
[4,] 3 4 5 6 7 8
[5,] 3 4 5 6 7 8
Oder drehen Sie dies auf den Kopf und anstatt R nach Dingen zu fragen, bitten Sie es, stattdessen Dinge fallen zu lassen. Hier ist eine Funktion, die dies zusammenfasst:
give <- function(x, i, dimen = 1L) {
ind <- seq_len(i-1)
if(isTRUE(all.equal(dimen, 1L))) {
out <- x[-ind, ]
} else if(isTRUE(all.equal(dimen, 2L))) {
out <- x[, -ind]
} else {
stop("Only for 2d objects")
}
out
}
> give(A, 3)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
[1,] 1 2 3 4 5 6 7 8
[2,] 1 2 3 4 5 6 7 8
[3,] 1 2 3 4 5 6 7 8
> give(A, 3, dimen = 2)
[,1] [,2] [,3] [,4] [,5] [,6]
[1,] 3 4 5 6 7 8
[2,] 3 4 5 6 7 8
[3,] 3 4 5 6 7 8
[4,] 3 4 5 6 7 8
[5,] 3 4 5 6 7 8
dima <- dim(A)
und referenzieren Sie dann einfach, z. B. `A [, 3: dima [1]]`