主页 / coding / 问题 / 79224778
Accepted
Ogs
Asked: 2024-11-26 06:40:16 +0800 CST

HH::likert 函数中每个离散选项中的不同模式

  • 772

我想使用 HH 包创建一个李克特图，该图结合了每个条形类别中的视觉模式（例如阴影），以提高色盲用户的可访问性。

显然，对于客户来说，仅有灰度或其他适合色盲的颜色是不够的。

每个条形图的不同类别（例如非常高兴、高兴、既不高兴也不悲伤、悲伤、非常悲伤）除了不同的颜色外，还必须包含一些图案或其他视觉区别（例如符号）。

这是一个可重现的例子：

样本数据：

## Dataframe with the necessary variables
df <- data.frame(institutt = c("institutt1", "institutt2"), 
                 Spørsmål = c("q1", "q1"), 
                 Veryhappy = c(3, 5), 
                 Happy = c(2, 4),
                 Neithernor = c(3, 2), 
                 Sad = c(4, 3), 
                 Verysad = c(5, 2))

起始情节：

install.packages("HH")
library(HH)
likert_plot <- df %>%  
    likert(grouping = df$institutt,
           as.percentage = TRUE)

这将产生：

这个数字

我如何在“非常高兴”、“高兴”等类别中添加线条、十字或符号来区分它们？

1 个回答

  1. Best Answer

    尽管“HH”包可以毫不费力地生成漂亮的李克特图，但它是一个相当古老的包（目前至少有 18 年的历史了），并且使用了网格图形系统，该系统本身不支持图案填充。网格图形中的绘图方法绘制图形对象而不将它们返回给用户。这意味着我们无法使用底层图形系统中开发的新功能grid来修改输出。

    虽然捕获和修改输出并非不可能，但它很困难且复杂。当然，切换到替代系统（例如带有 ggpattern 的 ggplot）要容易得多：

    library(tidyverse)
library(ggpattern)

df %>%
  pivot_longer(-c(1:2), names_to = "level") %>%
  mutate(level = fct_inorder(level)) %>%
  group_by(institutt, Spørsmål) %>%
  mutate(left = cumsum(lag(value, 1, 0)), right = left + value) %>%
  mutate(xmin = left - (left + right)[level == "Neithernor"]/2) %>%
  mutate(xmax = xmin + value) %>%
  ungroup() %>%
  mutate(ymin = as.numeric(factor(institutt)) - 0.3) %>%
  mutate(ymax = ymin + 0.6) %>%
  ggplot(aes(fill = level, pattern = level, pattern_angle = level)) +
  geom_vline(xintercept = 0, linetype = 2) +
  geom_rect_pattern(aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax),
                    pattern_color = NA, pattern_fill = "white",
                    pattern_spacing = 0.02) +
  scale_fill_manual(values = c("#e16a86", "#e79aa9", "#e2e2e2",
                               "#a2ace5", "#768be6")) +
  scale_pattern_manual(values = c("none", "stripe", "crosshatch", "stripe",
                                  "circle")) +
  scale_y_reverse(limits = c(2.5, 0.5), breaks = 1:2,
                  labels = levels(factor(df$institutt))) +
  scale_pattern_angle_manual(values = c(45, 90, 45, 45, 0)) +
  theme_classic(20) +
  theme(legend.position = "bottom", 
        panel.background = element_rect(color = "black"),
        axis.line = element_blank(),
        legend.key.size = unit(10, "mm"))

    在此处输入图片描述

    • 3

相关问题