0

考虑以下最小示例：

tab = structure(c(187, 189, 205, 167, 273, 275, 295, 231, 385, 575, 
409, 363, 899, 707, 751, 667, 2007, 1953, 2101, 2531, 1043, 1023, 
1071, 971, 385, 575, 409, 363, 181, 241, 157, 163, 123, 163, 
133, 131), .Dim = c(4L, 9L), .Dimnames = list(NULL, c("-4", "-3", 
"-2", "-1", "0", "1", "2", "3", "4")))

该矩阵tab包含 9 点李克特量表的计数。

一个基本的情节很容易产生：

    likert(tab,
           auto.key=list(between=0.5, between.columns=1),
           main="Attitudes",
           BrewerPaletteName="RdBu",as.percent=TRUE, rightAxisLabels=NULL, 
           rightAxis=NULL, ylab.right="")

它看起来不错。现在，问题：

  • 我想控制百分比轴的增量。在某些情况下，加上其他计数，它只显示 50%。我想强制执行 10% 的增量
  • 我想将 % 计数添加为标签。最重要的是 0 类。就像在 Excel 中一样，您可以右键单击并说“添加数据标签”。一定有类似的东西。

我也考虑过ggplot，但是，它不支持发散图。加上标签也相当混乱，尤其是对于 tikz 导出。

编辑 我尝试过使用 panel.text。但是，我仍然没有正确排列数字。

#does not work right!
trellis.focus("toplevel")
for(pp in 1:nrow(tab)){
panel.text(0.5, (pp/nrow(tab))*0.84+0.16, tab[pp,5], cex = 1, font = 2)
}
trellis.unfocus()

如何在每个条形图中找到正确的位置？

4

1 回答 1

2

要更改x轴值，您应该添加参数scales=并为轴添加at=参数x。

likert(tab,
       auto.key=list(between=0.5, between.columns=1),
       main="Attitudes",
       BrewerPaletteName="RdBu",as.percent=TRUE, rightAxisLabels=NULL, 
       rightAxis=NULL, ylab.right="",
       scales=list(
         x=list(
           at=seq(-50,50,10))))
于 2013-03-06T20:07:32.093 回答