f1.Rmd

---
title: "Function 1"
output:
  html_document:
    df_print: paged
---

This is an [R Markdown](http://rmarkdown.rstudio.com) Notebook. When you execute code within the notebook, the results appear beneath the code. 

Try executing this chunk by clicking the *Run* button within the chunk or by placing your cursor inside it and pressing *Ctrl+Shift+Enter*. 

```{r}
library(tidyverse)
scatterpot <- function(dataframe,columnVal_x,columnval_y,color_var="Species"){
  plt <- dataframe %>% 
    mutate(x_var = get(columnVal_x),
           y_var = get(columnval_y),
           col_var = get(color_var)) %>%
    ggplot(aes(x = x_var, y = y_var)) + geom_point(aes(color=Species)) +  stat_smooth(method = "lm", col = "red")
  return(plt)
}

scatterpot(iris, "Sepal.Length", "Sepal.Width")

```

Add a new chunk by clicking the *Insert Chunk* button on the toolbar or by pressing *Ctrl+Alt+I*.

When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the *Preview* button or press *Ctrl+Shift+K* to preview the HTML file).

The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike *Knit*, *Preview* does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed.