plot_cor <- function(dataset, col_names, response_variable ){
par(mfrow=c(ceiling(length(col_names)/2), 2))
for(i in 1:length(col_names)){
plot(dataset[[response_variable]],
dataset[[col_names[i]]],
xlab = "Resting Heart Rate",
ylab = col_names[i],
main = paste("Correlation:", round(cor(dataset[,response_variable],
dataset[,col_names[i]], use = "complete.obs"),
digits = 3)))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.