如何将晶格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＆lt; = 1）。 我不想在data.frame中预处理数据（例如，乘以100），我希望通过绘图操作来处理它。

Answer 1

你可以为xyplot的yscale.components参数提供一个函数（参见?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) 
       })