在Base R绘图中设置X轴刻度为π单位的问题

错误核心原因：expression()无法直接处理向量生成多标签，你的代码里expression(paste(seq(-2*3, 2*3, by = 2), pi, sep = ""))会将整个seq输出作为单个表达式，导致labels长度为1，而at参数生成的刻度位置有7个，两者长度不匹配触发报错。

解决方法一：用parse()生成表达式标签向量 #

通过生成包含π符号的文本字符串，再解析为表达式，确保标签数量与刻度位置一致：

curve(sin(x), from = -6*pi, to = 6*pi, xaxt='n')
# 定义刻度位置
at_pos <- seq(-6*pi, 6*pi, by = 2*pi)
# 生成带π的标签文本，再解析为表达式
label_strings <- paste(seq(-6, 6, by = 2), "*pi", sep = "")
axis(1, at = at_pos, labels = parse(text = label_strings))

解决方法二：手动构建表达式向量 #

如果刻度数量不多，直接手动写出每个刻度对应的表达式，直观且不易出错：

curve(sin(x), from = -6*pi, to = 6*pi, xaxt='n')
axis(1, at = seq(-6*pi, 6*pi, by = 2*pi), 
     labels = expression(-6*pi, -4*pi, -2*pi, 0, 2*pi, 4*pi, 6*pi))

说明：expression()可以直接接受多个表达式参数（用逗号分隔），生成对应长度的表达式向量，完美匹配at参数的刻度数量。

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