如何在R语言循环中通过用户输入修改变量

首先你原代码里有个关键问题：Change=TRUE写在while循环内部，每次循环都会把变量重置为TRUE，所以永远只会打印"a"，得先把它移到循环外面。

下面提供两种可行的实现方式：

方式一：使用基础包的getGraphicsEvent（无需额外安装包） #

这个方法需要打开一个R图形窗口来监听按键事件，示例代码如下：

Keep <- TRUE
Change <- TRUE  # 把初始化移到循环外

# 先打开一个空白图形窗口
plot(1, type = "n", xlab = "", ylab = "", main = "按空格切换输出，按q退出")

while (Keep) {
  # 检测按键事件，超时0秒不阻塞循环
  key <- getGraphicsEvent(prompt = "", onMouseDown = NULL, onKeybd = function(k) k, timeout = 0)
  
  # 处理按键：空格切换Change状态，q退出循环
  if (!is.null(key)) {
    if (key == " ") {
      Change <- !Change
      cat(paste("已切换为：", ifelse(Change, "a", "b"), "\n"))
    } else if (key == "q") {
      Keep <- FALSE
      cat("已退出循环\n")
    }
  }
  
  # 执行输出逻辑
  if (Change) {
    print("a")
  } else {
    print("b")
  }
  
  Sys.sleep(1)
}

方式二：使用keypress包（无需图形窗口） #

这个包专门用于检测键盘按键，使用起来更简洁，先安装包再运行代码：

# 安装包（仅第一次需要）
install.packages("keypress")

library(keypress)

Keep <- TRUE
Change <- TRUE

while (Keep) {
  # 检测按键，超时0.1秒避免过度占用资源
  key <- keypress(timeout = 0.1)
  
  if (!is.null(key)) {
    if (key == "space") {  # 空格键
      Change <- !Change
      cat(paste("已切换为：", ifelse(Change, "a", "b"), "\n"))
    } else if (key == "q") {  # q键退出
      Keep <- FALSE
      cat("已退出循环\n")
    }
  }
  
  if (Change) {
    print("a")
  } else {
    print("b")
  }
  
  Sys.sleep(0.9)  # 加上前面的0.1秒，总间隔还是1秒
}

注意：两种方法里，按键检测的超时时间可以根据需求调整，确保循环既不会因为等待按键而阻塞，也不会过度消耗CPU资源。

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