r - 如何获得点阵 xyplot 的 y 轴以将分数显示为百分比？

Question

我希望能够以百分比单位显示我的晶格 xyplot 的 y 轴(例如 0.45 = 45%)。

这是一个带有一些虚假工业过程产量数据的示例:

library(lattice)
set.seed(1234)
my.df <- data.frame(period=c(1:20),
                    n=floor(runif(n=20,min=40,max=80)),
                    d=rpois(n=20,lambda=5))
my.df$yield <- (my.df$n-my.df$d)/my.df$n
xyplot(yield~period,data=my.df)

我希望上面的 y 轴标签改为 80%、85%、90%、95%

我的 yield变量是表示为范围内的小数的分数 (0 <= yield <= 1)。
我不想对 data.frame 中的数据进行预处理(例如乘以 100)，我希望通过绘图操作来处理这个问题。

Answer 1

您可以向 yscale.components 提供一个函数xyplot 的参数(见 ?xyplot 和 ?xscale.components.default)。使用 sprintf()添加百分比符号，您可以在线执行 100 倍乘法。

xyplot(yield~period,data=my.df,
       yscale.components=function(...){
           yc <- yscale.components.default(...)
           yc$left$labels$labels <-
               sprintf("%s%%",yc$left$labels$at*100) ## convert to strings as pct
           return(yc) 
       })