Можно ли обрезать вывод при просмотре содержимого фреймов данных?

Question

У меня есть фрейм данных с некоторыми очень длинными столбцами "комментариев". Когда они отображаются, они разбиваются на разные блоки, что затрудняет чтение по строкам. Можно ли изменить настройку в R или изменить вызов data.frame для усечения строк определенной длины?

Пример: фрейм данных с тремя столбцами

data.frame(cbind(rep(1,5),rep(c("very very long obnoxious character string here" ,"dog","cat","dog",5)),rep(c("very very long obnoxious character string here" ,"dog","cat","dog",5))))

Результирующий кадр данных, как видно на моем экране:

  X1                                             X2
1  1 very very long obnoxious character string here
2  1                                            dog
3  1                                            cat
4  1                                            dog
5  1                                              5
                                          X3
1 very very long obnoxious character string here
2                                            dog
3                                            cat
4                                            dog
5                                              5

Answer 1

Я рекомендую такой явный способ, как этот:

f <- function(x) data.frame(lapply(x, substr, 1, 5))

использование:

> f(d)
  X1    X2    X3
1  1 very  very 
2  1   dog   dog
3  1   cat   cat
4  1   dog   dog
5  1     5     5

Хотя возможно изменить поведение по умолчанию, я не рекомендую:

body(format.data.frame)[[5]] <- quote(for (i in 1L:nc) rval[[i]] <- substr(format(x[[i]], ..., justify = justify), 1, 5))
unlockBinding("format.data.frame", baseenv())
assign("format.data.frame", format.data.frame, pos = baseenv())
lockBinding("format.data.frame", baseenv())
rm(format.data.frame)

использование:

> d
  X1    X2    X3
1  1 very  very 
2  1   dog   dog
3  1   cat   cat
4  1   dog   dog
5  1     5     5