如何使用na条件重新排序data.frame的列？

Question

我的问题：一个包含很少值的列的大型数据集。

我的意思是：重新排序具有缺失值条件的排序频率的列。

我尝试了什么：

 # my data.frame
 data <- data.frame(column1 = c(NA,NA,NA,NA),    # 4 NA
                    column2 = c(4, NA, NA, 1),   # 2 NA
                    column3 = c(12, NA, 5, 78),  # 1 NA
                    column4 = c(1, 2, 13, 4))    # NO NA


 # relative frequency of NA values
 missing_values <- colMeans(is.na(data))

 # What I want:

 column4,  column3, column2, column1