如何在R中实现水平填充面积图？转置数据的解决方案

这问题我之前也碰到过，areaplot包确实没直接支持转置填充的参数，不过咱们可以用两种思路解决——要么用基础绘图手动构建填充区域，要么用ggplot2来实现，后者更灵活直观。

方法1：基础绘图手动实现 #

基础绘图的polygon()函数可以帮我们手动构建闭合的填充区域，完全满足转置需求：

# 先模拟一组示例数据（替换成你的真实数据即可）
original_x <- 1:10
original_y <- c(2, 3, 5, 4, 6, 7, 5, 4, 3, 2)

# 初始化绘图区域，注意交换x/y轴的标签和范围
plot(0, 0, type = "n", 
     xlim = c(0, max(original_y)), 
     ylim = range(original_x), 
     xlab = "原y数据", 
     ylab = "原x数据")

# 构造填充多边形的顶点：从纵轴(x=0)开始，连接所有(original_y, original_x)点，再回到纵轴
poly_x <- c(0, original_y, 0)
poly_y <- c(original_x[1], original_x, original_x[length(original_x)])

# 绘制填充区域和曲线
polygon(poly_x, poly_y, col = "#69b3a2")
lines(original_y, original_x, lwd = 2, col = "#2c3e50")

原理很简单：polygon()会自动闭合顶点形成的区域，我们手动加上纵轴的两个端点，就能实现向左填充到纵轴的转置效果，和原面积图的逻辑完全对应。

方法2：用ggplot2快速实现（推荐） #

ggplot2的geom_ribbon()可以直接指定填充的边界，不用手动构造多边形，代码更简洁：

library(ggplot2)

# 整理成数据框（R绘图的标准格式）
df <- data.frame(
  original_x = 1:10,
  original_y = c(2, 3, 5, 4, 6, 7, 5, 4, 3, 2)
)

ggplot(df, aes(x = original_y, y = original_x)) +
  # 填充从纵轴(x=0)到曲线的区域
  geom_ribbon(aes(xmin = 0, xmax = original_y), 
              fill = "#69b3a2", alpha = 0.7) +
  # 绘制曲线
  geom_line(lwd = 1.2, col = "#2c3e50") +
  # 设置轴标签
  labs(x = "原y数据", y = "原x数据") +
  # 可选：用简洁的主题
  theme_minimal()

如果你的数据是有顺序的（比如时间序列），一定要保证original_x的顺序是连续的，不然填充会出现异常。你还可以根据需求调整填充色透明度、线条样式等细节。

内容的提问来源于stack exchange，提问作者KahntM