r - 调整以便正确生成表格

Question

我有一个简短的问题，看到我在数字前输入 US $ 但是对于 NA 值我希望插入“-”和不是 US $NA。我什至做了 across(everything(), ~ replace_na(as.character(.), '-'))，但是当我启用这一行时，值的小数位发生变化并且没有插入 US $ 在数字之前，所以我不知道如何调整它，有帮助吗？

library(dplyr)

Test <- structure(list(date2 = structure(c(18808, 18808, 18809, 18810
), class = "Date"), Category = c("FDE", "ABC", "FDE", "ABC"), 
coef1 = c(445.23231, 1.31231, 6.32323, 1.232),coef2 = c(8.3231, 3.3432, 1.3233, NA)), row.names = c(NA, 4L), class = "data.frame")


Test %>%
  mutate(sum = rowSums(across(3:last_col()), na.rm = TRUE), 
         #across(everything(), ~ replace_na(as.character(.), '-')),
         across(where(is.numeric), ~sprintf("US $%.2f", .x)))

       date2 Category      coef1    coef2        sum
1 2021-06-30      FDE US $445.23 US $8.32 US $453.56
2 2021-06-30      ABC   US $1.31 US $3.34   US $4.66
3 2021-07-01      FDE   US $6.32 US $1.32   US $7.65
4 2021-07-02      ABC   US $1.23   US $NA   US $1.23

Answer 1

当值为 NA 时，我们可以使用 ifelse 插入“-”。

Test %>%
  mutate(sum = rowSums(across(3:last_col()), na.rm = TRUE), 
         across(where(is.numeric), ~ifelse(is.na(.x), "-", sprintf("US $%.2f", .x))))
#        date2 Category      coef1    coef2        sum
# 1 2021-06-30      FDE US $445.23 US $8.32 US $453.56
# 2 2021-06-30      ABC   US $1.31 US $3.34   US $4.66
# 3 2021-07-01      FDE   US $6.32 US $1.32   US $7.65
# 4 2021-07-02      ABC   US $1.23        -   US $1.23