79606277

Date: 2025-05-05 03:18:27
Score: 1.5
Natty:
Report link

Your desired result has no column names, which can't be done in a tibble, as far as I know. Also, do you really need the row names a, b, and c or will this do?

library(tidyverse) 
a <- c("Jan 2024", "212", "21000") 
b <- c("Feb 2024", 188, "22000") 
c <- c("Mar 2024", "166", "19000")  
df <- as.data.frame(rbind(a,b,c)) 
colnames(df) <- c("MthYr", "count", "MedianTAT") 
df 
#>      MthYr count MedianTAT 
#> a Jan 2024   212     21000 
#> b Feb 2024   188     22000 
#> c Mar 2024   166     19000 

df |> pivot_longer(cols=count:MedianTAT, names_to = "Quant") |>
    pivot_wider(names_from = MthYr, values_from = "value") 

#> # A tibble: 2 × 4 
#>   Quant     `Jan 2024` `Feb 2024` `Mar 2024` 
#>   <chr>     <chr>      <chr>      <chr>      
#> 1 count     212        188        166        
#> 2 MedianTAT 21000      22000      19000 
Reasons:
  • Long answer (-0.5):
  • Has code block (-0.5):
  • Ends in question mark (2):
  • Low reputation (0.5):
Posted by: FJCC