対応のあるデータのグラフ

2023.03.27

データセットの作成

id <- 1:5
x <- c(rnorm(5, 20, 2))
y <- c(rnorm(5, 25, 1))
(data <- data.frame(id, x, y))

イメージしやすいように前後にします

colnames(data) <- c("ID","前","後")
data

5名の前後の対応のあるグラフを作りたいとき

転置します

#見栄えをよくするためにちょっとずらして設定
x <- c(1.1, 1.9)
(t_data <- t(data[,2:3]))

matplot(
    x, t_data,
    type ="l", lty=1, 
    xaxt="n", 
    xlim=c(1, 2),
    xlab="", ylab=""
)
name <- c("前", "後")
axis(side=1, at=c(1.1, 1.9), labels=name)
legend("topleft", legend=id, col=id, lty=1)

コメント欄 『間違い』や『分かりにくい部分』などのご意見もお寄せください

タイトルとURLをコピーしました