r - 来自 sjPlot 的 plot_likert 函数的自定义调色板

Question

plot_likert我可以使用包中的函数绘制以下数据sjPlot R。

library(tidyverse)
df1 <-
  data.frame(
  matrix(
    data = sample(x = c("Strongly Disagree", "Disagree", "Neutral", "Agree", "Strongly Agree"), size = 500, replace = TRUE),
    ncol = 5
    )
  ) %>% 
  mutate_all(., ~ ordered(., levels = c("Strongly Disagree", "Disagree", "Neutral", "Agree", "Strongly Agree")))

df1
library(sjPlot)
plot_likert(
   items       = df1
  , cat.neutral = 3
  )

我想知道如何获得以下配色方案：

Strongly Disagree = Dark Red
Disagree          = Light Red
Neutral           = Gray
Agree             = Light Green
Strongly Agree    = Dark Green

Answer 1

您可以通过参数geom.colors和设置所需的颜色cat.neutral.color：

注意：由于 R 没有命名颜色lightred，所以我切换到firebrick1.

library(tidyverse)
library(sjPlot)

df1 <- data.frame(
    matrix(
      data = sample(x = c("Strongly Disagree", "Disagree", "Neutral", "Agree", "Strongly Agree"), size = 500, replace = TRUE),
      ncol = 5
    )
  ) %>% 
  mutate_all(., ~ ordered(., levels = c("Strongly Disagree", "Disagree", "Neutral", "Agree", "Strongly Agree")))

plot_likert(items = df1, cat.neutral = 3, 
            geom.colors = c("darkred", "firebrick1", "lightgreen", "darkgreen"),
            cat.neutral.color = "gray")