R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document 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)
## Warning: package 'ggplot2' was built under R version 4.4.2
library(tidyr)
str(diamonds)
## tibble [53,940 × 10] (S3: tbl_df/tbl/data.frame)
##  $ carat  : num [1:53940] 0.23 0.21 0.23 0.29 0.31 0.24 0.24 0.26 0.22 0.23 ...
##  $ cut    : Ord.factor w/ 5 levels "Fair"<"Good"<..: 5 4 2 4 2 3 3 3 1 3 ...
##  $ color  : Ord.factor w/ 7 levels "D"<"E"<"F"<"G"<..: 2 2 2 6 7 7 6 5 2 5 ...
##  $ clarity: Ord.factor w/ 8 levels "I1"<"SI2"<"SI1"<..: 2 3 5 4 2 6 7 3 4 5 ...
##  $ depth  : num [1:53940] 61.5 59.8 56.9 62.4 63.3 62.8 62.3 61.9 65.1 59.4 ...
##  $ table  : num [1:53940] 55 61 65 58 58 57 57 55 61 61 ...
##  $ price  : int [1:53940] 326 326 327 334 335 336 336 337 337 338 ...
##  $ x      : num [1:53940] 3.95 3.89 4.05 4.2 4.34 3.94 3.95 4.07 3.87 4 ...
##  $ y      : num [1:53940] 3.98 3.84 4.07 4.23 4.35 3.96 3.98 4.11 3.78 4.05 ...
##  $ z      : num [1:53940] 2.43 2.31 2.31 2.63 2.75 2.48 2.47 2.53 2.49 2.39 ...
ggplot(data = diamonds) + 
  geom_bar(mapping = aes(x = cut), fill = "darkgray", color = "black") +
  theme_classic() +
  labs(title = "Diamonds by Cut", x = "Cut Type", y = "Total Count") 

ggplot(data = diamonds) + 
  geom_bar(mapping = aes(x = cut, y = ..prop.., group = 1), fill = "gray", color = "black")+theme_classic() +labs(title = "Proportion of Diamond Cuts", x = "Cut Type", y = "Proportion") 
## Warning: The dot-dot notation (`..prop..`) was deprecated in ggplot2 3.4.0.
## ℹ Please use `after_stat(prop)` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

ggplot(data = diamonds) +  stat_count(mapping = aes(x = cut), fill = "dimgray", color = "black") + theme_classic() + labs(title = "Diamond Cuts Using stat_count()", x = "Cut Type", y = "Total Count")

my_diamonds <- tribble( ~cut,~freq, "Fair",1610,"Good",4906,"Very Good",  12082,"Premium", 13791,"Ideal",21551)
ggplot(data = my_diamonds) +geom_bar(mapping = aes(x = cut, y = freq), stat = "identity", fill = "slategray", color = "black") +theme_classic() +labs(title = "Manually Defined Diamond Cut Counts", x = "Cut Type", y = "Frequency")

ggplot(data = diamonds) + geom_bar(mapping = aes(x = cut, fill = clarity)) +theme_classic()+labs(title = "Diamond Clarity by Cut", x = "Cut Type", y = "Total Count")

ggplot(data = diamonds) + geom_bar(mapping = aes(x = cut, fill = clarity), position = "dodge") + theme_classic() +labs(title = "Comparison of Diamond Clarity by Cut", x = "Cut Type", y = "Total Count")

ggplot(data = diamonds) + geom_bar(mapping = aes(x = cut, fill = clarity), position ="fill")+coord_flip() +theme_classic() +labs(title = "Proportional Diamond Clarity by Cut (Flipped)", x = "Cut Type", y = "Proportion")

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.