#-------------------------------------------------------------
## Plot of multi-batch regression data discussed in Article 1.3
#-------------------------------------------------------------
data(Table1.1)
Table1.2$Batch <- factor(x = Table1.2$Batch)
library(ggplot2)
Plot <-
ggplot(data = Table1.2, mapping = aes(y = Y, x = X, colour = Batch, shape = Batch)) +
geom_point() +
geom_smooth(method = "lm", fill = NA) +
labs(title = "Plot of Multi Batch Regression data") +
theme_bw()
Plot
Run the code above in your browser using DataLab