transfer from old repo

1 PA Decline/grouped table rows.qmd

@@ -0,0 +1,59 @@
+---
+title: "nicer tables"
+format: docx
+editor: visual
+---
+
+## Tables
+
+```{r}
+library(gtsummary)
+library(dplyr)
+packageVersion("gtsummary")
+
+trial%>%
+  select(age, stage, grade)%>%
+  tbl_summary()%>%
+  modify_table_body(
+    ~.x %>% 
+      
+      # add your variable
+      rbind(
+        tibble(
+          variable="Demographics",
+          var_type=NA,
+          var_label = "Demographics",
+          row_type="label",
+          label="Demographics",
+          stat_0= NA))%>% # expand the components of the tibble as needed if you have more columns
+      
+      # can add another one
+      rbind(
+        tibble(
+          variable="Tumor characteristics",
+          var_type=NA,
+          var_label = "Tumor characteristics",
+          row_type="label",
+          label="Tumor characteristics",
+          stat_0= NA))%>%  
+      
+      # specify the position you want these in
+      
+      arrange(factor(variable, levels=c("Demographics",
+                                        "age",
+                                        "Tumor characteristics",
+                                        "stage",
+                                        "grade"))))%>%
+  
+  # and you can then indent the actual variables
+  modify_column_indent(columns=label, rows=variable%in%c("age",
+                                                         "stage",
+                                                         "grade"))%>%
+  
+  # and double indent their levels
+  modify_column_indent(columns=label, rows= (variable%in%c("stage",
+                                                           "grade") 
+                                             & row_type=="level"),
+                       double_indent=T)
+
+```