R将列表中的字符值分配给dataframe列中的唯一组

my_df <- data.frame(unique_group = character(), assigned_value = character(), stringsAsFactors = FALSE)

for (value in my_list) {
  if (value %in% my_df$unique_group) {
    # 如果唯一组已存在于dataframe中，则将字符值添加到已存在的唯一组中
    my_df$assigned_value[my_df$unique_group == value] <- paste(my_df$assigned_value[my_df$unique_group == value], value, sep = ", ")
  } else {
    # 如果唯一组不存在于dataframe中，则创建一个新的唯一组，并将字符值分配给它
    my_df <- rbind(my_df, data.frame(unique_group = value, assigned_value = value, stringsAsFactors = FALSE))
  }
}

print(my_df)