使用NA拆分数据框中的列

I have a df like this:

我有这样的df：

df <- data.frame(FOO = c('A|B|C', 'A|B', 'B|C', 'A', 'C'))

> df
    FOO
1 A|B|C
2   A|B
3   B|C
4     A
5     C
df <- data.