X轴标签从中间开始，与数据点不匹配

Question

我似乎是在圈子里跑，或者我的数据有问题。我想绘制一些数据，并使用?axis修改X轴上的标签。

但我有两个问题：

1. 轴标签从x轴的中心开始，而不是从头开始
2. 轴标签与图中的数据点不匹配

我希望X轴标签的范围从10到90乘以5。

这是我到目前为止使用并提出的代码：

values <- cbind(1:180,1)

l <-    list(1:10,11:20,21:30,31:40,41:50,51:60,61:70,71:80,81:90,91:100,101:110,111:120,121:130,131:140,141:150,151:160,161:170,171:180)
# compute mean across the intervals in l
meanqual <- sapply(l, function(x) mean(values[x,1]))
meanqual
plot <- plot(meanqual, type="o", xlab="% Size of Wave", ylab="Values",xaxt='n', lty=1)
legend('bottomright', c("Values"),pch=21, lty=1, cex=1)
axis(side=1, at= seq(10,90,5))

Answer 1

如果您只给出一个数字向量来绘制它“假设”，那么您打算使用该向量中值的位置或索引作为x值，因此绘制meanqual的绘图调用对{{1} }。如果你想根据后者在轴调用中使用的1:length(meanqual)参数进行绘图，你应该提供它（或者更确切地说是与seq() length相同的比例）到{{1 }}：

meanqual