uni/sose2021/r/w03/L03-1-exerc.R

library(ggplot2)
library(tibble)

x_plt1 <- seq(0,1,len=1000)
x_plt2 <- seq(0,1,len=200)
plt_data1 <- tibble(
  x_val = x_plt1,
  y_val1 = x_plt1^2,
  y_val2 = sqrt(x_plt1))
plt_data2 <- tibble(
  x_val = x_plt2,
  y_val = sin(2*pi*x_plt2)/2+0.5)

plt <- ggplot(data = plt_data1, mapping = aes(x = x_val)) +
    geom_line(mapping = aes(y = y_val1), color="blue") +
    geom_line(mapping = aes(y = y_val2), color="red") +
    geom_line(data = plt_data2, mapping = aes(x = x_val, y = y_val), color="red") +
    geom_point(data = plt_data2, mapping = aes(x = x_val, y = y_val), color="cyan")

print(plt)