根据DWin的评论，您可以尝试这样的事情：

read.clump <- function(file, lines, clump){

if(clump > 1){

header <- read.csv(file, nrows=1, header=FALSE)

p = read.csv(file, skip = lines*(clump-1),

#p = read.csv(file, skip = (lines*(clump-1))+1 if not a textConnection

nrows = lines, header=FALSE)

names(p) = header

} else {

p = read.csv(file, skip = lines*(clump-1), nrows = lines)

}

return(p)

}您也应该在函数中添加一些错误处理/检查。

然后用

x = "letter1, letter2

a, b

c, d

e, f

g, h

i, j

k, l"

>read.clump(textConnection(x), lines = 2, clump = 1)

letter1 letter2

1 a b

2 c d

> read.clump(textConnection(x), lines = 2, clump = 2)

letter1 letter2

1 e f

2 g h

> read.clump(textConnection(x), lines = 3, clump = 1)

letter1 letter2

1 a b

2 c d

3 e f

> read.clump(textConnection(x), lines = 3, clump = 2)

letter1 letter2

1 g h

2 i j

3 k l现在你只需要*应用于团块