1

我有一个数据框，其中包含来自在线参加我测试的参与者的实验结果。在数据文件中，每个唯一的参与者都由实验结束时随机生成的代码标识。由于通过看起来像乱码的随机代码来识别每个人很麻烦，我想用 Participant_1、Participant_2 等可读标签替换这些代码。

所以我想我需要一段代码来识别数据文件中每个唯一的随机代码，并将它们一个一个替换为参与者标签。但我无法弄清楚，任何帮助将不胜感激。

这是一段代码，显示了我的输出与我想要的输出。请注意，每个参与者都回答了不同数量的问题，因此这不能用作解析它们的简单方法。

Participant_Identifiers <- c(rep("QHDKWEFHWKHFFH", 4), rep("WHWIHFJNWFKWF", 7), rep("HEIFFFBBKQLSD", 3))

Participant_Scores <- c(20, 30, 59, 20, 47, 84, 21, 90,54,78,90,97)

df <- data.frame("Participant_Identifiers" = c(rep("QHDKWEFHWKHFFH", 4), rep("WHWIHFJNWFKWF", 7), rep("HEIFFFBBKQLSD", 3)), 
                  "Participant_Scores" = c(20, 30, 59, 20, 47, 84, 21, 90,54,78,90,97, 35, 67))

df

df_I_want <- data.frame("Participant_Identifiers" = c(rep("Participant_1", 4), rep("Participant_2", 7), rep("Participant_3", 3)), 
                       "Participant_Scores" = c(20, 30, 59, 20, 47, 84, 21, 90,54,78,90,97, 35, 67))

df_I_want
4

2 回答 2

2

这是您可以执行的操作：

# example 
ano <- replicate(5, paste(letters[sample(1:25, 12, replace = TRUE)], collapse = ""))
df <- data.frame(pat = sample(ano, 15, replace = TRUE), var = runif(15), 
  stringsAsFactors = FALSE )

# 1. create another data frame with the id you want 
patu <- unique(df$pat)
df_id <- data.frame(pat = patu, id = paste0("Participant_", seq_along(patu)))

# 2. merge with your df 
res <- merge(df, df_id)
于 2020-02-18T02:57:48.567 回答
2

你可以match使用unique

df$new_col <- paste0("Participant_", match(df$Participant_Identifiers, 
                                     unique(df$Participant_Identifiers)))

或者由于Participant_Identifiers是因子，您可以将它们转换为整数

df$new_col <- paste0("Participant_", as.integer(df$Participant_Identifiers))
于 2020-02-18T03:07:01.947 回答