gglikert: Creates a plot for likert scale

In JWiley/JWileymisc: Miscellaneous Utilities and Functions

Creates a plot for likert scale

Description

Creates a plot for likert scale

Usage

gglikert(
  x,
  y,
  leftLab,
  rightLab,
  colour,
  data,
  xlim,
  title,
  shape = 18,
  size = 7
)

Arguments

x	Variable to plot on the x axis (the likert scale responses or averages)
y	The variable containing an index of the different items, should be integers
leftLab	The variable with anchors for the low end of the Likert scale
rightLab	The variable with anchors for the high end of the Likert scale
colour	A character string giving the name of a variable for colouring the data, like a grouping variable. Alternately the colour of points passed to geom_point
data	The data to use for plotting
xlim	A vector giving the lower an upper limit for the x axis. This should be the possible range of the Likert scale, not the actual range.
title	A character vector giving the title for the plot
shape	A number indicating the point shape, passed to geom_point
size	A number indicating the size of points, passed to geom_point

Examples

library(JWileymisc)
library(ggplot2)
library(ggpubr)
testdat <- data.table::data.table(
  Var = 1:4,
  Mean = c(1.5, 3, 2.2, 4.6),
  Low = c("Happy", "Peaceful", "Excited", "Content"),
  High = c("Sad", "Angry", "Hopeless", "Anxious"))

gglikert("Mean", "Var", "Low", "High", data = testdat, xlim = c(1, 5),
  title = "Example Plot of Average Affect Ratings")

testdat <- rbind(
  cbind(testdat, Group = "Young"),
  cbind(testdat, Group = "Old"))
testdat$Mean[5:8] <- c(1.7, 2.6, 2.0, 4.4)

gglikert("Mean", "Var", "Low", "High", colour = "Group",
  data = testdat, xlim = c(1, 5),
  title = "Example Plot of Average Affect Ratings")

gglikert("Mean", "Var", "Low", "High", colour = "Group",
  data = testdat, xlim = c(1, 5),
  title = "Example Plot of Average Affect Ratings") +
ggplot2::scale_colour_manual(values = c("Young" = "grey50", "Old" = "black"))

## clean up
rm(testdat)

JWiley/JWileymisc documentation built on Feb. 15, 2024, 12:23 p.m.