ggplot_basicScatter.R

# Create scatter with text label on the points
library(ggplot2)
p <- ggplot(data = df2, aes(x = idnum, y = response, label = id))
p <- p + geom_point()
p <- p + geom_text(aes(label=id),hjust=0, vjust=0, size=3)
p <- p + geom_smooth(method = 'loess', se = F)
p <- p + xlab("Fitted FEV1")
p <- p + ylab("Standardised residuals")
p <- p + theme_bw()
p <- p + theme(legend.title=element_blank())
p <- p + theme(legend.position='bottom')
p <- p + theme(text = element_text(size=10))
print(p)