R ggplot2图例显示顺序

library(ggplot2)

# 创建数据集
data <- data.frame(
  x = c("A", "B", "C"),
  y = c(10, 20, 30)
)

# 创建散点图图层
scatter_layer <- geom_point(data = data, aes(x = x, y = y), color = "red")

# 创建柱状图图层
bar_layer <- geom_bar(data = data, aes(x = x, y = y), stat = "identity", fill = "blue")

# 创建绘图对象
plot <- ggplot(data)

# 添加图层到绘图中，并指定柱状图在散点图之后绘制
plot <- plot +
  layer(scatter_layer) +
  layer(bar_layer, after_scale = scatter_layer)

# 显示图形
plot

library(ggplot2)

# 创建数据集
data <- data.frame(
  x = c("A", "B", "C"),
  y = c(10, 20, 30)
)

# 创建散点图
scatter_plot <- ggplot(data, aes(x = x, y = y)) +
  geom_point(color = "red") +
  labs(title = "Scatter Plot", x = "X", y = "Y")

# 创建柱状图
bar_plot <- ggplot(data, aes(x = x, y = y)) +
  geom_bar(stat = "identity", fill = "blue") +
  labs(title = "Bar Plot", x = "X", y = "Y")

# 调整图例显示顺序
scatter_plot <- scatter_plot +
  guides(color = guide_legend(order = 2))

bar_plot <- bar_plot +
  guides(fill = guide_legend(order = 1))

# 显示图形
scatter_plot
bar_plot