如何获取数据框的百分比子集？

Question

请考虑以下代码：

baseball <- read.csv("c:\\Users\\Jim\\Downloads\\MLB2008.csv", header = T)  
baseball[1:70,]

此代码将打印出名为＆＃39; baseball＆＃39;的数据框的前70行。

• 我想打印出名为＆＃39; baseball＆＃39;的数据框的前70％行。
• 然后我想打印出名为＆＃39;棒球＆＃39;的数据框的最后30％的行。

我该怎么做？

Answer 1

cutoff = round(0.7*nrow(baseball))

baseball[1:cutoff,]
baseball[-(1:cutoff),]

Answer 2

使用head和tail。

head(baseball, round(nrow(baseball)*0.7))
tail(baseball, round(nrow(baseball)*0.3))