program-2

Author

Anshul

Quarto

Quarto enables you to weave together content and executable code into a finished document. To learn more about Quarto see https://quarto.org.

Running Code

When you click the Render button a document will be generated that includes both content and the output of embedded code. You can embed code like this:

1 + 1

[1] 2

You can add options to executable code like this

[1] 4

The echo: false option disables the printing of code (only output is displayed).

Write an R script to create a scatter plot, incorporating categorical analysis through color-coded data points representing different groups, using ggplot2

STEP 1 : Load the necessary libraries

#load necessary libraries
library(ggplot2)
library(dplyr)


Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

STEP 2 : Load the Dataset

#load the iris dataset
data <- iris
#display the first few rows
head(data, n=10)

   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1           5.1         3.5          1.4         0.2  setosa
2           4.9         3.0          1.4         0.2  setosa
3           4.7         3.2          1.3         0.2  setosa
4           4.6         3.1          1.5         0.2  setosa
5           5.0         3.6          1.4         0.2  setosa
6           5.4         3.9          1.7         0.4  setosa
7           4.6         3.4          1.4         0.3  setosa
8           5.0         3.4          1.5         0.2  setosa
9           4.4         2.9          1.4         0.2  setosa
10          4.9         3.1          1.5         0.1  setosa

table(data$Species)


    setosa versicolor  virginica 
        50         50         50

STEP 3 : Create a scatter plot

ggplot(data, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
  geom_point(size = 3, alpha = 0.7) + #increase point size & transparency 
  labs(title = "scatter plot of sepal dimensions",
       x = "sepal length",
       y = "sepal width", 
       color = "sepcies") + #legend title
  theme_minimal() + #clean layout
  theme(legend.position = "top") #move legend to the top