使用R，我想将下面的Excel数据整理成ggplot2可用的格式

# 安装和加载所需的R包
install.packages("readxl")
install.packages("tidyverse")
library(readxl)
library(tidyverse)

# 读取Excel数据
data <- read_excel("path/to/your/excel/file.xlsx")

# 数据整理和转换
data <- data %>%
  pivot_longer(cols = -c(Variable), names_to = "Category", values_to = "Value")

# 使用ggplot2进行数据可视化
ggplot(data, aes(x = Category, y = Value, fill = Variable)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(title = "Excel数据可视化", x = "Category", y = "Value") +
  theme_minimal()