R notebook table formatting

user_9894955 0
Viewed 239

I am using R notebook and I want to make a table.

r notebook screen or like this:

But when I 'Preview' it, I get this

|gender           | male                          | female                        |
| diabetes--------| Y-------------| N-------------| Y-------------| N-------------| 
| age group       | 0 | 1 | 2 | 3 | 0 | 1 | 2 | 3 | 0 | 1 | 2 | 3 | 0 | 1 | 2 | 3 |
|                 |               |               |               |               |
| None            | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 |
| R               | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 |
| I1              | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 |
| R-I1            | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 |
| I1-R            | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 |
| I1-I2           | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 |
| R-I1-I2         | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 |
| I1-R-I2         | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 |
| I1-I2-R         | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 | p0| p1| p2|p3 |

or like this.

could you help me to make a table that I would like to generate?

r-markdown r
1 Answers

You could try the kable package

library(tidyverse)
library(kableExtra)

df <- data.frame(
    matrix(c(
     "None","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3",
     "R","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3",
     "I1","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3",
     "R-I1","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3",
     "I1-R","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3",
     "I1-I2","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3",
     "R-I1-I2","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3",
     "I1-R-I2","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3",
     "I1-I2-R","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3","p0","p1","p2","p3"), 
    nrow = 9, byrow = TRUE), 
  stringsAsFactors = FALSE)

kable(df, col.names = rep("", ncol(df))) %>% 
  kable_styling() %>%
  add_header_above(c("age group" = 1,"0" = 1,"1" = 1,"2" = 1,"3" = 1,"0" = 1,"1" = 1,"2" = 1,"3" = 1,
                 "0" = 1,"1" = 1,"2" = 1,"3" = 1,"0" = 1,"1" = 1,"2" = 1,"3" = 1)) %>%
  add_header_above(c("diabetes" = 1, "Y" = 4, "N" = 4, "Y" = 4, "N" = 4)) %>%
  add_header_above(c("gender" = 1, "male" = 8, "female" = 8))
user_61487470
Related