将缺失值列的百分比添加到 R 中的数据框中

Question

我想在 R 中创建一段代码，用于计算数据数据框中每一列中缺失值的百分比。

NA_values

数据框通过对每一列的所有

NaN

行求和，从数据数据框创建一个数据框。计算完成后，我想在缺失值列

NA_values

旁边的

NA_value

数据框中添加缺失列的百分比。我怎么能编写这样的代码？

data <- data.frame(
   salary = c(623.3,NaN , NaN, NaN ,NaN,NaN),
   emp_name = c(515.2,NaN , NaN, 2 ,3,1),
   emp_id = c (1:6), 
   new_s = c(843.25,4,5,12,4,554.4)
)

NA_values= data.frame(NA_value=colSums(is.na(data)))