根据R中的两个条件更改值名称

install.packages("dplyr")
library(dplyr)

# 创建一个示例数据框
df <- data.frame(
  A = c(1, 2, 3),
  B = c(4, 5, 6),
  C = c(7, 8, 9)
)

# 根据条件更改列名称
new_df <- df %>%
  rename(
    A = "Column_A",
    B = ifelse(A > 1, "Big_A", "Small_A"),
    C = case_when(
      B == "Big_A" ~ "Large_B",
      B == "Small_A" ~ "Small_B",
      TRUE ~ "Other_C"
    )
  )

print(new_df)

# 创建一个示例数据框
df <- data.frame(
  A = c(1, 2, 3),
  B = c(4, 5, 6),
  C = c(7, 8, 9)
)

# 根据条件更改列名称
names(df)[names(df) == "A"] <- "Column_A"
names(df)[names(df) == "B"] <- ifelse(df$A > 1, "Big_A", "Small_A")
names(df)[names(df) == "C"] <- case_when(
  df$B == "Big_A" ~ "Large_B",
  df$B == "Small_A" ~ "Small_B",
  TRUE ~ "Other_C"
)

print(df)