Как построить график измерений «до и после» с помощью ggplot с соединительными линиями?

Question

Я новичок в R Я хочу создать диаграмму рассеяния «до и после» с соединительными линиями, чтобы проиллюстрировать различные выходы мощности до и после тренировки.

Мне нужно что-то вроде графика на картинке.

Пример

Sample Data
X <- c(0,1,0,1,0,1,0,1) # 0=before, 1=after
y <- c(1001,1030,900,950,1040,1020,1010,1000) #Power output
Group <- c(0,0,0,0,1,1,1,1) # 0=Control 1=Experimental
id <- c(1,1,2,2,3,3,4,4) # id = per individual
df <- data.frame(x,y,Group,id)

Большое спасибо

Answer 1

x <- c(0,1,0,1,0,1,0,1) # 0=before, 1=after
y <- c(1001,1030,900,950,1040,1020,1010,1000) #Power output
Group <- c(0,0,0,0,1,1,1,1) # 0=Control 1=Experimental
id <- c(1,1,2,2,3,3,4,4) # id = per individual
df <- dplyr::bind_cols(
  x = x,
  y = y,
  Group = as.factor(Group),
  id = as.factor(id)
)

library(ggplot2)
ggplot(df) +
  aes(x,y, color = Group, shape = Group, group = id)+
  geom_point()+
  geom_line()