Как изменить код для функции построения графика регрессии?

Question

Я хочу построить более одного графика в R. Однако я не хочу использовать функцию par () или layout ().Я хочу изменить графики, нажав Enter, как встроенная функция графика для регрессии.Как я могу написать свой собственный код для этого?

Answer 1

Вы можете использовать menu() из utils и switch:

keep_loop = TRUE
while (keep_loop) {
  switch (menu(c("cars", "iris", "exit"), title = "Which dataset to plot?"),
          1 == {
            plot(cars)
            lines(lowess(cars))
          },
          2 == {
            plot(iris[, 1:2])
            lines(lowess(iris[, 1:2]))
          },
          3 == {
            keep_loop = FALSE
          })
}

Если вы просто хотите получить подсказку без возможности выбора графиков (или вернуться назад), используйте readline()

plot(cars)
invisible(readline(prompt="Press [enter] to continue"))
lines(lowess(cars))