从单列数据框中删除行

Question

当我尝试从单个列数据帧中删除最后一行时，我得到一个向量而不是数据帧：

> df = data.frame(a=1:10)
> df
    a
1   1
2   2
3   3
4   4
5   5
6   6
7   7
8   8
9   9
10 10

> df[-(length(df[,1])),]
[1] 1 2 3 4 5 6 7 8 9

我正在寻找的行为是在两列数据框上使用此命令时会发生的情况：

> df = data.frame(a=1:10,b=11:20)
> df
    a  b
1   1 11
2   2 12
3   3 13
4   4 14
5   5 15
6   6 16
7   7 17
8   8 18
9   9 19
10 10 20

> df[-(length(df[,1])),]
  a  b
1 1 11
2 2 12
3 3 13
4 4 14
5 5 15
6 6 16
7 7 17
8 8 18
9 9 19

我的代码是通用的，我不知道数据框是否包含一列或多列。是否有一个简单的解决方法可以解决这个问题，无论有多少列都可以删除最后一行？

Answer 1

尝试添加drop = FALSE选项：

R> df[-(length(df[,1])), , drop = FALSE]
  a
1 1
2 2
3 3
4 4
5 5
6 6
7 7
8 8
9 9