在基R中，你可以使用paste0作为as.factor来创建一个唯一的外科医生列，它是一个因子-在R中，因子后面“隐藏”着数字。如果你想让它们被赋予一个数字，你可以把它 Package 在as.numeric中：

df <- data.frame(patient = 1:15,
                 hospital = rep(LETTERS[1:3], each = 5),
                 surgeon = c(rep(1:5, 2), c(2,2,4,5,5)))

df$surgeon_code <- as.factor(paste0(df$hospital, df$surgeon))
df$surgeon_num <- as.numeric(df$surgeon_code)

字符串
或dplyr::mutate

library(dplyr)

df %>% 
  mutate(surgeon_code = as.factor(paste0(hospital, surgeon)),
         surgeon_num = as.numeric(hospital_code))

型
两个输出：

#    patient hospital surgeon surgeon_code surgeon_num
# 1        1        A       1           A1           1
# 2        2        A       2           A2           2
# 3        3        A       3           A3           3
# 4        4        A       4           A4           4
# 5        5        A       5           A5           5
# 6        6        B       1           B1           6
# 7        7        B       2           B2           7
# 8        8        B       3           B3           8
# 9        9        B       4           B4           9
# 10      10        B       5           B5          10
# 11      11        C       2           C2          11
# 12      12        C       2           C2          11
# 13      13        C       4           C4          12
# 14      14        C       5           C5          13
# 15      15        C       5           C5          13

型