выбрать первую и последнюю строку в кадре данных?

Question

Есть ли в BASE R функция, которая может показывать первую и последнюю строки в кадре данных?Я знаю, что такие функции, как ropls::strF, и печать объекта в data.table могут сделать это.Это не похоже на эту тему Выберите первую и последнюю строку из сгруппированных данных

  ropls::strF(iris)
  #Sepal.Length Sepal.Width ... Petal.Width Species
  #numeric     numeric ...     numeric  factor
  #nRow nCol size NAs
  #150    5 0 Mb   0
  #Sepal.Length Sepal.Width ... Petal.Width   Species
#1            5.1         3.5 ...         0.2    setosa
#2            4.9           3 ...         0.2    setosa
#...          ...         ... ...         ...       ...
#149          6.2         3.4 ...         2.3 virginica
#150          5.9           3 ...         1.8 virginica

library(data.table)
a <- as.data.table(iris)
a
 # Sepal.Length Sepal.Width Petal.Length Petal.Width   Species
 #1:          5.1         3.5          1.4         0.2    setosa
 #2:          4.9         3.0          1.4         0.2    setosa
 #3:          4.7         3.2          1.3         0.2    setosa
 #4:          4.6         3.1          1.5         0.2    setosa
 #5:          5.0         3.6          1.4         0.2    setosa
 #---                                                            
 #146:          6.7         3.0          5.2         2.3 virginica
 #147:          6.3         2.5          5.0         1.9 virginica
 #148:          6.5         3.0          5.2         2.0 virginica
 #149:          6.2         3.4          5.4         2.3 virginica
 #150:          5.9         3.0          5.1         1.8 virginica

Answer 1

Как говорили другие в комментариях, в базе R нет функции для этого, но достаточно просто написать функцию, которая связывает вместе первые N строк и последние N строк.

head_and_tail <- function(x, n = 1) {
  rbind(
    head(x, n),
    tail(x, n)
  )
}

head_and_tail(iris, n = 3)
#>     Sepal.Length Sepal.Width Petal.Length Petal.Width   Species
#> 1            5.1         3.5          1.4         0.2    setosa
#> 2            4.9         3.0          1.4         0.2    setosa
#> 3            4.7         3.2          1.3         0.2    setosa
#> 148          6.5         3.0          5.2         2.0 virginica
#> 149          6.2         3.4          5.4         2.3 virginica
#> 150          5.9         3.0          5.1         1.8 virginica

^{Создано в 2018-12-22 с помощью пакета Представления (v0.2.1)}