R 中的数据框操作 - 将单元格向左移动并删除 NA

我有一个数据框，其列由随机分布的值和 NA 组成，如下所示：

a<-c("S","E","NA","S","NA")
b<-c("A","NA","M","G","K")
c<-c("I","NA","NA","NA","L")
meh<-dataframe(a,b,c)

#  [,1] [,2] [,3] [,4] [,5]
#a "S"  "E"  "NA" "S"  "NA"
#b "A"  "NA" "M"  "G"  "K" 
#c "I"  "NA" "NA" "NA" "L"

我想删除所有 NA 并将非 NA 移至左侧 - 它应该如下所示

#  [,1] [,2] [,3] [,4]
#a "S"  "E"  "S"  
#b "A"  "M"  "G"  "K" 
#c "I"  "L"  

有任何想法吗？

我们还可以使用stri_list2matrix

library(stringi)
stri_list2matrix(lapply(meh, function(x) x[x!='NA']), fill='', byrow=TRUE)
#    [,1] [,2] [,3] [,4]
#[1,] "S"  "E"  "S"  ""  
#[2,] "A"  "M"  "G"  "K" 
#[3,] "I"  "L"  ""   ""