Atividade 6

Autor

Ana Carla Aquino

Psoríase

Psoríase é uma doença autoimune de longa duração caracterizada por manchas na pele.Estas manchas são geralmente avermelhadas, pruriginosas e escamosas. A gravidade é variável, desde manchas pequenas e localizadas até ao revestimento total do corpo.

Fonte:Wikipédia

As formas clínicas da psoríase têm características peculiares e podem estar ou não associadas à artrite psoriática, são elas: crônica em placas (ou vulgar), em gotas (gutatta), pustulosa, eritrodérmica, invertida e ungueal(Ministério da Saúde, 2021).

Um banco de dados com portadores de Psoríase pode ser consultados na guia Tabela, bem como as imagens das formas de psoríase:

Numero	Sexo	Endereço	Distrito.Sanit	Idade	Grau.esc	Ocupação	Tempo.Diag	História.familiar	Tipo.Predominante.Psoriáse	Artralgia	Artrite.Psoriásica	Tabagismo	Etilismo	PASE	PASI	DLQI	HAS	DM	Exercício.físico	PESO..Kg.	ALTURA..cm.	CA.cm.	HDL	COL.TOT.	TRIGLIC.	GLICOSE
1	M	MANGABEIRA	3	64	Ensino Fundamental	Taxista	1	Sim	Pequenas placas	Sim	Sim	Cessou	Não	50	NA	13	Sim	Sim	Não	108	NA	NA	NA	98	85	193
2	F	MANGABEIRA	3	62	Ensino Médio	Do lar	1	Não	Grandes placas	Sim	Sim	Não	Não	42	NA	1	Sim	Sim	NA	76	160	NA	NA	121	133	195
4	F	MANDACARU	4	56	Ensino Médio	Do lar	0	NA	Pequenas placas, ungueal	Sim	Sim	Cessou	Não	NA	NA	NA	Sim	Não	Sim	87.5	155	113	NA	244	131	98
5	M	CUIÁ	2	55	Ensino Fundamental Incompleto	Motorista	0	Sim	Pequenas placas	Sim	Sim	Não	Não	53	8	22	Não	Sim	Não	75	168	NA	NA	249	277	223
9	M	MANGABEIRA	3	61	Ensino Médio Incompleto	Aposentado(a)	0	Não	Pequenas placas	Não	Não	Cessou	Não	NA	NA	NA	Sim	Sim	Não	70.8	155	105	NA	NA	NA	NA
10	M	VALENTINA	3	82	Ensino Médio	Aposentado(a)	1	Sim	Pequenas placas	Sim	Sim	Cessou	Não	49	12	3	Sim	Sim	Não	80	165	110	NA	144	141	157.7
11	M	JOÃO PAULO II	2	52	Ensino Fundamental	Garçom	0	Não	Pequenas placas	Não	Não	Cessou	Não	NA	NA	NA	Sim	Não	Não	NA	NA	NA	NA	166	230	84
19	M	CUIÁ	2	74	Ensino Fundamental	Aposentado(a)	1	Não	Pequenas placas	Sim	NA	Cessou	Não	NA	NA	NA	Não	Não	Sim	95	167	NA	NA	132	146	119
23	M	CUIÁ	2	59	Ensino Fundamental	Motorista	1	NA	Grandes placas	Sim	Não	Não	Não	5	NA	20	Sim	Não	Não	92	180	80	NA	185	NA	NA
28	F	MANGABEIRA	3	24	Ensino Médio	NA	0	Não	Grandes placas	Não	Não	NA	NA	28	NA	13	Não	Não	NA	48.6	163	77	NA	142	95	82

Código

library(pairsD3)
pairsD3(dados[,2:5], group=dados[,5])

Matriz interativa - Banco Psoriase

library(ggplot2)
plot <- ggplot(dados, 
  aes(x = Idade,
      y =  Distrito.Sanit)) + 
  geom_boxplot(aes(fill = Sexo )) +
  labs(caption = "Elaborado por: Ana Carla Aquino") +
  xlab("Idade") + 
  ylab("Distrito Sanitário") + 
  theme_grey();plot

plotly::ggplotly(plot)

Boxplot dinâmico.

Para conhecer um pouco mais sobre a Psoríase, confira o vídeo de uma dermatologista falando sobre os principais tipos de tratamento:

Vídeo retirado do Youtube Psoriase