Test dashboard

This is test dashboard with Rmarkdown

# Load necessary libraries
library(ggplot2)
library(dplyr)
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")