使用R和tidyverse中的代码对数据进行编码并更改另一列中的列名

install.packages("tidyverse")

library(tidyverse)

data <- read_csv("data.csv")

data <- data %>%
  mutate(A = factor(A, levels = c("value1", "value2", "value3"), labels = c("code1", "code2", "code3")))

data <- data %>%
  rename(NewColumnName = B)

library(tidyverse)

data <- read_csv("data.csv")

data <- data %>%
  mutate(A = factor(A, levels = c("value1", "value2", "value3"), labels = c("code1", "code2", "code3"))) %>%
  rename(NewColumnName = B)