如何在R语言中获取用户输入并存储到数据框对应列中？

嘿，我来帮你搞定这个需求！你用readline()获取输入的思路完全没问题，接下来只需要把这些输入整合到数据框里就行啦，下面是具体的步骤和代码：

1. 先定义初始数据框（如果已有数据的话） #

假设你已经有示例里的初始数据，先把它创建出来：

# 创建初始数据框
df <- data.frame(
  Month = c(4, 5, 6),
  Year = c(2016, 2016, 2016),
  Value = c(114235.00, 114235.00, 114235.00),
  No = c("A22", "A22", "A22"),
  stringsAsFactors = FALSE  # 避免字符列自动转成因子，后续操作更方便
)

2. 获取用户输入并转换对应类型 #

你已经写了部分输入代码，这里完善一下类型转换，确保和数据框列的类型匹配：

# 获取用户输入并转换对应数据类型
my.year <- as.integer(readline(prompt="请输入Year: "))
my.month <- as.integer(readline(prompt="请输入Month: "))
my.value <- as.numeric(readline(prompt="请输入Value: "))
my.no <- readline(prompt="请输入No: ")  # No是字符型，无需转换

3. 将输入的新行添加到数据框里 #

有两种常用方式添加新行，你可以根据习惯选择：

方法一：基础R的rbind() #

用基础R的函数就能实现，不需要额外安装包：

# 把输入内容整合成单个数据框行
new_row <- data.frame(
  Month = my.month,
  Year = my.year,
  Value = my.value,
  No = my.no,
  stringsAsFactors = FALSE
)

# 将新行添加到原数据框
df <- rbind(df, new_row)

方法二：用tibble包的add_row()（更简洁） #

如果你习惯用tibble格式的数据框，或者想写更简洁的代码，可以用这个方法：

# 先安装并加载tibble包（如果还没安装的话）
# install.packages("tibble")
library(tibble)

# 直接添加新行到数据框
df <- add_row(df,
              Month = my.month,
              Year = my.year,
              Value = my.value,
              No = my.no)

4. 验证结果 #

运行完上面的代码后，你可以打印数据框看看新行有没有成功添加：

print(df)

举个实际例子，如果用户输入Year=2024、Month=7、Value=125000、No=B33，数据框最后会多出一行：

Month Year   Value   No
1     4 2016 114235 A22
2     5 2016 114235 A22
3     6 2016 114235 A22
4     7 2024 125000 B33

额外小提示：添加输入验证 #

如果担心用户输入无效内容（比如Year输了字符串），可以加个简单的循环验证，避免出现NA值：

# 示例：确保Year输入是有效整数
repeat {
  my.year <- readline(prompt="请输入Year: ")
  my.year <- as.integer(my.year)
  if (!is.na(my.year)) break
  cat("输入无效，请输入整数格式的年份！\n")
}

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