以有效（矢量化）方式用整數替換R中的列中的字符串（值）

Question

我有一個大數據框，我想用整數替換一列中的值。 此列中有超過一千個唯一字符串。 一種方法是通過for循環。 這是帶有玩具數據集的代碼：

data(mtcars)
library(stringr)
mtcars$gear = as.character(mtcars$gear)
unique_values = unique(mtcars$gear)

for (i in (1:length(unique_values))){

   mtcars$gear =  str_replace(string = mtcars$gear, pattern = unique_values[i], replacement = as.character(i))

}

有沒有更有效的方法？

Answer 1

使用dplyr庫應該可以解決問題：

data(mtcars)
library(stringr)
library(dplyr)


mtcars$gear = as.character(mtcars$gear)

mutate(mtcars, gear = as.integer(gear))