gistfile1.txt

nums <- unlist(lapply(dataset, is.numeric))  
datasetnums<-dataset[ , nums]
corr <- round(cor(datasetnums), 1)
ggcorrplot(corr, hc.order = TRUE, 
           type = "lower", 
           lab = TRUE, 
           lab_size = 3, 
           title="Correlogram of dataset", 
           ggtheme=theme_bw)

ggplot(dataset, aes(x = Hb,y = VO2cdi, color = factor(ID))) +
  geom_point(shape = 16, size = 5, alpha=0.5) + 
  theme_bw() + theme(legend.position = "none")