将堆叠条形图的值与R中的表格相链接

install.packages("ggplot2")
library(ggplot2)

data <- data.frame(
  Category = c("A", "B", "C", "D"),
  Value1 = c(10, 20, 30, 40),
  Value2 = c(15, 25, 35, 45),
  Value3 = c(5, 15, 25, 35)
)

install.packages("tidyr")
library(tidyr)

data_long <- gather(data, key = "Variable", value = "Value", -Category)

ggplot(data_long, aes(x = Category, y = Value, fill = Variable)) +
  geom_bar(stat = "identity", position = "stack")

ggplot(data_long, aes(x = Category, y = Value, fill = Variable)) +
  geom_bar(stat = "identity", position = "stack") +
  geom_text(aes(label = Value), position = position_stack(vjust = 0.5))