diff --git a/README.md b/README.md index 6be263f..6f593dd 100644 --- a/README.md +++ b/README.md @@ -57,6 +57,25 @@ Sumário das estatísticas descritivas das variáveis. [comorb-pdf]: resultados/comorbidades.pdf?raw=true [comorb-docx]: resultados/comorbidades.docx?raw=true +### Tabelas de associação ### + +As tabelas abaixo associam variáveis categóricas, e estão disponíveis em PDF, DOCX e CSV. +Os arquivos CSV podem ser abertos diretamente no Excel, formatados e posteriormente colados no Word. + +**Provisoriamente os arquivos podem ser salvos a partir de [resultados][]** + +[resultados]: resultados/ + +- Medicamentos x Sexo (PDF, DOCX, CSV) +- Centros x medicamento + - Dabigatrana (PDF, DOCX, CSV) + - Enoxaparina (PDF, DOCX, CSV) + - Rivaroxabana (PDF, DOCX, CSV) + - Warfarina (PDF, DOCX, CSV) +- Centros x TEP (PDF, DOCX, CSV) +- Centros x SPT (PDF, DOCX, CSV) +- Centros x TVP Previa (PDF, DOCX, CSV) + ### Figuras ### Figuras descritivas das variáveis. diff --git a/graficos/centros.png b/graficos/centros.png index 1675ff0..ce31af5 100644 Binary files a/graficos/centros.png and b/graficos/centros.png differ diff --git a/graficos/comorbidades.png b/graficos/comorbidades.png index cf0216b..dc58e70 100644 Binary files a/graficos/comorbidades.png and b/graficos/comorbidades.png differ diff --git a/graficos/medicamentos.png b/graficos/medicamentos.png index 715e2df..15ffa82 100644 Binary files a/graficos/medicamentos.png and b/graficos/medicamentos.png differ diff --git a/relatorio/analise_dados_VC_2016.Rmd b/relatorio/analise_dados_VC_2016.Rmd index fb5cc9d..09232e9 100644 --- a/relatorio/analise_dados_VC_2016.Rmd +++ b/relatorio/analise_dados_VC_2016.Rmd @@ -63,7 +63,7 @@ A descrição dos dados não críticos ao atendimento dos objetivos deste estudo **Critérios de exclusão** -Após o levantamento dos pacientes com diagnóstico positivo para TVP (N original `r N.orig`), foram excluídos `r profilaxia.incompleta` pacientes com informações incompletas de profilaxia medicamentosa e `r profilaxia.neg` pacientes que não fizeram uso de nenhum dos medicamentos aqui estudados. Também foram encontrados `r length(Pront.dup)` prontuários com múltiplas ocorrências no período de 5 anos do estudo. Por este motivo foram excluídas `r N.dup` entradas duplicadas, preservando apenas a primeira ocorrência de cada paciente. +Após o levantamento dos pacientes com diagnóstico positivo para TVP (N original `r N.orig`), foram encontrados `r length(Pront.dup)` prontuários com múltiplas ocorrências no período de 5 anos do estudo. Por este motivo foram excluídas `r N.dup` entradas duplicadas, preservando apenas a primeira ocorrência de cada paciente. **dados faltantes** diff --git a/relatorio/analise_dados_VC_2016.md b/relatorio/analise_dados_VC_2016.md index f9e4f86..be08a38 100644 --- a/relatorio/analise_dados_VC_2016.md +++ b/relatorio/analise_dados_VC_2016.md @@ -31,23 +31,23 @@ A descrição dos dados não críticos ao atendimento dos objetivos deste estudo **Critérios de exclusão** -Após o levantamento dos pacientes com diagnóstico positivo para TVP (N original 493), foram excluídos 49 pacientes com informações incompletas de profilaxia medicamentosa e 36 pacientes que não fizeram uso de nenhum dos medicamentos aqui estudados. Também foram encontrados 49 prontuários com múltiplas ocorrências no período de 5 anos do estudo. Por este motivo foram excluídas 57 entradas duplicadas, preservando apenas a primeira ocorrência de cada paciente. +Após o levantamento dos pacientes com diagnóstico positivo para TVP (N original 493), foram encontrados 58 prontuários com múltiplas ocorrências no período de 5 anos do estudo. Por este motivo foram excluídas 67 entradas duplicadas, preservando apenas a primeira ocorrência de cada paciente. **dados faltantes** -42 pacientes não tiveram o IMC calculado devido à ausência de dados de altura, peso ou ambos. 1 pacientes não tinham informação sobre TEP. Não foi encontrada informação sobre a comorbidade Cardiopatia para 53 pacientes. +63 pacientes não tiveram o IMC calculado devido à ausência de dados de altura, peso ou ambos. 2 pacientes não tinham informação sobre TEP. Não foi encontrada informação sobre a comorbidade Cardiopatia para 88 pacientes. -Após a aplicação dos critérios de inclusão e exclusão foram obtidas informações de 365 pacientes para este estudo. +Após a aplicação dos critérios de inclusão e exclusão foram obtidas informações de 426 pacientes para este estudo. **5.1.1 Pacientes com Tromboembolismo Venoso** -No período de 2010 até 2014 foram diagnosticados pelo ecodoppler 365 pacientes com TVP. Destes 7 (1.9%) pacientes apresentaram concomitante TEP, 40 (11.0%) pacientes desenvolveram síndrome pós- trombótica e 43 (11.8%) apresentaram TVP prévia a cirurgia. A idade média (±DP) dos pacientes foi 63.6 (±16.0) anos. A média (±DP) do IMC foi de 28.4 (±6.2) e os centros que apresentaram maior percentual de tromboembolismo venoso foram o Centro de Atenção Especializada (CAE) do joelho, do quadril e do trauma (81.9%). +No período de 2010 até 2014 foram diagnosticados pelo ecodoppler 426 pacientes com TVP. Destes 8 (1.9%) pacientes apresentaram concomitante TEP, 54 (12.7%) pacientes desenvolveram síndrome pós- trombótica e 62 (14.6%) apresentaram TVP prévia a cirurgia. A idade média (±DP) dos pacientes foi 63.4 (±15.8) anos. A média (±DP) do IMC foi de 28.7 (±6.4) e os centros que apresentaram maior percentual de tromboembolismo venoso foram o Centro de Atenção Especializada (CAE) do joelho, do quadril e do trauma (81.9%). **5.1.1.1 Medidas Preventivas Medicamentosas e Não Medicamentosas** -Todos os pacientes que foram submetidos à cirurgia ortopédica de grande porte (ATQ, ATJ, Coluna e Trauma do Fêmur), receberam profilaxia medicamentosa. A heparina de baixo peso molecular, foi prescrita para 357 (97.8%) pacientes, a Rivaroxabana para 87 (23.8%) , a Dabigatrana para 5 (1.4%) pacientes e a varfarina para 202 (55.3%). Sendo que alguns pacientes no período da hospitalização foi prescrita HBPM e na alta hospitalar a varfarina ou rivaroxabana de acordo com avaliação do clínico ou do cirurgião vascular. A profilaxia não medicamentosa utilizada é o dispositivo de compressão pneumática: no Centro de Terapia Intensiva (CTI), após o procedimento cirúrgico nos paciente que foram submetidos à artrodese de coluna e para outras cirurgias ortopédicas com prescrição do intensivistas e nas enfermarias após avaliação do clinico. +Todos os pacientes que foram submetidos à cirurgia ortopédica de grande porte (ATQ, ATJ, Coluna e Trauma do Fêmur), receberam profilaxia medicamentosa. A heparina de baixo peso molecular, foi prescrita para 384 (90.1%) pacientes, a Rivaroxabana para 87 (20.4%) , a Dabigatrana para 5 (1.2%) pacientes e a varfarina para 196 (46.0%). Sendo que alguns pacientes no período da hospitalização foi prescrita HBPM e na alta hospitalar a varfarina ou rivaroxabana de acordo com avaliação do clínico ou do cirurgião vascular. A profilaxia não medicamentosa utilizada é o dispositivo de compressão pneumática: no Centro de Terapia Intensiva (CTI), após o procedimento cirúrgico nos paciente que foram submetidos à artrodese de coluna e para outras cirurgias ortopédicas com prescrição do intensivistas e nas enfermarias após avaliação do clinico. **5.1.1.1.1 Comorbidades** -Nos pacientes que apresentaram tromboembolismo venoso sintomático, 198 (54.2%) dos pacientes apresentaram hipertensão arterial, 2 (0.5%) Doença Reumática, em 12 (3.3%) a Artrite Reumatoide, em 10 (2.7%) AVC, em 39 (10.7%) Diabetes Mellitus e em 13 (3.6%) Cardiopatia. +Nos pacientes que apresentaram tromboembolismo venoso sintomático, 224 (52.6%) dos pacientes apresentaram hipertensão arterial, 3 (0.7%) Doença Reumática, em 15 (3.5%) a Artrite Reumatoide, em 12 (2.8%) AVC, em 44 (10.3%) Diabetes Mellitus e em 15 (3.5%) Cardiopatia. diff --git a/resultados/centro.spt.csv b/resultados/centro.spt.csv new file mode 100644 index 0000000..398f18a --- /dev/null +++ b/resultados/centro.spt.csv @@ -0,0 +1,16 @@ +"";"NÃO";"SIM";"p";"test" +"n";"372";"54";"";"" +"Grupo (%)";"";"";" NA";"exact" +" CIRURGIA VASCULAR";" 1 ( 0.3) ";" 0 ( 0.0) ";"";"" +" COLUNA";" 20 ( 5.4) ";" 1 ( 1.9) ";"";"" +" CRANIO MAXILO-FACIAL";" 1 ( 0.3) ";" 1 ( 1.9) ";"";"" +" JOELHO";"138 (37.1) ";"16 (29.6) ";"";"" +" MÃO";" 4 ( 1.1) ";" 1 ( 1.9) ";"";"" +" MICROCIRURGIA";" 1 ( 0.3) ";" 2 ( 3.7) ";"";"" +" OMBRO";" 2 ( 0.5) ";" 1 ( 1.9) ";"";"" +" PÉ";" 20 ( 5.4) ";" 3 ( 5.6) ";"";"" +" PESQUISA CLINICA";" 2 ( 0.5) ";" 0 ( 0.0) ";"";"" +" QUADRIL";" 76 (20.4) ";"12 (22.2) ";"";"" +" REUMATOLOGIA";" 1 ( 0.3) ";" 0 ( 0.0) ";"";"" +" TRAUMA";" 93 (25.0) ";"14 (25.9) ";"";"" +" TUMOR";" 13 ( 3.5) ";" 3 ( 5.6) ";"";"" diff --git a/resultados/centro.spt.docx b/resultados/centro.spt.docx new file mode 100644 index 0000000..2317eca Binary files /dev/null and b/resultados/centro.spt.docx differ diff --git a/resultados/centro.spt.md b/resultados/centro.spt.md new file mode 100644 index 0000000..dad90e7 --- /dev/null +++ b/resultados/centro.spt.md @@ -0,0 +1,20 @@ + + +|   | NÃO | SIM | p | test | +|:--------------------------:|:----------:|:---------:|:---:|:------:| +| **n** | 372 | 54 | | | +| **Grupo (%)** | | | NA | exact | +| **CIRURGIA VASCULAR** | 1 ( 0.3) | 0 ( 0.0) | | | +| **COLUNA** | 20 ( 5.4) | 1 ( 1.9) | | | +| **CRANIO MAXILO-FACIAL** | 1 ( 0.3) | 1 ( 1.9) | | | +| **JOELHO** | 138 (37.1) | 16 (29.6) | | | +| **MÃO** | 4 ( 1.1) | 1 ( 1.9) | | | +| **MICROCIRURGIA** | 1 ( 0.3) | 2 ( 3.7) | | | +| **OMBRO** | 2 ( 0.5) | 1 ( 1.9) | | | +| **PÉ** | 20 ( 5.4) | 3 ( 5.6) | | | +| **PESQUISA CLINICA** | 2 ( 0.5) | 0 ( 0.0) | | | +| **QUADRIL** | 76 (20.4) | 12 (22.2) | | | +| **REUMATOLOGIA** | 1 ( 0.3) | 0 ( 0.0) | | | +| **TRAUMA** | 93 (25.0) | 14 (25.9) | | | +| **TUMOR** | 13 ( 3.5) | 3 ( 5.6) | | | + diff --git a/resultados/centro.spt.pdf b/resultados/centro.spt.pdf new file mode 100644 index 0000000..d10b488 Binary files /dev/null and b/resultados/centro.spt.pdf differ diff --git a/resultados/centro.tep.csv b/resultados/centro.tep.csv new file mode 100644 index 0000000..ba63339 --- /dev/null +++ b/resultados/centro.tep.csv @@ -0,0 +1,16 @@ +"";"NÃO";"SIM";"p";"test" +"n";"416";"8";"";"" +"Grupo (%)";"";"";" 0.054";"exact" +" CIRURGIA VASCULAR";" 1 ( 0.2) ";"0 ( 0.0) ";"";"" +" COLUNA";" 21 ( 5.0) ";"0 ( 0.0) ";"";"" +" CRANIO MAXILO-FACIAL";" 2 ( 0.5) ";"0 ( 0.0) ";"";"" +" JOELHO";"154 (37.0) ";"0 ( 0.0) ";"";"" +" MÃO";" 5 ( 1.2) ";"0 ( 0.0) ";"";"" +" MICROCIRURGIA";" 3 ( 0.7) ";"0 ( 0.0) ";"";"" +" OMBRO";" 2 ( 0.5) ";"1 (12.5) ";"";"" +" PÉ";" 22 ( 5.3) ";"0 ( 0.0) ";"";"" +" PESQUISA CLINICA";" 2 ( 0.5) ";"0 ( 0.0) ";"";"" +" QUADRIL";" 85 (20.4) ";"2 (25.0) ";"";"" +" REUMATOLOGIA";" 1 ( 0.2) ";"0 ( 0.0) ";"";"" +" TRAUMA";"103 (24.8) ";"4 (50.0) ";"";"" +" TUMOR";" 15 ( 3.6) ";"1 (12.5) ";"";"" diff --git a/resultados/centro.tep.docx b/resultados/centro.tep.docx new file mode 100644 index 0000000..b02c99b Binary files /dev/null and b/resultados/centro.tep.docx differ diff --git a/resultados/centro.tep.md b/resultados/centro.tep.md new file mode 100644 index 0000000..b9fbb32 --- /dev/null +++ b/resultados/centro.tep.md @@ -0,0 +1,20 @@ + + +|   | NÃO | SIM | p | test | +|:--------------------------:|:----------:|:--------:|:-----:|:------:| +| **n** | 416 | 8 | | | +| **Grupo (%)** | | | 0.054 | exact | +| **CIRURGIA VASCULAR** | 1 ( 0.2) | 0 ( 0.0) | | | +| **COLUNA** | 21 ( 5.0) | 0 ( 0.0) | | | +| **CRANIO MAXILO-FACIAL** | 2 ( 0.5) | 0 ( 0.0) | | | +| **JOELHO** | 154 (37.0) | 0 ( 0.0) | | | +| **MÃO** | 5 ( 1.2) | 0 ( 0.0) | | | +| **MICROCIRURGIA** | 3 ( 0.7) | 0 ( 0.0) | | | +| **OMBRO** | 2 ( 0.5) | 1 (12.5) | | | +| **PÉ** | 22 ( 5.3) | 0 ( 0.0) | | | +| **PESQUISA CLINICA** | 2 ( 0.5) | 0 ( 0.0) | | | +| **QUADRIL** | 85 (20.4) | 2 (25.0) | | | +| **REUMATOLOGIA** | 1 ( 0.2) | 0 ( 0.0) | | | +| **TRAUMA** | 103 (24.8) | 4 (50.0) | | | +| **TUMOR** | 15 ( 3.6) | 1 (12.5) | | | + diff --git a/resultados/centro.tep.pdf b/resultados/centro.tep.pdf new file mode 100644 index 0000000..16852a8 Binary files /dev/null and b/resultados/centro.tep.pdf differ diff --git a/resultados/centro.tvpp.csv b/resultados/centro.tvpp.csv new file mode 100644 index 0000000..9ef9721 --- /dev/null +++ b/resultados/centro.tvpp.csv @@ -0,0 +1,16 @@ +"";"NÃO";"SIM";"p";"test" +"n";"361";"62";"";"" +"Grupo (%)";"";"";" NA";"exact" +" CIRURGIA VASCULAR";" 1 ( 0.3) ";" 0 ( 0.0) ";"";"" +" COLUNA";" 16 ( 4.4) ";" 5 ( 8.1) ";"";"" +" CRANIO MAXILO-FACIAL";" 1 ( 0.3) ";" 1 ( 1.6) ";"";"" +" JOELHO";"134 (37.1) ";"20 (32.3) ";"";"" +" MÃO";" 4 ( 1.1) ";" 1 ( 1.6) ";"";"" +" MICROCIRURGIA";" 3 ( 0.8) ";" 0 ( 0.0) ";"";"" +" OMBRO";" 2 ( 0.6) ";" 1 ( 1.6) ";"";"" +" PÉ";" 19 ( 5.3) ";" 3 ( 4.8) ";"";"" +" PESQUISA CLINICA";" 2 ( 0.6) ";" 0 ( 0.0) ";"";"" +" QUADRIL";" 75 (20.8) ";"12 (19.4) ";"";"" +" REUMATOLOGIA";" 0 ( 0.0) ";" 1 ( 1.6) ";"";"" +" TRAUMA";" 91 (25.2) ";"15 (24.2) ";"";"" +" TUMOR";" 13 ( 3.6) ";" 3 ( 4.8) ";"";"" diff --git a/resultados/centro.tvpp.docx b/resultados/centro.tvpp.docx new file mode 100644 index 0000000..80aaa28 Binary files /dev/null and b/resultados/centro.tvpp.docx differ diff --git a/resultados/centro.tvpp.md b/resultados/centro.tvpp.md new file mode 100644 index 0000000..30b452a --- /dev/null +++ b/resultados/centro.tvpp.md @@ -0,0 +1,20 @@ + + +|   | NÃO | SIM | p | test | +|:--------------------------:|:----------:|:---------:|:---:|:------:| +| **n** | 361 | 62 | | | +| **Grupo (%)** | | | NA | exact | +| **CIRURGIA VASCULAR** | 1 ( 0.3) | 0 ( 0.0) | | | +| **COLUNA** | 16 ( 4.4) | 5 ( 8.1) | | | +| **CRANIO MAXILO-FACIAL** | 1 ( 0.3) | 1 ( 1.6) | | | +| **JOELHO** | 134 (37.1) | 20 (32.3) | | | +| **MÃO** | 4 ( 1.1) | 1 ( 1.6) | | | +| **MICROCIRURGIA** | 3 ( 0.8) | 0 ( 0.0) | | | +| **OMBRO** | 2 ( 0.6) | 1 ( 1.6) | | | +| **PÉ** | 19 ( 5.3) | 3 ( 4.8) | | | +| **PESQUISA CLINICA** | 2 ( 0.6) | 0 ( 0.0) | | | +| **QUADRIL** | 75 (20.8) | 12 (19.4) | | | +| **REUMATOLOGIA** | 0 ( 0.0) | 1 ( 1.6) | | | +| **TRAUMA** | 91 (25.2) | 15 (24.2) | | | +| **TUMOR** | 13 ( 3.6) | 3 ( 4.8) | | | + diff --git a/resultados/centro.tvpp.pdf b/resultados/centro.tvpp.pdf new file mode 100644 index 0000000..b8ee562 Binary files /dev/null and b/resultados/centro.tvpp.pdf differ diff --git a/resultados/centros.dabi.csv b/resultados/centros.dabi.csv new file mode 100644 index 0000000..c75a91c --- /dev/null +++ b/resultados/centros.dabi.csv @@ -0,0 +1,16 @@ +"";"NÃO";"SIM";"p";"test" +"n";"409";"5";"";"" +"Grupo (%)";"";"";" 0.664";"exact" +" CIRURGIA VASCULAR";" 1 ( 0.2) ";"0 ( 0.0) ";"";"" +" COLUNA";" 20 ( 4.9) ";"0 ( 0.0) ";"";"" +" CRANIO MAXILO-FACIAL";" 2 ( 0.5) ";"0 ( 0.0) ";"";"" +" JOELHO";"145 (35.5) ";"4 (80.0) ";"";"" +" MÃO";" 4 ( 1.0) ";"0 ( 0.0) ";"";"" +" MICROCIRURGIA";" 3 ( 0.7) ";"0 ( 0.0) ";"";"" +" OMBRO";" 3 ( 0.7) ";"0 ( 0.0) ";"";"" +" PÉ";" 21 ( 5.1) ";"0 ( 0.0) ";"";"" +" PESQUISA CLINICA";" 2 ( 0.5) ";"0 ( 0.0) ";"";"" +" QUADRIL";" 86 (21.0) ";"1 (20.0) ";"";"" +" REUMATOLOGIA";" 1 ( 0.2) ";"0 ( 0.0) ";"";"" +" TRAUMA";"105 (25.7) ";"0 ( 0.0) ";"";"" +" TUMOR";" 16 ( 3.9) ";"0 ( 0.0) ";"";"" diff --git a/resultados/centros.dabi.docx b/resultados/centros.dabi.docx new file mode 100644 index 0000000..83bd1a2 Binary files /dev/null and b/resultados/centros.dabi.docx differ diff --git a/resultados/centros.dabi.md b/resultados/centros.dabi.md new file mode 100644 index 0000000..4ea6266 --- /dev/null +++ b/resultados/centros.dabi.md @@ -0,0 +1,20 @@ + + +|   | NÃO | SIM | p | test | +|:--------------------------:|:----------:|:--------:|:-----:|:------:| +| **n** | 409 | 5 | | | +| **Grupo (%)** | | | 0.664 | exact | +| **CIRURGIA VASCULAR** | 1 ( 0.2) | 0 ( 0.0) | | | +| **COLUNA** | 20 ( 4.9) | 0 ( 0.0) | | | +| **CRANIO MAXILO-FACIAL** | 2 ( 0.5) | 0 ( 0.0) | | | +| **JOELHO** | 145 (35.5) | 4 (80.0) | | | +| **MÃO** | 4 ( 1.0) | 0 ( 0.0) | | | +| **MICROCIRURGIA** | 3 ( 0.7) | 0 ( 0.0) | | | +| **OMBRO** | 3 ( 0.7) | 0 ( 0.0) | | | +| **PÉ** | 21 ( 5.1) | 0 ( 0.0) | | | +| **PESQUISA CLINICA** | 2 ( 0.5) | 0 ( 0.0) | | | +| **QUADRIL** | 86 (21.0) | 1 (20.0) | | | +| **REUMATOLOGIA** | 1 ( 0.2) | 0 ( 0.0) | | | +| **TRAUMA** | 105 (25.7) | 0 ( 0.0) | | | +| **TUMOR** | 16 ( 3.9) | 0 ( 0.0) | | | + diff --git a/resultados/centros.dabi.pdf b/resultados/centros.dabi.pdf new file mode 100644 index 0000000..b83aaa3 Binary files /dev/null and b/resultados/centros.dabi.pdf differ diff --git a/resultados/centros.docx b/resultados/centros.docx index b063305..386d344 100644 Binary files a/resultados/centros.docx and b/resultados/centros.docx differ diff --git a/resultados/centros.enoxa.csv b/resultados/centros.enoxa.csv new file mode 100644 index 0000000..c70e9f1 --- /dev/null +++ b/resultados/centros.enoxa.csv @@ -0,0 +1,16 @@ +"";"NÃO";"SIM";"p";"test" +"n";"28";"384";"";"" +"Grupo (%)";"";"";" 0.169";"exact" +" CIRURGIA VASCULAR";" 0 ( 0.0) ";" 1 ( 0.3) ";"";"" +" COLUNA";" 2 ( 7.1) ";" 18 ( 4.7) ";"";"" +" CRANIO MAXILO-FACIAL";" 0 ( 0.0) ";" 2 ( 0.5) ";"";"" +" JOELHO";"14 (50.0) ";"134 (34.9) ";"";"" +" MÃO";" 1 ( 3.6) ";" 2 ( 0.5) ";"";"" +" MICROCIRURGIA";" 0 ( 0.0) ";" 3 ( 0.8) ";"";"" +" OMBRO";" 0 ( 0.0) ";" 3 ( 0.8) ";"";"" +" PÉ";" 3 (10.7) ";" 18 ( 4.7) ";"";"" +" PESQUISA CLINICA";" 0 ( 0.0) ";" 2 ( 0.5) ";"";"" +" QUADRIL";" 6 (21.4) ";" 81 (21.1) ";"";"" +" REUMATOLOGIA";" 0 ( 0.0) ";" 1 ( 0.3) ";"";"" +" TRAUMA";" 2 ( 7.1) ";"103 (26.8) ";"";"" +" TUMOR";" 0 ( 0.0) ";" 16 ( 4.2) ";"";"" diff --git a/resultados/centros.enoxa.docx b/resultados/centros.enoxa.docx new file mode 100644 index 0000000..11080f4 Binary files /dev/null and b/resultados/centros.enoxa.docx differ diff --git a/resultados/centros.enoxa.md b/resultados/centros.enoxa.md new file mode 100644 index 0000000..b1ad7ec --- /dev/null +++ b/resultados/centros.enoxa.md @@ -0,0 +1,20 @@ + + +|   | NÃO | SIM | p | test | +|:--------------------------:|:---------:|:----------:|:-----:|:------:| +| **n** | 28 | 384 | | | +| **Grupo (%)** | | | 0.169 | exact | +| **CIRURGIA VASCULAR** | 0 ( 0.0) | 1 ( 0.3) | | | +| **COLUNA** | 2 ( 7.1) | 18 ( 4.7) | | | +| **CRANIO MAXILO-FACIAL** | 0 ( 0.0) | 2 ( 0.5) | | | +| **JOELHO** | 14 (50.0) | 134 (34.9) | | | +| **MÃO** | 1 ( 3.6) | 2 ( 0.5) | | | +| **MICROCIRURGIA** | 0 ( 0.0) | 3 ( 0.8) | | | +| **OMBRO** | 0 ( 0.0) | 3 ( 0.8) | | | +| **PÉ** | 3 (10.7) | 18 ( 4.7) | | | +| **PESQUISA CLINICA** | 0 ( 0.0) | 2 ( 0.5) | | | +| **QUADRIL** | 6 (21.4) | 81 (21.1) | | | +| **REUMATOLOGIA** | 0 ( 0.0) | 1 ( 0.3) | | | +| **TRAUMA** | 2 ( 7.1) | 103 (26.8) | | | +| **TUMOR** | 0 ( 0.0) | 16 ( 4.2) | | | + diff --git a/resultados/centros.enoxa.pdf b/resultados/centros.enoxa.pdf new file mode 100644 index 0000000..d4439e1 Binary files /dev/null and b/resultados/centros.enoxa.pdf differ diff --git a/resultados/centros.md b/resultados/centros.md index bbacbb1..c95d5b8 100644 --- a/resultados/centros.md +++ b/resultados/centros.md @@ -1,19 +1,20 @@ -|   | Categoria | Quantidade | -|:---------------:|:--------------------:|:----------:| -| **n** | | 365 | -| **Grupo (%)** | CIRURGIA VASCULAR | 1 ( 0.3) | -| | COLUNA | 19 ( 5.2) | -| | CRANIO MAXILO-FACIAL | 2 ( 0.5) | -| | JOELHO | 124 (34.0) | -| | MÃO | 2 ( 0.5) | -| | MICROCIRURGIA | 2 ( 0.5) | -| | OMBRO | 3 ( 0.8) | -| | PÉ | 18 ( 4.9) | -| | PESQUISA CLINICA | 2 ( 0.5) | -| | QUADRIL | 77 (21.1) | -| | REUMATOLOGIA | 1 ( 0.3) | -| | TRAUMA | 98 (26.8) | -| | TUMOR | 16 ( 4.4) | +|   | Quantidade | +|:--------------------------:|:----------:| +| **n** | 426 | +| **Grupo (%)** | | +| **CIRURGIA VASCULAR** | 1 ( 0.2) | +| **COLUNA** | 21 ( 4.9) | +| **CRANIO MAXILO-FACIAL** | 2 ( 0.5) | +| **JOELHO** | 154 (36.2) | +| **MÃO** | 5 ( 1.2) | +| **MICROCIRURGIA** | 3 ( 0.7) | +| **OMBRO** | 3 ( 0.7) | +| **PÉ** | 23 ( 5.4) | +| **PESQUISA CLINICA** | 2 ( 0.5) | +| **QUADRIL** | 88 (20.7) | +| **REUMATOLOGIA** | 1 ( 0.2) | +| **TRAUMA** | 107 (25.1) | +| **TUMOR** | 16 ( 3.8) | diff --git a/resultados/centros.pdf b/resultados/centros.pdf index 69119af..1742fde 100644 Binary files a/resultados/centros.pdf and b/resultados/centros.pdf differ diff --git a/resultados/centros.riva.csv b/resultados/centros.riva.csv new file mode 100644 index 0000000..51f7837 --- /dev/null +++ b/resultados/centros.riva.csv @@ -0,0 +1,16 @@ +"";"NÃO";"SIM";"p";"test" +"n";"328";"87";"";"" +"Grupo (%)";"";"";" NA";"exact" +" CIRURGIA VASCULAR";" 1 ( 0.3) ";" 0 ( 0.0) ";"";"" +" COLUNA";" 18 ( 5.5) ";" 2 ( 2.3) ";"";"" +" CRANIO MAXILO-FACIAL";" 2 ( 0.6) ";" 0 ( 0.0) ";"";"" +" JOELHO";"113 (34.5) ";"36 (41.4) ";"";"" +" MÃO";" 4 ( 1.2) ";" 0 ( 0.0) ";"";"" +" MICROCIRURGIA";" 3 ( 0.9) ";" 0 ( 0.0) ";"";"" +" OMBRO";" 2 ( 0.6) ";" 1 ( 1.1) ";"";"" +" PÉ";" 17 ( 5.2) ";" 5 ( 5.7) ";"";"" +" PESQUISA CLINICA";" 1 ( 0.3) ";" 1 ( 1.1) ";"";"" +" QUADRIL";" 65 (19.8) ";"22 (25.3) ";"";"" +" REUMATOLOGIA";" 1 ( 0.3) ";" 0 ( 0.0) ";"";"" +" TRAUMA";" 88 (26.8) ";"17 (19.5) ";"";"" +" TUMOR";" 13 ( 4.0) ";" 3 ( 3.4) ";"";"" diff --git a/resultados/centros.riva.docx b/resultados/centros.riva.docx new file mode 100644 index 0000000..e5ba631 Binary files /dev/null and b/resultados/centros.riva.docx differ diff --git a/resultados/centros.riva.md b/resultados/centros.riva.md new file mode 100644 index 0000000..812bcae --- /dev/null +++ b/resultados/centros.riva.md @@ -0,0 +1,20 @@ + + +|   | NÃO | SIM | p | test | +|:--------------------------:|:----------:|:---------:|:---:|:------:| +| **n** | 328 | 87 | | | +| **Grupo (%)** | | | NA | exact | +| **CIRURGIA VASCULAR** | 1 ( 0.3) | 0 ( 0.0) | | | +| **COLUNA** | 18 ( 5.5) | 2 ( 2.3) | | | +| **CRANIO MAXILO-FACIAL** | 2 ( 0.6) | 0 ( 0.0) | | | +| **JOELHO** | 113 (34.5) | 36 (41.4) | | | +| **MÃO** | 4 ( 1.2) | 0 ( 0.0) | | | +| **MICROCIRURGIA** | 3 ( 0.9) | 0 ( 0.0) | | | +| **OMBRO** | 2 ( 0.6) | 1 ( 1.1) | | | +| **PÉ** | 17 ( 5.2) | 5 ( 5.7) | | | +| **PESQUISA CLINICA** | 1 ( 0.3) | 1 ( 1.1) | | | +| **QUADRIL** | 65 (19.8) | 22 (25.3) | | | +| **REUMATOLOGIA** | 1 ( 0.3) | 0 ( 0.0) | | | +| **TRAUMA** | 88 (26.8) | 17 (19.5) | | | +| **TUMOR** | 13 ( 4.0) | 3 ( 3.4) | | | + diff --git a/resultados/centros.riva.pdf b/resultados/centros.riva.pdf new file mode 100644 index 0000000..e8a7327 Binary files /dev/null and b/resultados/centros.riva.pdf differ diff --git a/resultados/centros.spt.md b/resultados/centros.spt.md new file mode 100644 index 0000000..dad90e7 --- /dev/null +++ b/resultados/centros.spt.md @@ -0,0 +1,20 @@ + + +|   | NÃO | SIM | p | test | +|:--------------------------:|:----------:|:---------:|:---:|:------:| +| **n** | 372 | 54 | | | +| **Grupo (%)** | | | NA | exact | +| **CIRURGIA VASCULAR** | 1 ( 0.3) | 0 ( 0.0) | | | +| **COLUNA** | 20 ( 5.4) | 1 ( 1.9) | | | +| **CRANIO MAXILO-FACIAL** | 1 ( 0.3) | 1 ( 1.9) | | | +| **JOELHO** | 138 (37.1) | 16 (29.6) | | | +| **MÃO** | 4 ( 1.1) | 1 ( 1.9) | | | +| **MICROCIRURGIA** | 1 ( 0.3) | 2 ( 3.7) | | | +| **OMBRO** | 2 ( 0.5) | 1 ( 1.9) | | | +| **PÉ** | 20 ( 5.4) | 3 ( 5.6) | | | +| **PESQUISA CLINICA** | 2 ( 0.5) | 0 ( 0.0) | | | +| **QUADRIL** | 76 (20.4) | 12 (22.2) | | | +| **REUMATOLOGIA** | 1 ( 0.3) | 0 ( 0.0) | | | +| **TRAUMA** | 93 (25.0) | 14 (25.9) | | | +| **TUMOR** | 13 ( 3.5) | 3 ( 5.6) | | | + diff --git a/resultados/centros.tep.md b/resultados/centros.tep.md new file mode 100644 index 0000000..b9fbb32 --- /dev/null +++ b/resultados/centros.tep.md @@ -0,0 +1,20 @@ + + +|   | NÃO | SIM | p | test | +|:--------------------------:|:----------:|:--------:|:-----:|:------:| +| **n** | 416 | 8 | | | +| **Grupo (%)** | | | 0.054 | exact | +| **CIRURGIA VASCULAR** | 1 ( 0.2) | 0 ( 0.0) | | | +| **COLUNA** | 21 ( 5.0) | 0 ( 0.0) | | | +| **CRANIO MAXILO-FACIAL** | 2 ( 0.5) | 0 ( 0.0) | | | +| **JOELHO** | 154 (37.0) | 0 ( 0.0) | | | +| **MÃO** | 5 ( 1.2) | 0 ( 0.0) | | | +| **MICROCIRURGIA** | 3 ( 0.7) | 0 ( 0.0) | | | +| **OMBRO** | 2 ( 0.5) | 1 (12.5) | | | +| **PÉ** | 22 ( 5.3) | 0 ( 0.0) | | | +| **PESQUISA CLINICA** | 2 ( 0.5) | 0 ( 0.0) | | | +| **QUADRIL** | 85 (20.4) | 2 (25.0) | | | +| **REUMATOLOGIA** | 1 ( 0.2) | 0 ( 0.0) | | | +| **TRAUMA** | 103 (24.8) | 4 (50.0) | | | +| **TUMOR** | 15 ( 3.6) | 1 (12.5) | | | + diff --git a/resultados/centros.tvpp.md b/resultados/centros.tvpp.md new file mode 100644 index 0000000..30b452a --- /dev/null +++ b/resultados/centros.tvpp.md @@ -0,0 +1,20 @@ + + +|   | NÃO | SIM | p | test | +|:--------------------------:|:----------:|:---------:|:---:|:------:| +| **n** | 361 | 62 | | | +| **Grupo (%)** | | | NA | exact | +| **CIRURGIA VASCULAR** | 1 ( 0.3) | 0 ( 0.0) | | | +| **COLUNA** | 16 ( 4.4) | 5 ( 8.1) | | | +| **CRANIO MAXILO-FACIAL** | 1 ( 0.3) | 1 ( 1.6) | | | +| **JOELHO** | 134 (37.1) | 20 (32.3) | | | +| **MÃO** | 4 ( 1.1) | 1 ( 1.6) | | | +| **MICROCIRURGIA** | 3 ( 0.8) | 0 ( 0.0) | | | +| **OMBRO** | 2 ( 0.6) | 1 ( 1.6) | | | +| **PÉ** | 19 ( 5.3) | 3 ( 4.8) | | | +| **PESQUISA CLINICA** | 2 ( 0.6) | 0 ( 0.0) | | | +| **QUADRIL** | 75 (20.8) | 12 (19.4) | | | +| **REUMATOLOGIA** | 0 ( 0.0) | 1 ( 1.6) | | | +| **TRAUMA** | 91 (25.2) | 15 (24.2) | | | +| **TUMOR** | 13 ( 3.6) | 3 ( 4.8) | | | + diff --git a/resultados/centros.warfa.csv b/resultados/centros.warfa.csv new file mode 100644 index 0000000..ba8839e --- /dev/null +++ b/resultados/centros.warfa.csv @@ -0,0 +1,16 @@ +"";"NÃO";"SIM";"p";"test" +"n";"181";"196";"";"" +"Grupo (%)";"";"";" NA";"exact" +" CIRURGIA VASCULAR";" 1 ( 0.6) ";" 0 ( 0.0) ";"";"" +" COLUNA";" 7 ( 3.9) ";"11 ( 5.6) ";"";"" +" CRANIO MAXILO-FACIAL";" 0 ( 0.0) ";" 2 ( 1.0) ";"";"" +" JOELHO";"58 (32.0) ";"74 (37.8) ";"";"" +" MÃO";" 1 ( 0.6) ";" 2 ( 1.0) ";"";"" +" MICROCIRURGIA";" 1 ( 0.6) ";" 1 ( 0.5) ";"";"" +" OMBRO";" 1 ( 0.6) ";" 2 ( 1.0) ";"";"" +" PÉ";"13 ( 7.2) ";" 8 ( 4.1) ";"";"" +" PESQUISA CLINICA";" 0 ( 0.0) ";" 2 ( 1.0) ";"";"" +" QUADRIL";"39 (21.5) ";"39 (19.9) ";"";"" +" REUMATOLOGIA";" 0 ( 0.0) ";" 1 ( 0.5) ";"";"" +" TRAUMA";"49 (27.1) ";"49 (25.0) ";"";"" +" TUMOR";"11 ( 6.1) ";" 5 ( 2.6) ";"";"" diff --git a/resultados/centros.warfa.docx b/resultados/centros.warfa.docx new file mode 100644 index 0000000..c49a477 Binary files /dev/null and b/resultados/centros.warfa.docx differ diff --git a/resultados/centros.warfa.md b/resultados/centros.warfa.md new file mode 100644 index 0000000..eb7f6fa --- /dev/null +++ b/resultados/centros.warfa.md @@ -0,0 +1,20 @@ + + +|   | NÃO | SIM | p | test | +|:--------------------------:|:---------:|:---------:|:---:|:------:| +| **n** | 181 | 196 | | | +| **Grupo (%)** | | | NA | exact | +| **CIRURGIA VASCULAR** | 1 ( 0.6) | 0 ( 0.0) | | | +| **COLUNA** | 7 ( 3.9) | 11 ( 5.6) | | | +| **CRANIO MAXILO-FACIAL** | 0 ( 0.0) | 2 ( 1.0) | | | +| **JOELHO** | 58 (32.0) | 74 (37.8) | | | +| **MÃO** | 1 ( 0.6) | 2 ( 1.0) | | | +| **MICROCIRURGIA** | 1 ( 0.6) | 1 ( 0.5) | | | +| **OMBRO** | 1 ( 0.6) | 2 ( 1.0) | | | +| **PÉ** | 13 ( 7.2) | 8 ( 4.1) | | | +| **PESQUISA CLINICA** | 0 ( 0.0) | 2 ( 1.0) | | | +| **QUADRIL** | 39 (21.5) | 39 (19.9) | | | +| **REUMATOLOGIA** | 0 ( 0.0) | 1 ( 0.5) | | | +| **TRAUMA** | 49 (27.1) | 49 (25.0) | | | +| **TUMOR** | 11 ( 6.1) | 5 ( 2.6) | | | + diff --git a/resultados/centros.warfa.pdf b/resultados/centros.warfa.pdf new file mode 100644 index 0000000..e1e0c49 Binary files /dev/null and b/resultados/centros.warfa.pdf differ diff --git a/resultados/comorbidades.docx b/resultados/comorbidades.docx index 5679973..a68c9c7 100644 Binary files a/resultados/comorbidades.docx and b/resultados/comorbidades.docx differ diff --git a/resultados/comorbidades.md b/resultados/comorbidades.md index ddb33fa..4744641 100644 --- a/resultados/comorbidades.md +++ b/resultados/comorbidades.md @@ -1,20 +1,13 @@ -|   | Categoria | Quantidade | -|:----------------------------:|:-------:|:----------:| -| **n** | | 365 | -| **Artrite.Reumatoide (%)** | NÃO | 353 (96.7) | -| | SIM | 12 ( 3.3) | -| **AVC (%)** | NÃO | 355 (97.3) | -| | SIM | 10 ( 2.7) | -| **Cardiopatia (%)** | NÃO | 299 (95.8) | -| | SIM | 13 ( 4.2) | -| **DM (%)** | NÃO | 326 (89.3) | -| | SIM | 39 (10.7) | -| **Doenca.Reumatica (%)** | NÃO | 363 (99.5) | -| | SIM | 2 ( 0.5) | -| **HAS (%)** | NÃO | 167 (45.8) | -| | SIM | 198 (54.2) | -| **OUTRAS (%)** | NÃO | 286 (78.4) | -| | SIM | 79 (21.6) | +|   | Quantidade | +|:----------------------------------:|:----------:| +| **n** | 426 | +| **Artrite.Reumatoide = SIM (%)** | 15 ( 3.6) | +| **AVC = SIM (%)** | 12 ( 2.9) | +| **Cardiopatia = SIM (%)** | 15 ( 4.4) | +| **DM = SIM (%)** | 44 (10.5) | +| **Doenca.Reumatica = SIM (%)** | 3 ( 0.7) | +| **HAS = SIM (%)** | 224 (53.3) | +| **OUTRAS = SIM (%)** | 87 (20.7) | diff --git a/resultados/comorbidades.pdf b/resultados/comorbidades.pdf index 3c380c3..68d2258 100644 Binary files a/resultados/comorbidades.pdf and b/resultados/comorbidades.pdf differ diff --git a/resultados/medicamentos.docx b/resultados/medicamentos.docx index dfc936d..1c9237a 100644 Binary files a/resultados/medicamentos.docx and b/resultados/medicamentos.docx differ diff --git a/resultados/medicamentos.md b/resultados/medicamentos.md index cfe68e2..16d27d7 100644 --- a/resultados/medicamentos.md +++ b/resultados/medicamentos.md @@ -1,14 +1,10 @@ -|   | Categoria | Quantidade | -|:----------------------:|:-------:|:----------:| -| **n** | | 365 | -| **Dabigatrana (%)** | NÃO | 360 (98.6) | -| | SIM | 5 ( 1.4) | -| **Enoxaparina (%)** | NÃO | 8 ( 2.2) | -| | SIM | 357 (97.8) | -| **Rivoraxabana (%)** | NÃO | 278 (76.2) | -| | SIM | 87 (23.8) | -| **Warfarina (%)** | NÃO | 163 (44.7) | -| | SIM | 202 (55.3) | +|   | Quantidade | +|:----------------------------:|:----------:| +| **n** | 426 | +| **Dabigatrana = SIM (%)** | 5 ( 1.2) | +| **Enoxaparina = SIM (%)** | 384 (93.2) | +| **Rivoraxabana = SIM (%)** | 87 (21.0) | +| **Warfarina = SIM (%)** | 196 (52.0) | diff --git a/resultados/medicamentos.pdf b/resultados/medicamentos.pdf index 091ebad..d2efcf0 100644 Binary files a/resultados/medicamentos.pdf and b/resultados/medicamentos.pdf differ diff --git a/resultados/medicamentos_sexo.csv b/resultados/medicamentos_sexo.csv new file mode 100644 index 0000000..abc7477 --- /dev/null +++ b/resultados/medicamentos_sexo.csv @@ -0,0 +1,6 @@ +"";"F";"M";"p";"test" +"n";"267";"159";"";"" +"Dabigatrana = SIM (%)";" 2 ( 0.8) ";" 3 ( 1.9) ";" 0.372";"exact" +"Enoxaparina = SIM (%)";"240 (94.1) ";"144 (91.7) ";" 0.421";"exact" +"Rivoraxabana = SIM (%)";" 58 (22.6) ";" 29 (18.4) ";" 0.323";"exact" +"Warfarina = SIM (%)";"118 (51.3) ";" 78 (53.1) ";" 0.752";"exact" diff --git a/resultados/medicamentos_sexo.docx b/resultados/medicamentos_sexo.docx new file mode 100644 index 0000000..df1b483 Binary files /dev/null and b/resultados/medicamentos_sexo.docx differ diff --git a/resultados/medicamentos_sexo.md b/resultados/medicamentos_sexo.md new file mode 100644 index 0000000..b17ac2f --- /dev/null +++ b/resultados/medicamentos_sexo.md @@ -0,0 +1,10 @@ + + +|   | F | M | p | test | +|:----------------------------:|:----------:|:----------:|:-----:|:------:| +| **n** | 267 | 159 | | | +| **Dabigatrana = SIM (%)** | 2 ( 0.8) | 3 ( 1.9) | 0.372 | exact | +| **Enoxaparina = SIM (%)** | 240 (94.1) | 144 (91.7) | 0.421 | exact | +| **Rivoraxabana = SIM (%)** | 58 (22.6) | 29 (18.4) | 0.323 | exact | +| **Warfarina = SIM (%)** | 118 (51.3) | 78 (53.1) | 0.752 | exact | + diff --git a/resultados/medicamentos_sexo.pdf b/resultados/medicamentos_sexo.pdf new file mode 100644 index 0000000..208511d Binary files /dev/null and b/resultados/medicamentos_sexo.pdf differ diff --git a/resultados/tabela1.docx b/resultados/tabela1.docx index 3b1d54b..badde64 100644 Binary files a/resultados/tabela1.docx and b/resultados/tabela1.docx differ diff --git a/resultados/tabela1.md b/resultados/tabela1.md index 372d81d..49f8128 100644 --- a/resultados/tabela1.md +++ b/resultados/tabela1.md @@ -1,20 +1,15 @@ -|   | Categoria | Quantidade | -|:--------------------------:|:----------:|:-------------:| -| **n** | | 365 | -| **Sexo (%)** | F | 224 (61.4) | -| | M | 141 (38.6) | -| **Idade (média (DP))** | | 63.56 (15.97) | -| **Altura (média (DP))** | | 1.63 (0.10) | -| **Peso (média (DP))** | | 75.51 (19.47) | -| **IMC (média (DP))** | | 28.40 (6.20) | -| **Tipo.Atendimento (%)** | EXTERNO | 140 (38.4) | -| | INTERNAÇÃO | 225 (61.6) | -| **TEP (%)** | NÃO | 357 (98.1) | -| | SIM | 7 ( 1.9) | -| **SPT (%)** | NÃO | 325 (89.0) | -| | SIM | 40 (11.0) | -| **TVP.PREVIA (%)** | NÃO | 322 (88.2) | -| | SIM | 43 (11.8) | +|   | Quantidade | +|:---------------------------------------:|:-------------:| +| **n** | 426 | +| **Sexo = M (%)** | 159 (37.3) | +| **Idade (média (DP))** | 63.43 (15.77) | +| **Altura (média (DP))** | 1.63 (0.10) | +| **Peso (média (DP))** | 76.29 (19.26) | +| **IMC (média (DP))** | 28.71 (6.41) | +| **Tipo.Atendimento = INTERNAÇÃO (%)** | 250 (58.7) | +| **TEP = SIM (%)** | 8 ( 1.9) | +| **SPT = SIM (%)** | 54 (12.7) | +| **TVP.PREVIA = SIM (%)** | 62 (14.7) | diff --git a/resultados/tabela1.pdf b/resultados/tabela1.pdf index 1553fa5..c9b3a9c 100644 Binary files a/resultados/tabela1.pdf and b/resultados/tabela1.pdf differ diff --git a/scripts/descritivas.R b/scripts/descritivas.R index 19615f3..b17fe6b 100644 --- a/scripts/descritivas.R +++ b/scripts/descritivas.R @@ -6,6 +6,9 @@ rm(vars) vars <- c("Dabigatrana", "Enoxaparina", "Rivoraxabana", "Warfarina") medicamentos <- CreateTableOne(data = dados, vars = vars) +medicamentos.Sexo <- CreateTableOne(data = dados, vars = vars, strata = "Sexo") +# medicamentos.IMC <- CreateTableOne(data = dados, vars = vars) +# medicamentos.Idade <- CreateTableOne(data = dados, vars = vars) rm(vars) vars <- c("Artrite.Reumatoide", "AVC", "Cardiopatia", "DM", "Doenca.Reumatica", "HAS", "OUTRAS") @@ -13,6 +16,14 @@ comorbidades <- CreateTableOne(data = dados, vars = vars) rm(vars) centros <- CreateCatTable(data = dados, "Grupo") +centros.dabi <- CreateCatTable(data = dados, vars = "Grupo", strata = "Dabigatrana") +centros.enoxa <- CreateCatTable(data = dados, vars = "Grupo", strata = "Enoxaparina") +centros.riva <- CreateCatTable(data = dados, vars = "Grupo", strata = "Rivoraxabana") +centros.warfa <- CreateCatTable(data = dados, vars = "Grupo", strata = "Warfarina") + +centro.tep <- CreateCatTable(data = dados, vars = "Grupo", strata = "TEP") +centro.spt <- CreateCatTable(data = dados, vars = "Grupo", strata = "SPT") +centro.tvpp <- CreateCatTable(data = dados, vars = "Grupo", strata = "TVP.PREVIA") # tabela0 <- CreateTableOne(data = dados) # print(tabela0, showAllLevels = T) diff --git a/scripts/input.R b/scripts/input.R index 0f98295..b47ae49 100644 --- a/scripts/input.R +++ b/scripts/input.R @@ -1,6 +1,6 @@ # input ------------------------------------------------------------------- -dados <- read.csv2("../2016-11-13_TVP.csv", na.strings = "") +dados <- read.csv2("../2016-12-06_TVP.csv", na.strings = "") N.orig <- dim(dados)[1] # dados não utilizados @@ -9,14 +9,14 @@ dados <- dados[-c(2, 15)] # Remover Nome e Cirurgia # inclusão ---------------------------------------------------------------- ## Descartar pacientes que não fizeram uso de profilaxia -profilaxia.neg <- dim(dados[(dados$Dabigatrana == "NÃO" & dados$Enoxaparina == "NÃO" & dados$Rivoraxabana == "NÃO" & dados$Warfarina == "NÃO"),])[1] -dados <- dados[!(dados$Dabigatrana == "NÃO" & dados$Enoxaparina == "NÃO" & dados$Rivoraxabana == "NÃO" & dados$Warfarina == "NÃO"),] +# profilaxia.neg <- dim(dados[(dados$Dabigatrana == "NÃO" & dados$Enoxaparina == "NÃO" & dados$Rivoraxabana == "NÃO" & dados$Warfarina == "NÃO"),])[1] +# dados <- dados[!(dados$Dabigatrana == "NÃO" & dados$Enoxaparina == "NÃO" & dados$Rivoraxabana == "NÃO" & dados$Warfarina == "NÃO"),] # exclusão ---------------------------------------------------------------- # Pacientes que não tem informação completa de profilaxia -profilaxia.incompleta <- dim(dados[!complete.cases(dados[c("Rivoraxabana","Dabigatrana", "Enoxaparina", "Warfarina")]),])[1] -dados <- dados[complete.cases(dados[c("Rivoraxabana","Dabigatrana", "Enoxaparina", "Warfarina")]),] +# profilaxia.incompleta <- dim(dados[!complete.cases(dados[c("Rivoraxabana","Dabigatrana", "Enoxaparina", "Warfarina")]),])[1] +# dados <- dados[complete.cases(dados[c("Rivoraxabana","Dabigatrana", "Enoxaparina", "Warfarina")]),] # Pacientes duplicados (considerar apenas primeira ocorrência) Pront.dup <- table(dados[1]) diff --git a/scripts/resultados-output.R b/scripts/resultados-output.R index a3fd3cf..423861a 100644 --- a/scripts/resultados-output.R +++ b/scripts/resultados-output.R @@ -6,8 +6,16 @@ source("scripts/resultados.R") cat(tab1.output, file = "resultados/tabela1.md", sep = "\n") cat(med.output, file = "resultados/medicamentos.md", sep = "\n") +cat(med.sexo.output, file = "resultados/medicamentos_sexo.md", sep = "\n") cat(comorb.output, file = "resultados/comorbidades.md", sep = "\n") cat(centros.output, file = "resultados/centros.md", sep = "\n") +cat(centros.dabi.output, file = "resultados/centros.dabi.md", sep = "\n") +cat(centros.enoxa.output, file = "resultados/centros.enoxa.md", sep = "\n") +cat(centros.riva.output, file = "resultados/centros.riva.md", sep = "\n") +cat(centros.warfa.output, file = "resultados/centros.warfa.md", sep = "\n") +cat(centro.tep.output, file = "resultados/centro.tep.md", sep = "\n") +cat(centro.spt.output, file = "resultados/centro.spt.md", sep = "\n") +cat(centro.tvpp.output, file = "resultados/centro.tvpp.md", sep = "\n") library(knitr) @@ -18,6 +26,12 @@ pandoc("resultados/tabela1.md", format = c("latex", "docx")) # medicamentos ------------------------------------------------------------ pandoc("resultados/medicamentos.md", format = c("latex", "docx")) +pandoc("resultados/medicamentos_sexo.md", format = c("latex", "docx")) + + +# medicamentos x sexo (CSV) ----------------------------------------------- + +write.csv2(print(medicamentos.Sexo, exact = T, printToggle = F), "resultados/medicamentos_sexo.csv") # comorbidades ------------------------------------------------------------ @@ -26,6 +40,24 @@ pandoc("resultados/comorbidades.md", format = c("latex", "docx")) # centros ----------------------------------------------------------------- pandoc("resultados/centros.md", format = c("latex", "docx")) +pandoc("resultados/centros.enoxa.md", format = c("latex", "docx")) +pandoc("resultados/centros.dabi.md", format = c("latex", "docx")) +pandoc("resultados/centros.warfa.md", format = c("latex", "docx")) +pandoc("resultados/centros.riva.md", format = c("latex", "docx")) +pandoc("resultados/centro.tep.md", format = c("latex", "docx")) +pandoc("resultados/centro.spt.md", format = c("latex", "docx")) +pandoc("resultados/centro.tvpp.md", format = c("latex", "docx")) + +# centros (CSV) ----------------------------------------------------------- +# Diferentes estratificações + +write.csv2(print(centros.enoxa, exact = T, printToggle = F), "resultados/centros.enoxa.csv") +write.csv2(print(centros.dabi, exact = T, printToggle = F), "resultados/centros.dabi.csv") +write.csv2(print(centros.warfa, exact = T, printToggle = F), "resultados/centros.warfa.csv") +write.csv2(print(centros.riva, exact = T, printToggle = F), "resultados/centros.riva.csv") +write.csv2(print(centro.tep, exact = T, printToggle = F), "resultados/centro.tep.csv") +write.csv2(print(centro.spt, exact = T, printToggle = F), "resultados/centro.spt.csv") +write.csv2(print(centro.tvpp, exact = T, printToggle = F), "resultados/centro.tvpp.csv") # graficos ---------------------------------------------------------------- diff --git a/scripts/resultados.R b/scripts/resultados.R index ea424f2..0dc6cb3 100644 --- a/scripts/resultados.R +++ b/scripts/resultados.R @@ -3,7 +3,7 @@ source("scripts/descritivas.R") traduzir_tabela <- function(x) { - temp <- pander_return(print(x, showAllLevels = T, printToggle = F)) + temp <- pander_return(print(x,printToggle = F, exact = T)) temp <- gsub("level", "Categoria", temp) temp <- gsub("Overall", "Quantidade", temp) temp <- gsub("mean", "média", temp) @@ -22,6 +22,7 @@ tab1.output <- traduzir_tabela(tabela1) # medicamentos ------------------------------------------------------------ med.output <- traduzir_tabela(medicamentos) +med.sexo.output <- traduzir_tabela(medicamentos.Sexo) # comorbidades ------------------------------------------------------------ @@ -30,3 +31,10 @@ comorb.output <- traduzir_tabela(comorbidades) # centros ----------------------------------------------------------------- centros.output <- traduzir_tabela(centros) +centros.dabi.output <- traduzir_tabela(centros.dabi) +centros.enoxa.output <- traduzir_tabela(centros.enoxa) +centros.riva.output <- traduzir_tabela(centros.riva) +centros.warfa.output <- traduzir_tabela(centros.warfa) +centro.tep.output <- traduzir_tabela(centro.tep) +centro.spt.output <- traduzir_tabela(centro.spt) +centro.tvpp.output <- traduzir_tabela(centro.tvpp)