如何在R语言base包segments()函数中实现线段居中，无需手动设坐标？

问题描述 #

有没有办法在base R的segments()函数里直接设置“居中”参数，不用手动逐个调整x0/x1、y0/y1坐标？显然align='center'在这里无效，因为segments()是base R原生函数，不支持该参数。

原代码片段 #

# 代码片段示例
plot.new()
height1 = 0.9
height3 = 0.7
height5 = 0.5
height4 = 0.3
height2 = 0.1 
segments(0, height1, species1_length/largestLength, height1, 
    lwd=3)
segments(0, height2, species2_length/largestLength, height2, 
    lwd=3)
segments(0, height3, species3_length/largestLength, height3, 
    lwd=3)
segments(0, height4, species4_length/largestLength, height4, 
    lwd=3)
segments(0, height5, species5_length/largestLength, height4, 
    lwd=3)

手动调整的实现方式 #

通过手动设置偏移量调整x0，并同步修正x1，保证线段长度不变且相对于目标中心对称：

segments(0.143, height1, ((species1_length / largestLength) * 2) + 0.143, 
         height1, lwd = 3)
segments(0.16, height2, ((species2_length / largestLength) * 2) + 0.16, 
         height2, lwd = 3)
segments(0.258, height3, ((species3_length / largestLength) * 2) + 0.258, 
         height3, lwd = 3)
segments(0.083, height4, ((species4_length / largestLength) / 1.2) +
           0.083, 
         height4, lwd = 3)
segments(0.155, height5, ((species5_length / largestLength) *
                            2) + 0.155, 
         height5, lwd = 3) 

更高效的优化方案：自定义居中线段函数 #

base R的segments()确实没有内置居中参数，但可以封装一个简单函数自动计算坐标，避免重复手动操作：

# 自定义居中线段绘制函数
centered_segments <- function(center_x, y, length, lwd = 1, ...) {
  x0 <- center_x - length / 2
  x1 <- center_x + length / 2
  segments(x0, y, x1, y, lwd = lwd, ...)
}

# 使用示例
plot.new()
# 整理高度和长度数据为向量，方便批量处理
height_vec <- c(0.9, 0.7, 0.5, 0.3, 0.1)
length_vec <- c(species1_length, species3_length, species5_length, species4_length, species2_length) / largestLength

# 统一中心位置（比如绘图区域中点0.5）批量绘制
for (i in seq_along(height_vec)) {
  centered_segments(center_x = 0.5, y = height_vec[i], length = length_vec[i], lwd = 3)
}

如果需要每个线段使用不同的中心位置，也可以传入中心位置向量批量处理：

# 定义每个线段的中心x坐标
center_x_vec <- c(0.3, 0.2, 0.4, 0.15, 0.25)

# 用mapply批量调用函数
mapply(centered_segments, 
       center_x = center_x_vec, 
       y = height_vec, 
       length = length_vec, 
       MoreArgs = list(lwd = 3))

这样只需指定中心位置和线段长度，就能自动生成对称的线段，代码更简洁易维护。

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