子集然后拆分给出空列表元素

Question

代码：

c=rep(4,4)
f=data.frame("1"=c("a","b","c","d"),c)
s=subset(f,is.element(f[[1]], c("a","b")))
s3=split(s,s[1])
s3

输出：

s3
$a
  X1 c
1  a 4

$b
  X1 c
2  b 4

$c
[1] X1 c 
<0 rows> (or 0-length row.names)

$d
[1] X1 c 
<0 rows> (or 0-length row.names)

如何在不完全更改代码的情况下阻止或删除（$ c，$ d）这些空元素？或者，我可以在这个列表上跳过这些屁股值吗？感谢。