我做了两次卡方检验，得到了不同的结果：
(1)gt摘要

table1_demographic_data <-
  subsetted.demographic %>%
  tbl_summary(by= post_covid_dic,
              missing = "no",
              missing_text= "NA",
              type= list(comorbid_HTN ~ "dichotomous"),
              statistic = list(
                all_continuous() ~ "{mean}?{sd}",
                all_categorical() ~ "{n} ({p}%)"), percent = "row") %>%
  add_p() %>%
  modify_header(label = "**Variable**", statistic ~ "**Test 
Statistic**") %>%
  modify_fmt_fun(statistic ~ style_sigfig) %>%
  bold_labels() %>%
  bold_p() %>%
  modify_caption("table 1: Demographic characteristics")

table1_demographic_data

x2=4.3 p=0.039
(2) chisquare.test

chisq.test(subsetted.demographic$post_covid_dic, 
subsetted.demographic$comorbid_HTN)

结果：x2=3.8076 p=0.05
谁能解释一下不同的结果？
谢谢