如果銷售額的平均值超過 150，我有代碼將 Sales 列除以 10，否則如果平均值 > 80，則值除以 5 或在 <80 的情況下保持相同
df <- data.frame (Sale = c(100,200,500,150),
Cost = c(50,20,80,12),
Model = c("A","B","C","D"))
df$Sale = df$Sale
if(mean(df$Sale)>150){
df$Sale = df$Sale/10
}else if(mean(df$Sale)>50){
df$Sale = df$Sale/5
}
但是，我有另一個數字列“成本”，并希望根據銷售情況做同樣的事情，如下所示：
df[,Sales,Cost] = df[,Sales,Cost]
if(mean(df$Sale)>150){
df[Sales,Cost] = df[SalesCost]/10
}else if(mean(df$Sale)>50){
df[Sales,Cost] = df[Sales,Cost]/5
}
uj5u.com熱心網友回復：
您可以使用dplyr::across對多個列執行相同的功能：
library(dplyr)
df %>%
mutate(across(c(Sale, Cost), ~ case_when(Sale > 150 ~ .x/10,
Sale > 50 ~ .x/5,
TRUE ~ .x)))
# Sale Cost Model
#1 20 10.0 A
#2 20 2.0 B
#3 50 8.0 C
#4 30 2.4 D
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/473791.html
標籤：循环 if 语句 dplyr 条件语句 tidyverse
上一篇：如何使回圈更快？