使用R中的ggplot叠加两个不同尺寸的地块

library(ggplot2)

# 创建数据框
data <- data.frame(
  x = c(1, 2),  # 地块1的x坐标
  y = c(1, 2),  # 地块1的y坐标
  size1 = c(5, 8),  # 地块1的大小
  size2 = c(3, 6)   # 地块2的大小
)

# 创建基础地块图
base_plot <- ggplot(data) +
  geom_rect(aes(xmin = x - size1/2, xmax = x + size1/2, ymin = y - size1/2, ymax = y + size1/2),
            fill = "blue", alpha = 0.5)

# 叠加第二个地块
final_plot <- base_plot +
  geom_rect(aes(xmin = x - size2/2, xmax = x + size2/2, ymin = y - size2/2, ymax = y + size2/2),
            fill = "red", alpha = 0.5)

# 显示图形
print(final_plot)