ぐるぐる回っているように見えるか、データに問題があります。いくつかのデータをプロット?axisし、X 軸のラベルを変更するために使用したいと考えています。
ただし、次の 2 つの問題があります。
- 軸ラベルは、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))
