mutate_if 用於數字列除以行和

Question

我只是在尋找一個優雅的 1 班輪，它將每個數字列除以這些數字列的行和。 我想使用 mutate_if 只是不知道語法應該如何

data<-data.frame(date=seq(from=as.Date('2020-01-01'),to=as.Date('2020-01-05'),by="days"),
             a=sample(1:10,5),
             b=sample(1:10,5),
             c=sample(1:10,5))

Answer 1

我們可以使用base R

i1 <- sapply(data, is.numeric)
data[i1] <- data[i1]/rowSums(data[i1])

---

或使用dplyr

library(dplyr)
data %>%
    mutate(tmp = select(., where(is.numeric)) %>%
      rowSums, across(where(is.numeric), ~ ./tmp), tmp = NULL)