在r中的数据框上方或下方附加文本行

Question

我有一个巨大的数据框（尺寸：600000 X 6）。所有6列都是整数值，代表每一行的不同功能。我想在所有行共有的数据框的上方或下方添加三行文本。是否可以在数据框的上方或下方插入一些文本行？

例如：给定一个数据框，

    name<-letters[1:10]
    length<-c(140,50,25,120,156,146,180,98,120,110)
    quality<-c(20,25,35,20,15,28,32,35,29,25)
    df<-data.frame(name,length,quality)

如何在数据框df的上方或下方插入三行文本：

    No. of reads = 10
    %AT=32
    %GC=30

输出应如下所示：

      name length quality
   1     a    140      20
   2     b     50      25
   3     c     25      35
   4     d    120      20
   5     e    156      15
   6     f    146      28
   7     g    180      32
   8     h     98      35
   9     i    120      29
   10    j    110      25
   No. of reads = 10
   %AT=32
   %GC=30

Answer 1

您是否正在寻找这样的东西？

prettyprint <- function() {
  print(df)
  cat("No. of reads = 10",
      "\n%AT=32",
      "\n%GC=30")
 }
 prettyprint()

输出看起来像这样：

   name length quality
1     a    140      20
2     b     50      25
3     c     25      35
4     d    120      20
5     e    156      15
6     f    146      28
7     g    180      32
8     h     98      35
9     i    120      29
10    j    110      25
No. of reads = 10 
%AT=32 
%GC=30