Test dashboard

This is test dashboard with Rmarkdown

# 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
library(tidyr)
# Read the dataset from a CSV file
# Replace 'path_to_your_file.csv' with the actual path to your file
student_scores <- read.csv("/Users/User/Downloads/box_plot_dataset.csv")

# Convert dataset to long format for ggplot
student_scores_long <- student_scores %>%
  pivot_longer(cols = Math:History, names_to = "Subject", values_to = "Score")
# Create the box plot
ggplot(student_scores_long, aes(x = Subject, y = Score, fill = Subject)) +
  geom_boxplot() +
  labs(
    title = "Boxplot of Student Scores by Subject",
    x = "Subject",
    y = "Scores"
  ) +
  theme_minimal() +
  theme(legend.position = "none")