我有一个数据框,其列由随机分布的值和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"
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_list2matrixlibrary(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" "" ""