Análise dos valores PCR em pacientes com endometriose

O que é a proteína C reativa?

“A proteína C reativa, produzida no fígado, é o principal marcador de fase aguda de processos inflamatórios e necróticos (morte do tecido) que ocorrem no organismo…” ¹

#Carga dos dados
dados <- read.csv(file = "dados_endometriose.csv", sep = ";", dec = ",")

dados_controle <- subset(dados, Grupo == "Controle")
dados_doente <- subset(dados, Grupo == "Doente")

#Limpeza de dados nao coerentes
dados_doente <- subset(dados_doente, Paciente != 6 & Paciente != 7 & Paciente != 9 & Paciente != 25)

dados <- rbind(dados_controle, dados_doente)

Relação do PCR com a gravidade da endometriose

Os valores PCR foram coletados em dois momentos, durante e dez dias após a menstruação, tanto no grupo controle como nas pacientes que apresentavam a endometriose. Abaixo um o gráfico comparando durante a menstrução o grupo controle e o grupo doente:

boxplot(PCRa~Grupo, data = dados, main = "Níveis de Proteína C Reativa por grupo na menstruação"
        ,xlab="Gravidade", ylab="Proteina C reativa"
        ,border=c("green4", "indianred4")
)

Na sequência a mesma comparação dez dias após a menstruação:

boxplot(PCRb~Grupo, data = dados, main = "Níveis de Proteína C Reativa por grupo dez dias após menstruação"
        ,xlab="Gravidade", ylab="Proteina C reativa"
        ,border=c("green4", "indianred4")
)

Conforme verificado durante a menstruação, os valores de PCR durante a menstruação apresentam um primeiro quartil e uma mediana pouco superiores ao grupo controle, porém o valor do terceiro quartil tende a ser muito superior ao grupo controle conforme observado, estes valores podem ser melhores observados dividindo o grupo doente pelo grau de gravidade da endometriose (0 = menor gravidade, 4 = maior gravidade), durante a menstruação:

boxplot(PCRa~AFSr, data = dados, main = "Níveis de Proteína C Reativa por Gravidade na menstruação"
        ,xlab="Gravidade", ylab="Proteina C reativa"
        ,border=c("green4", "indianred4", "indianred4", "indianred4", "indianred4")
        ,names=c("Controle", "1", "2", "3", "4")
)

Dez dias após a menstruação:

boxplot(PCRb~AFSr, data = dados, main = "Níveis de Proteína C Reativa por Gravidade 10 dias após menstruação"
        ,xlab="Gravidade", ylab="Proteina C reativa"
        ,border=c("green4", "indianred4", "indianred4", "indianred4", "indianred4")
        ,names=c("Controle", "1", "2", "3", "4")
)

Conclusão

Como pode-se observar, durante a menstruação os níveis de PCR do grupo doente tende a ficar mais elevados, com todos os quantis subindo conforme a gravidade. Após dez dias do período de menstruação as medidas resumo continuam superiores, porém em valores muito próximos ao grupo controle.

---

1. https://medicoresponde.com.br/o-que-e-o-exame-pcr-e-para-que-serve/↩