我希望能够以百分比单位显示我的晶格 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),我希望通过绘图操作来处理这个问题。
最佳答案
您可以向 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)
})
关于r - 如何获得点阵 xyplot 的 y 轴以将分数显示为百分比?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15664577/