cross table with percentages and significant differences

Question

I am trying to replicate this table in R, I did the above in Power Bi

try the following code because I have no idea where to start I have done everything but nothing works

library(expss)
as.datatable_widget(base %>%
                      group_by(CP1_TOTV2) %>%
                      summarize(weight = sum(weight)) %>%
                      tab_cells(weight / sum(weight)) %>%
                      tab_cols(total(), BANNER3) %>%
                      tab_stat_tpct(total_row_position = "above", total_label = "Total") %>% # aquí señalo los porcentajes total muestra
                      tab_pivot())

What I hope at the beginning is to form the same table and be able to add at the end a column that shows the significant differences between wave 2 and wave 3 per row, but I have not had any idea how to do it, I leave the data if you need to see how it is distributed Data in sheets

Answer 1

You might wanna look at data wrangling cheatsheet. To get the basics.

It's hard to match the picture exactly since I don't know where the variables exactly are. But going by your comment, OP @yefersonG, here is an example of summarizing CP1_TOTV2.

library(tidyverse)

df=read_csv("df.csv")

df=df%>%select(starts_with("CP1_TOTV"))


df |> 
  pivot_longer(everything(),names_to = "CP1_TOTV")|>
  group_by(CP1_TOTV)|>
  summarise(Freq=sum(value=="Yes"))|>
  mutate(Percentage=Freq/sum(Freq),
         Percentage=scales::percent(Percentage))