编写一个R脚本，模拟一个简单的猜数字游戏。 计算机随机生成一个1到100之间的整数作为目标数字。 用户输入他们的猜测，程序会告诉用户他们猜高了、猜低了还是猜对了。 用户可以继续猜测，直到猜对为止。 使用while循环控制游戏过程。 打印出用户猜测的次数和最终猜对的数字

下面是一个简单的R脚本，实现了上述描述的猜数字游戏：

# 导入random库用于生成随机数
library(random)

# 设置游戏参数
target_number <- sample(1:100, 1)  # 随机生成目标数字
guesses_taken <- 0                  # 初始化猜测次数

# 游戏循环
while (TRUE) {
  # 用户输入猜测
  user_guess <- as.integer(readline("请输入你猜的数字（1-100）: "))
  
  # 检查输入是否有效
  if (!is.na(user_guess) && user_guess >= 1 && user_guess <= 100) {
    guesses_taken <- guesses_taken + 1
    
    # 判断猜测结果
    if (user_guess == target_number) {
      print(paste("恭喜，你猜对了！你总共猜了", guesses_taken, "次。"))
      break
    } else if (user_guess < target_number) {
      print("你猜的太小了!")
    } else {
      print("你猜的太大了!")
    }
  } else {
    print("无效输入，请输入1到100之间的整数。")
  }
}

这个脚本首先导入random库，然后生成一个1到100之间的随机数作为目标数字。游戏在一个无限循环中运行，直到用户猜对为止。每次用户输入后，都会检查输入是否有效，然后比较用户猜测与目标数字，给出相应提示，并更新猜测次数。当猜对时，跳出循环并显示猜测次数。