library(ggplot2)

dt <- data.frame(x = runif(1000), y = runif(1000))
line.upper <- data.frame(x = runif(10), y = runif(10, 0.7, 0.9))
line.lower <- data.frame(x = runif(10), y = runif(10, 0.1, 0.2))

dt$upper <- approx(line.upper$x, line.upper$y, dt$x)$y
dt$lower <- approx(line.lower$x, line.lower$y, dt$x)$y
dt$code <- dt$y > dt$lower & dt$y < dt$upper

print(dt)

ggplot(dt, aes(x, y)) +
  geom_point(aes(color = code)) +
  geom_line(data = line.upper, color = "red", aes(x = x, y = y)) +
  geom_line(data = line.lower, color = "green", aes(x = x, y = y))
# 紅點表示在界外（dt$code值為FALSE），
# 綠點表示在界內（dt$code值為TRUE），
# 灰點表示不能判斷（上界或下界不存在；dt$code值為NA）