将数字 NA 和 0 替换为空白，所有大于 0 的值替换为“X”[重复]

Question

我有一个数据框emissions，看起来像这样（示例）：

CEDS_Sector                    Ammonia      Carbon Dioxide     ...
1A1a_Public Electricity         2528             NA
1A1b_Pet_refining               NA               NA
1A1c_Coke-ovens                 0.000           1467
...

CEDS_Sector 是一个因子，所有其他列都是数字。 如果有 NA 或 0 条目，我希望该单元格变为空白。如果值 > 0，我希望该单元格中有一个“X”，看起来像这样“

CEDS_Sector                    Ammonia      Carbon Dioxide     ...
1A1a_Public Electricity           X             
1A1b_Pet_refining              
1A1c_Coke-ovens                                   X
...

Answer 1

您可以使用mutate_if()：

library(dplyr) 

emissions %>% 
  mutate_if(is.numeric, function(x) ifelse(is.na(x) | x == 0, 
                                           "",
                                           "X"))