R上具有不同值的两个图

library(ggplot2)

# 创建数据
data <- data.frame(
  category = c("A", "B", "C", "D"),
  value1 = c(10, 20, 30, 40),
  value2 = c(15, 25, 35, 45)
)

# 创建图形
ggplot(data, aes(x = category, y = value1, fill = "Value 1")) +
  geom_bar(stat = "identity") +
  geom_bar(aes(y = value2, fill = "Value 2"), stat = "identity") +
  scale_fill_manual(values = c("Value 1" = "blue", "Value 2" = "red")) +
  theme_minimal()

# 创建数据
data <- data.frame(
  category = c("A", "B", "C", "D"),
  value1 = c(10, 20, 30, 40),
  value2 = c(15, 25, 35, 45)
)

# 创建图形
barplot(as.matrix(data[, c("value1", "value2")]), beside = TRUE, col = c("blue", "red"))

library(lattice)

# 创建数据
data <- data.frame(
  category = c("A", "B", "C", "D"),
  value1 = c(10, 20, 30, 40),
  value2 = c(15, 25, 35, 45)
)

# 创建图形
barchart(value1 + value2 ~ category, data = data, groups = c("Value 1", "Value 2"), auto.key = TRUE, col = c("blue", "red"))