R中的HH程序包：likert图中键的边框

问题描述

我正在将一些李克特数据绘制为分散的堆叠条形图，但是我不知道如何在auto.key中的图例中的键周围绘制边框（显示每个李克特项目的颜色）； HH基于晶格，因此在实际图中围绕条形图绘制顺序没有问题（请参见下面的代码中的“＃

那么我该如何在HH包中的按键周围绘制（黑色）边框（或进行某种网格变通方法）？

与我使用的代码等效，其中HH示例中经常使用“ ProfChal”表中的数据：

data("ProfChal")
likert(Question ~ .,ProfChal[ProfChal$Subtable=="Employment sector",],ylab=NULL,main = "",auto.key = list(columns = 1,reverse.rows = T),as.percent = T,borders = list()) # <- This draws borders around the bars in the plot

此代码在下面进行绘制，但是我想在底部箭头所指的地方也有边框。 （在条形图键周围绘制边框似乎是晶格中的默认值...）

解决方法

我在HH-package documentation中偶然发现了上述问题的解决方案，这种情况说明了某些R包文档中缺乏读者友好性……

一个人可以在rect= list(col= col,border = "black"))内添加auto.key。但是，似乎必须明确指定按键的颜色。如果一个人只写border = "black"，则整个密钥将变成黑色...

请参见下面的代码中的解决方案。

 data("ProfChal")
 likert(Question ~ .,ProfChal[ProfChal$Subtable=="Employment sector",],ylab=NULL,main = "",col=c("#E94E1B","#F7AA4E","grey","#6193CE","#00508C"),# <- Specify colors (for bars in the plot)
       auto.key = list(columns = 1,reverse.rows = T,rect= list(col=c("#E94E1B",# <- Specify colors again (for keys)
                    border = "black")),# <- Adds border around the keys
       as.percent = T,borders = list())

上面的代码制作了下面的图（尽管除了原始图以外还有其他颜色）：