使用ggplot和R绘制三层嵌套数据

install.packages("ggplot2")

library(ggplot2)

data <- data.frame(
  X = rep(c("A", "B", "C"), each = 3),
  Y = rep(c("D", "E", "F"), 3),
  Z = rep(c("G", "H", "I"), 3),
  value = rnorm(9)
)

plot <- ggplot(data, aes(x = X, y = value, fill = Z))

# 添加柱状图
plot + geom_bar(stat = "identity", position = "dodge")

# 添加散点图
plot + geom_point()

# 添加折线图
plot + geom_line()

# 添加箱线图
plot + geom_boxplot()

# 添加标题
plot + ggtitle("Three-layer Nested Data Plot")

# 添加x轴标签
plot + xlab("X Variable")

# 添加y轴标签
plot + ylab("Value")

# 添加图例
plot + labs(fill = "Z Variable")

# 打印图形
print(plot)

# 保存图形为PNG文件
ggsave("plot.png", plot, width = 6, height = 4, dpi = 300)