在R中聚合具有NA的数据帧

Question

之前可能会问过，但我找不到问题的答案。

我有一个与此类似的数据框：

  id        col1  col2  col3  col4
1 111111    car   <NA>  NA    NA
2 111111    <NA>  bike  NA    NA
3 111111    <NA>  <NA>  2     NA
4 111111    <NA>  <NA>  NA    3

5 222222    plane <NA>  NA    NA
6 222222    <NA>  train NA    NA
7 222222    <NA>  <NA>  4     NA
8 222222    <NA>  <NA>  NA    5

如何按id汇总以获得与此类似的数据框：

  id        col1  col2  col3  col4
1 111111    car   bike  2     3
2 222222    plane train 4     5