gglikert in R with grouping facets
i have a data frame called df that has 4 columns:1st year and the rest 3 A,B,C having likert values.
set.seed(123)
likert_levels <- c(
"1" = "Very Dissatisfied",
"2" = "Dissatisfied",
"3" = "Neutral",
"4" = "Satisfied",
"5" = "Very Satisfied")
df = data.frame(
year = sample(c(2023, 2022, 2020, 2018), 50, replace = TRUE),
A = sample(likert_levels, 50, replace = TRUE),
B = sample(likert_levels, 50, replace = TRUE),
C = sample(likert_levels, 50, replace = TRUE))%>%
mutate(across(everything(),as.factor))%>%
as_tibble()%>%
mutate(across(-year, ~ factor(.x, levels = likert_levels)))
df
> df
# A tibble: 50 × 4
year A B C
<fct> <fct> <fct> <fct>
1 2020 "Very \n Satisfied" "Neutral" "Very \n Dissatisfied"
2 2022 "Satisfied" "Very \n Dissatisfied" "Dissatisfied"
3 2022 "Very \n Satisfied" "Very \n Satisfied" "Satisfied"
4 2022 "Dissatisfied" "Satisfied" "Very \n Dissatisfied"
5 2018 "Very \n Satisfied" "Neutral" "Neutral"
6 2018 "Satisfied" "Satisfied" "Neutral"
7 2018 "Very \n Dissatisfied" "Satisfied" "Very \n Satisfied"
8 2020 "Dissatisfied" "Satisfied" "Dissatisfied"
9 2022 "Dissatisfied" "Neutral" "Satisfied"
10 2018 "Dissatisfied" "Neutral" "Satisfied"
# ℹ 40 more rows
# ℹ Use `print(n = ...)` to see more rows
i want to plot this data frame with each facet to be each column name and the rows of each facet the year. How can i succeed this using gglikert() function from ggstats in R ?
i want to have something like this :
Solution
Your data has the year in one column but the gglikert function needs these to be columns in wide format. So it's just a matter of tidying your data:
mutate(df, id=row_number()) |>
pivot_longer(-c(id, year), names_to="group") |>
pivot_wider(names_from=year) |>
gglikert(c(`2023`, `2022`, `2020`, `2018`),
facet_rows=vars(group))
- grid.arrange's relative height argument didn't works well in RMarkdown
- How apply a function to every element of a matrix?
- Polar plot in R using ggplot2
- Find total length of time in multiple values of a dataset that overlaps with a given period of time
- Faster than R's `simplify2array`?
- What is the most simple way to label a data.table frequency chart in R?
- How to show dates in a secondary x-axis while the primary x-axis is numerical?
- online compiler for r-markdown document
- Unecessarily large column widths in HTML tables published by R Quarto when the table header contains special characters
- Bootstrapping a vector of results, by group in R
- Speeding Up Monte Carlo Simulations for Weather-Dependent Claims
- Is there an R class which allows to list 2 elements but shows only the first of them by default when called?
- Convert day of week number to weekday name in R
- How do you use "<<-" (scoping assignment) in R?
- Using reactivePoll to monitor and process file changes
- How to find out which graph is most similar to another graph?
- ggplot2: rectangular background behind axis text in circular bar plot
- How to simulate button click using rvest
- CMIP6, automating by month
- Covert dummy variables to single categorical in R?
- Animated reducing bar chart with gganimate
- Create an object class matrix/array from data frame
- How to add a vector of names to `sort_by()` in base R
- Among many subfolders, find CSVs starting with a given string and within ZIPs or not, and merge them while adding their names in a new column with R
- How to add a greek letter to an axis label to a 3D plot in plotly?
- bigrquery + dplyr error when using functions and sourcing from separate R script
- Shiny App Error: /v1/applications/ 400 - Validation Error Execution halted
- Rupee Unicode replacement not working in R
- Mutate multiple variable to create multiple new variables
- How to use the Stata equivalent of a foreach loop in R with mutate()