对齐或缩放两个y轴：y1＆amp;的零值y2应与R完全相反

Question

加载样本数据并绘图：

x <- 1:5
y1 <- rnorm(5)
y2 <- rnorm(5,20)
par(mar=c(5,4,4,5)+.1)
plot(x,y1,type="l",col="red")
par(new=TRUE)
plot(x, y2,,type="l",col="blue",xaxt="n",yaxt="n",xlab="",ylab="")
axis(4)
mtext("y2",side=4,line=3)
legend("topleft",col=c("red","blue"),lty=1,legend=c("y1","y2"))`

以上代码将为您提供此图片

我坚持了什么？

我想对齐两个y轴，使y1和y2上的零值彼此相反。

有任何帮助吗？

如果您有任何问题或需要澄清，请与我们联系。谢谢！

Answer 1

下面列出的代码应该用于将两个y轴对齐到基线;然而，y1有奇怪的值而不是0（在某些图中#remember我正在绘制80个双y轴图），这将需要调整我的算法来设置y轴范围，但是否则图表似乎没问题。如果您发现原因或有任何澄清，请告诉我。

String input = "Hel!lo";

String result = input.codePoints()
                     .map( Character::toUpperCase )
                     .collect( StringBuilder::new,
                               StringBuilder::appendCodePoint,
                               StringBuilder::append )
                     .toString();

System.out.println(result);