如何将用户输入作为新列添加至已有DataFrame？R语言技术咨询

咱们先梳理下你现有代码里的几个核心问题：

• strsplit() 返回的是列表类型，直接用 cbind() 会把整个列表当成一列，而非拆分后的字符向量，得用 unlist() 转成向量才能正常作为列值
• 函数里没有正确返回处理后的DataFrame，且cbind的顺序把新列放在了最前面（虽然不算错误，但可能不符合你的预期）
• 当前实现没法保留之前添加的列，每次调用都会基于原始df重新处理

修正后的单次输入实现 #

先给你调整好能正确添加单列的代码，还加了输入校验让程序更健壮：

# 原始DataFrame
df <- data.frame(aa1 = c("S", "K", "A", "A", "L", "D", "L", "E", "E", "H", "T", "D", "V", "V", "Q", "K", "K", "N", "A", "I", "E", "I", "V", "T", "L"), 
                 aa2 = c("C","V","Q","W","K","N","A","Y","A","L","C","W","L","D","C","I","L","S","A","L","V","H","S","E","E"))

add_aa_column <- function(df) {
  my_seq <- readline(prompt="Enter aa sequence (25 characters): ")
  # 拆分输入为字符向量
  aa_vec <- unlist(strsplit(my_seq, ""))
  # 检查输入长度是否匹配原DataFrame行数，避免报错
  if(length(aa_vec) != nrow(df)) {
    stop(paste("Input must be", nrow(df), "characters long!"))
  }
  # 自动生成递增的新列名（比如aa3、aa4...）
  existing_aa_cols <- grep("^aa\\d+$", colnames(df), value = TRUE)
  new_col_num <- length(existing_aa_cols) + 1
  new_col_name <- paste0("aa", new_col_num)
  # 将新列添加到DataFrame
  df[[new_col_name]] <- aa_vec
  return(df)
}

# 第一次调用添加新列
df <- add_aa_column(df)
print(df)

支持多次输入的使用方法 #

如果要多次添加独立新列，只需要重复调用函数并重新赋值给df即可：

# 第二次添加新列
df <- add_aa_column(df)
# 第三次添加新列
df <- add_aa_column(df)

关键细节说明 #

• 用unlist(strsplit(my_seq, ""))把拆分后的列表转成字符向量，确保能正确作为一列的值
• 自动生成列名：通过grep筛选出所有aa+数字格式的列，自动计算下一个编号，避免手动命名的麻烦
• 加入长度校验，防止用户输入的序列长度和DataFrame行数不匹配导致的错误

比如你输入示例ALDIKSADPEVMLLTLSLYKQLNNN（刚好25个字符），调用后就会在df里新增aa3列，内容是拆分后的单个氨基酸字符。

内容的提问来源于stack exchange，提问作者student24