我要么似乎在绕圈子,要么我的数据有问题。我想绘制一些数据并用于?axis
修改 X 轴上的标签。
但是我有两个问题:
- 轴标签从 x 轴的中心开始,而不是在开头
- 轴标签与图中的数据点不匹配
我希望 X 轴标签的范围从 10 到 90 x 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))