R 绘图百分比误差

我试图在同一个图形中绘制3个轴相同的图形。 其中第一个“y值”以百分比表示。 其他2个是小数点，我正在尝试转换成百分比

我最初使用以下代码：

plot(timeSP500[(N+1):nSP500],sigmaSP500[(N+1):nSP500],type='l', ylim=c(0, 0.05))
par(new=TRUE)
plot(timeSP500[(N+1):nSP500],sqrt(EWSP500[(N+1):(nSP500)]),type='l')
par(new=TRUE)
plot(timeSP500[(N+1):nSP500],sqrt(UVdevSP500[(N+1):(nSP500)]),type='l')

输出没有问题，但这不是我想要的，因为对于第二个和第三个图形，它们是小数位，而不是百分比。所以我加入了百分比函数

plot(timeSP500[(N+1):nSP500],sigmaSP500[(N+1):nSP500],type='l', ylim=c(0, 0.05))
par(new=TRUE)
plot(timeSP500[(N+1):nSP500],percent(sqrt(EWSP500[(N+1):(nSP500)])),type='l')
par(new=TRUE)
plot(timeSP500[(N+1):nSP500],percent(sqrt(UVdevSP500[(N+1):(nSP500)])),type='l')

有了这个，我得到了错误

plot.window（…）中出错：需要有限的“ylim”值
此外：警告消息：
1：在xy.coords（x，y，xlabel，ylabel，log）中：强制引入的NAs
2：在min（x）中：min没有未丢失的参数；返回Inf
3:在max（x）中：max没有未丢失的参数；返回-Inf

---

这很奇怪，因为如果说我只输出

percent（sqrt（EWSP500[（N+1）：（nSP500）]）

，输出中似乎没有错误，但我不能像上面那样在图形中输出它。

请尝试提供一个值，可能通过使用

dput

或一些模拟数据。当您使用包中的函数时，指出使用了哪些软件包是有帮助的，例如

library（memisc）