How can i convert factor only column of Likert scale from long to wide using dplyr functions in R?

i have the following data frame in R with 3 factor column with the same levels like this :

and i want to use dplyr functions in order to alter my data frame into like this :

where the numbers on the cells are arbitrary.

A = sample(c('1-Strongly disagree','2-Disagree','3-so-so','4-Agree','5-Strongly agree'),1000,replace = TRUE)
B = sample(c('1-Strongly disagree','2-Disagree','3-so-so','4-Agree','5-Strongly agree'),1000,replace = TRUE)
C = sample(c('1-Strongly disagree','2-Disagree','3-so-so','4-Agree','5-Strongly agree'),1000,replace = TRUE)

df = tibble(A,B,C)%>%
  mutate(across(everything(),as.factor));df

library(tidyverse)
set.seed(1234) # for reproducible testing
A = sample(c('1-Strongly disagree','2-Disagree','3-so-so','4-Agree','5-Strongly agree'),1000,replace = TRUE)
B = sample(c('1-Strongly disagree','2-Disagree','3-so-so','4-Agree','5-Strongly agree'),1000,replace = TRUE)
C = sample(c('1-Strongly disagree','2-Disagree','3-so-so','4-Agree','5-Strongly agree'),1000,replace = TRUE)

df = tibble(A,B,C)%>%
  mutate(across(everything(),as.factor));df

df |> 
  pivot_longer(cols = everything(), names_to = "Item") |>
  pivot_wider(names_from = value, values_fn = length)

gives

# A tibble: 3 × 6
  Item  `4-Agree` `1-Strongly disagree` `2-Disagree` `5-Strongly agree` `3-so-so`
  <chr>     <int>                 <int>        <int>              <int>     <int>
1 A           194                   194          181                197       234
2 B           193                   195          194                219       199
3 C           201                   195          205                199       200