nishiru3の日記

備忘録です。ネットのゴミ。

重ね書き

よく忘れる

重ね書きをよく忘れるので、簡単な事例を書いておく。

ソース

# 重ね書き
library(ggplot2)
x <- -10:10
# 係数
a <- 0.5
b <- 1.0
# 線形関数
linear <- a * x + b
# 2次関数
quadratic <- (x - a)^2 + b
# data.frameに入れる
result <- data.frame(x,linear,quadratic)
# 可視化
ggplot(result, aes(x)) + # x軸
  geom_line(aes(y = linear,    colour = "Linear")) +
  geom_line(aes(y = quadratic, colour = "Quadratic"))

f:id:nishiru3:20181222121600p:plain