Presentation2.pptx Đại học Y Hà Nội 2024

Code thống kê

1. Hướng dẫn sử dụng một số package trong R

2. Quản lý dữ liệu Package questionr install.packages (" questionr ")

3. Sử dụng questionr questionr ::: irec () questionr ::: iorder () questionr ::: icut ()

4. Sử dụng questionr

5. Vẽ biểu đồ - esquisse install.packages ("esquisse") library(esquisse) esquisser ( huyetap )

6. package esquisse

7. gtsummary library( gtsummary ) library( gt ) library( dplyr )

8. Ví dụ trial %>% select( age, marker ) %>% tbl_summary ( statistic = all_continuous () ~ "{mean} ({ sd })" , missing = "no" ) %>% modify_header (stat_0 ~ "**Mean (SD)**" ) %>% add_ci ()

9. gtsummary

10. Ví dụ trial %>% select( trt , age, grade ) %>% tbl_summary ( by = trt , missing = "no" , statistic = all_continuous () ~ "{median} ({p25}, {p75})" ) %>% modify_header ( all_stat_cols () ~ "**{level}**< br >N = {n} ({ style_percent (p)}%)" ) %>% add_n () %>% bold_labels () %>% modify_spanning_header ( all_stat_cols () ~ "**Chemotherapy Treatment**" )

11. gtsummary

12. gtsummary trial %>% select( response, age, grade ) %>% tbl_uvregression ( method = glm , y = response, method.args = list( family = binomial), exponentiate = TRUE ) %>% add_nevent ()

13. gtsummary

14. moonBook library( moonBook ) data( acs ) mytable ( Dx ~ ., data = acs ) mytable ( ~ age + sex, data = acs ) mytable ( sex ~ height + weight + BMI, data = acs, method = 3 ) mytable ( am ~ carb, data = mtcars, max.ylev = 6 ) mytable ( obesity ~ HBP, data = acs, catMethod = 1 , show.all= TRUE )

15. Trân trọng cảm ơn [email protected]