更改晶格图中y轴的比例格式

Question

大家好我正在制作一个带格子包的图形，它工作正常，但我的y轴格式有点问题。用于此图形的数据保存在a中，该列表包含四个数字变量和一个因子变量（最后一部分我添加了dput版本）。用于制作我的图表的代码是下一个：

library(lattice)
DD=barchart(a1 ~ a5,a)
DD

我用这段代码得到了这个图片：

在此图中，y轴的比例显示完整的数字，例如2000000,4000000等。我不知道是否可以创建一个函数或者任何选项来获取y轴中的值，就像这些2,000,000一样8000000。 dput()的{​​{1}}版本是下一个：

a

非常感谢你的帮助。

Answer 1

您可以指定自定义格式化程序，例如：

comma_fomatter <- function (lim, logsc = FALSE, at = NULL, ...) 
{
  ans <- yscale.components.default(lim = lim, logsc = logsc, 
                                   at = at, ...)
  xx = as.numeric(ans$left$labels$labels)
  ans$left$labels$labels <- formatC(xx, format="fg",big.mark = ",")
  ans
}

然后：

barchart(a1 ~ a5,xx, yscale.components =comma_fomatter )