Title

This is an R HTML document. When you click the Knit HTML button a web page will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

  library(ggplot2)
 ggplot(diamonds) +
   geom_point(aes(x=carat, y=price, color=cut))  +
   geom_smooth(aes(x=carat, y=price, color=cut))

## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

  library(ggplot2)
  ggplot(diamonds) +
    geom_point(aes(x=carat, y=price, color=cut)) +
    geom_smooth(aes(x=carat, y=price))

## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

                                # Remove color from geom_smooth
  ggplot(diamonds, aes(x=carat, y=price)) +
    geom_point(aes(color=cut)) +
    geom_smooth()               # same but simpler

## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

 library(ggplot2)
  gg <- ggplot(diamonds, aes(x=carat, y=price, color=cut)) +
    geom_point() +
                                # add axis lables and plot title.
    labs(title="Scatterplot", x="Caratzzz", y="Priceee")
  print(gg)

  library(ggplot2)
  ggplot(diamonds) +
    geom_point(aes(x=carat, y=price, color=cut)) +
    geom_smooth(aes(x=carat, y=price))

## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

                                # Remove color from geom_smooth
  ggplot(diamonds, aes(x=carat, y=price)) +
    geom_point(aes(color=cut)) + labs(title="Scatterplot", x="Caratzzz", y="Priceee") +
    geom_smooth() +       # same but simpler
    facet_wrap(~ cut)

## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

  print(gg)

  library(ggplot2)
  ggplot(diamonds) +
    geom_point(aes(x=carat, y=price, color=cut)) +
    geom_smooth(aes(x=carat, y=price))

## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

                                # Remove color from geom_smooth
  ggplot(diamonds, aes(x=carat, y=price)) +
    geom_point(aes(color=cut)) + labs(title="Scatterplot", x="Caratzzz", y="Priceee") +
    geom_smooth() +       # same but simpler
    facet_wrap(~ cut)

## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

  print(gg)

  library(ggplot2)
  ggplot(diamonds) +
    geom_point(aes(x=carat, y=price, color=cut)) +
    geom_smooth(aes(x=carat, y=price))

## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

                                # Remove color from geom_smooth
  ggplot(diamonds, aes(x=carat, y=price)) +
    geom_point(aes(color=cut)) + labs(title="Scatterplot", x="Caratzzz", y="Priceee") +
    geom_smooth() +       # same but simpler

    theme(plot.title=element_text(size=30, face="bold"),
                  axis.text.x=element_text(size=15),
                  axis.text.y=element_text(size=15),
                  axis.title.x=element_text(size=25),
                  axis.title.y=element_text(size=25)) +
  scale_color_discrete(name="Cut of diamonds")  # add title and axis text, change legend title.

## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'