quarto-2

library(knitr)
library(ggplot2)

Harvard Histogram

# echo: false
include_graphics("hist-harvard.png")

Iris Scatter Plot

# echo: false
iris_plot <- ggplot(data = iris, 
       mapping = aes(x = Sepal.Width, 
                     y = Sepal.Length, 
                     color = Species)) +
geom_point() +
labs(title = "Measurments for Different Species of Iris",
     subtitle = "Virginica has the longest sepals",
     x = "Sepal.Width",
     y = "Sepal.Length",
     caption = "Fisher (1936)")
iris_plot

file <- ggsave("iris_plot.png")

Saving 7 x 5 in image

plot <- iris_plot

include_graphics("iris_plot.png")

# echo: false
x <- 1234567890

x <- 1,234,567,890