如何平滑R中的大部分垂直线？

我需要为单个x平滑具有许多不同y值的线。比如说

x <- c(73.8675, 74.2025, 74.2025, 74.5375, 74.5375, 74.5375, 74.5375, 
74.5375, 74.5375, 74.5375)

y <- c(21.9425, 22.2775, 22.6125, 22.9475, 23.2825, 23.6175, 23.9525, 
24.2875, 24.6225, 24.9575)

plot(x, y)

---

但在我的情况下，它不能正常工作。哪些算法适用于此任务？

您是否要在每组点之间寻找一条直线<代码>直线（v=unique（x））将为通过点的每个x值生成一条垂直线，但我不确定这是否是您要查找的。我需要一条平滑线作为结果，您可以使用散点。平滑（x，y）我需要值而不是打印

smooth.spline(x, y)
loess(y ~ x)