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:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00
str(data)
## function (..., list = character(), package = NULL, lib.loc = NULL, verbose = getOption("verbose"), 
##     envir = .GlobalEnv, overwrite = TRUE)

Including Plots You can also embed plots, for example:

# Barplot
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.2.3
barplot_data <- aggregate(Sepal.Length ~ Species, data = iris, mean)
barplot <- ggplot(barplot_data, aes(x = Species, y = Sepal.Length)) +
  geom_bar(stat = "identity", fill = "steelblue") +
  labs(title = "Barplot of Sepal Length by Species",
       x = "Species", y = "Mean Sepal Length")
barplot

# Histogram
histogram <- ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_histogram(binwidth = 0.2, position = "identity", alpha = 0.7) +
  labs(title = "Histogram of Sepal Length by Species",
       x = "Sepal Length", y = "Frequency",
       fill = "Species")
print(histogram)

frequency of Sepal Length values for each species.

#pie chart
pie_data <- table(iris$Species)
pie_chart <- ggplot() +
  geom_bar(stat = "identity", aes(x = 1, y = as.numeric(pie_data), fill = names(pie_data))) +
  coord_polar(theta = "y") +
  labs(title = "Pie Chart of Species Distribution")
print(pie_chart)

# Scatterplot
scatterplot <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
  geom_point() +
  labs(title = "Scatterplot of Sepal Length vs Sepal Width",
       x = "Sepal Length", y = "Sepal Width",
       color = "Species")
print(scatterplot)

# Boxplot
boxplot <- ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
  geom_boxplot() +
  labs(title = "Boxplot of Sepal Length by Species",
       x = "Species", y = "Sepal Length",
       fill = "Species")
print(boxplot)