r - 如何修复 R 包 HH 中李克特数据的颜色？

Question

我想根据自己的选择分配颜色；

数据

resp <- data.frame(replicate(50, sample(1:7, 100, replace=TRUE)))
resp <- data.frame(lapply(resp, factor, ordered=TRUE, 
                levels=1:7, 
                labels=c("Missing","Not Applicable","Strongly disagree","Disagree", "Neutral","Agree","Strongly Agree")))

resp = t(apply(resp,2,table))[,levels(resp[,1])]

情节李克特

我不想使用diverge_hcl 或sequential_hcl。

library(HH)
myColor <- likertColor(nc=7, ReferenceZero=5)

plot.likert(resp,as.percent=TRUE,col=myColor)

我有两列额外命名为“缺失”和“不适用”。我需要一个与类别相关的配色方案，例如：-

• 缺失=“浅灰色”
• 不适用 = “灰色”
• 非常不同意=“红色”
• 不同意=“亮红色”
• 中性=“白色”或“黄色”
• 同意 = “浅蓝色”
• 强烈同意 = “蓝色”

是否有任何想法如何将上述配色方案应用于我的情节？

Answer 1

也可以在十六进制中使用 RGB：

plot.likert(resp,as.percent=TRUE,
            col=c("#E94E1B", "#F7AA4E", "#BEBEBE", "#6193CE", "#00508C"))

Answer 2

简单的答案是：

  myColor <- c("light gray","gray","blue","light blue","white","pink","red")
  plot.likert(resp,as.percent=TRUE,col=myColor)