将百分比符号添加到R likert图中的水平比例

# 安装和加载likert包
install.packages("likert")
library(likert)

# 创建一个示例数据集
data <- data.frame(
  Q1 = c(1, 2, 3, 4, 5),
  Q2 = c(5, 4, 3, 2, 1),
  Q3 = c(3, 3, 3, 3, 3)
)

# 创建likert对象
likert_data <- likert(data)

# 修改标签并添加百分比符号
likert_data <- likert_data %>%
  set_labels(
    Q1 = "Question 1",
    Q2 = "Question 2",
    Q3 = "Question 3"
  ) %>%
  label_wrap_mod(
    labels = c("Strongly Disagree", "Disagree", "Neutral", "Agree", "Strongly Agree"),
    sep = "\n"
  )

# 创建likert图
likert_plot <- plot(likert_data) +
  scale_x_continuous(labels = scales::percent)

# 显示likert图
likert_plot