縦のデータと横のデータ

library(tidyr)

dat1 <- c(-0.65, -0.58, 1.98, 0.98, 1.55, -0.05, 0.10, -1.35, 1.24, -0.28)
dat2 <- c(1.31, 2.39, 2.87, 2.25, 2.33, 5.32, 3.13, 1.21, 1.50, 0.97)

data <- c(dat1, dat2)
group <- c(
    rep("A", length(dat1)),
    rep("B", length(dat2))
)

(df <- data.frame(group, data))

t.test(data ~ group, data=df)

df$id <- c(rep(c(1:10), 2))
df

df$point <- c(rep("前", 10), rep("後", 10))
(df2 <- df[, -1])

(df2yoko <- tidyr::spread(df2, key=point, value=data))

(df3 <- df2yoko[,c(1, 3, 2)])

t.test(df3$後 - df3$前)

x <- c(1.1, 1.9) #見栄えをよくするためにちょっとずらす　
(dat <- t(df3[,2:3]))
matplot(
    x, dat,
    type ="l", lty=1, col=1,
    xaxt="n",
    xlim=c(1, 2),
    xlab="", ylab=""
)
name <- c("前", "後")
axis(side=1, at=c(1.1, 1.9), labels=name)

tidyr::gather(df3, key=point, value=data, -id)