-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathtrabalho_final.Rmd
2155 lines (1700 loc) · 115 KB
/
trabalho_final.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
---
title: Ciência de Dados para Todos (Data Science
For All) - 2018.2 - Análise da Produção Científica e Acadêmica da Universidade de Brasília
subtitle: Engenharia Biomédica, Engenharia de Sistemas Eletrônicos e de Automação, Engenharia Elétrica P7 e Engenharia Elétrica P8.
author: "Marcos Vinicius Prescendo Tonin, Lucas Nascimento Santos Souza e Carlos Aragão"
date: "02/12/2018"
output:
pdf_document:
latex_engine: xelatex
html_document:
df_print: paged
---
```{r setup, include=FALSE}
knitr::opts_knit$set(root.dir = getwd())
```
# Introdução
O presente trabalho tem por finalidade entender, correlacionar e analisar os dados da produção acadêmica e científica dos seguintes cursos de pós-graduação: Engenharia Biomédica, Engenharia Elétrica em seus dois ramos (53001010059P8 e 53001010080P7) e Engenharia de Sistemas Eletrônicos e de Automação.
# Metodologia
Para um melhor resultado do trabalho buscou-se seguir e adaptar-se a metodologia CRISP-DM, para isso baseou-se no ciclo de projeto da metodologia CRISP-DM.
O ciclo é definido pelas seguintes fases:
* **Entendimento do negócio**: Primeiramente deve-se entender o que se busca encontrar, haja visto que não faz sentido fazer uma análise de dados sem saber o que se busca.
* **Entendimento dos dados**: Busca-se entender os dados de forma mais superficial inicialmente.
* **Preparação de dados**: Então os dados são tratados para que se possa facilitar o processamento dos mesmos.
* **Modelagem**: Realiza a modelagem do dado.
* **Avaliação**: Avalia-se o resultado da modelagem.
* **Implatação**: Utilização dos dados.
Para melhor visualização das fases e a comunicação entre elas, deves-se observar a Figura 1. Por esta figura consegue-se perceber que, por exemplo, o entendimento do negócio e do dado pode muitas vezes ser se alternar no ciclo da metodologia adotada.
# Delimitações iniciais
### Domínio de Aplicação do projeto
O domínio de Aplicação do projeto é a produção científica e acadêmica dos docentes e discentes dos seguintes cursos de pós-graduação da Universidade de Brasília: __Engenharia Biomédica__,__Engenharia Elétrica P7 e P8__ e __Engenharia de Sistemas Eletrônicos e de Automação__. Os dados para análise foram obtidos a partir da plataforma elattes e da plataforma sucupira.
## Problema abordado
O problema tem por finalidade obter dados de forma descritiva, quantitativa e de modelagem computacional ou estatística, que permitam caracterizar como, porque e também para que ocorre a produção científica e acadêmica nos cursos de pós-graduação descritos anteriormente.
### Engenharia Biomédica
O programa de pós-graduação da engenharia biomédica - possui as informações: Código: 53001010083P6; Área-base: 31300006.
O corpo discente é composto de 15 membros, já o docente é de 673, conforme scripts.
Numero de disciplina retirado do site https://fga.unb.br/pgengbiomedica/lista-de-oferta : 9 disciplinas.
Na área de concetração engenharia biomédica, há 4 áreas(linhas) de pesquisa:
* Análise e Desenvolvimento de Sistemas Inteligentes e de Saúde : " Relaciona os aspectos ligados à análise, desenvolvimento, aquisição, representação e descoberta do conhecimento para a produção de sistemas inteligentes e de saúde. É uma área multidisciplinar, que apoia a tomada de decisão, diagnóstico, tratamento e desenvolvimento de técnicas para prática na saúde. Aborda os principais avanços teóricos e práticos de metodologias e técnicas utilizadas no desenvolvimento de Sistemas Inteligentes e de Saúde. As principais áreas de investigação são: Análise e modelagem de dados epidemiológicos; Análise de sistemas de saúde; Gestão e avaliação de tecnologias em saúde; Engenharia Clínica; Inteligência Artificial; Aprendizado de Máquina; Sistemas Baseados em Conhecimento; Paradigmas Simbólicos; Conexionistas, Evolutivos e Híbridos; Inteligência Computacional; Nanotecnologia; entre outras."
* Física Médica e Bioengenharia. " Relaciona a aplicação e as consequências das radiações ionizantes e não ionizantes na área da saúde, que a cada dia se tornam mais complexas e desafiadoras. Isso exige que os profissionais da área possuam uma formação específica de grande qualidade em diferentes campos, tais como física, biologia e química. Ademais, estes profissionais devem dominar os fundamentos de proteção radiológica e conhecer normas nacionais e recomendações internacionais a ela relacionadas, visando a sua própria proteção, bem como à proteção do paciente, do público geral e do meio ambiente. "
* Sistemas Eletrônicos e Instrumentação Biomédica : " Abrange a pesquisa e o desenvolvimento de transdutores, equipamentos, aparelhos ou sistemas microprocessados de uso biológico ou aplicação médica, odontológica ou laboratorial. A linha aborda o desenvolvimento e análise tanto de software como de hardware, abrangendo componentes e técnicas de microeletrônica, circuitos integrados e dispositivos programáveis. A ênfase diz respeito a aplicações em prevenção, diagnóstico, tratamento ou reabilitação. Em comparação com outros produtos de engenharia, a instrumentação biomédica se distingue por obter seus sinais de entrada a partir de seres vivos ou seus extratos, e ainda por aplicar energia (eletromagnética, mecânica, térmica) diretamente a tecidos vivos. As principais áreas de investigação são: Desenvolvimento de eletrodos ativos; Aquisição de sinais biológicos e biomédicos; Estimulação de tecidos ou sistemas biológicos e biomédicos; Desenvolvimento e análise de dispositivos microeletrônicos; Projetos e configuração de dispositivos programáveis; Projeto de circuitos integrados. "
* Processamento de Sinais e Imagens : ": Sinais e imagens são representações da realidade, na forma de funções matemáticas a serem submetidas a métodos rigorosos e eficientes de extração e tratamento de informação. Pode-se definir um sinal como um conjunto físico, abstrato ou simbólico de dados de interesse específico (i.e., informação) que muda ao longo do tempo ou do espaço. Uma imagem, especificamente, é conceituada como uma representação visual, real ou pictórica, parcial ou total, de uma estrutura, um ser ou até mesmo de ideias. É possível agrupar sinais e imagens como um mesmo tipo de objeto matemático, sendo que as imagens constituem sinais em domínios de duas ou mais dimensões. Processamento de sinais e imagens, portanto, consiste em utilizar métodos científicos e técnicas de engenharia para trabalhar com toda a informação contida nestas representações, conforme definido pela Sociedade de Processamento de Sinais do IEEE em 2009. Isto significa o uso de representações, formalismos e técnicas matemáticas, estatísticas, computacionais, heurísticas e/ou linguísticas na informação existente para fins de representação, modelagem, análise, síntese, revelação, recuperação, percepção, identificação, aquisição, extração, aprendizagem, segurança e/ou análise forense. Na engenharia biomédica, a linha de processamento de sinais é fundamental para aplicações como desenvolvimento de sistemas de auxílio a diagnóstico, formação de imagens médicas, controle de próteses e outros dispositivos médicos, desenvolvimento de métodos eficientes de tratamento e condicionamento físico, análise científica de dados relacionados à saúde etc."
Informações retiradas do próprio site, disponível em :https://fga.unb.br/articles/0001/4233/Linhas_de_Pesquisa_2016.pdf .
Há muitas projetos de pesquisas, no total 41 projetos. Sendo descrito no site https://fga.unb.br/pgengbiomedica/projetos-de-pesquisas:
| Projetos de Pesquisa | Labs | Período | Financiador | Linha | Situação |
|---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|--------------|-------------|------------------------------------|--------------------------------------------------------|------------|
| AUTOBAC - Plataforma Embarcada para a Identificação de Bactérias por Processamento de Imagens | LIPIS | 2011-Atual | Financiadora de Estudos e Projetos | | Andamento |
| Biomaterial Látex | BioEngLab | 2011-2016 | Capes | | Andamento |
| Acompanhamento do crescimento e desenvolvimento de recém-nascidos pré-termo | | 2009-Atual | | Instrumentação e Modelagem Biomédica | Andamento |
| Arte e Tecnociência: interações expandidas e condição cíbrida em software art | LART | 2010-2014 | Capes/CNPq | Processamento de Sinais Biomédicos e Imagens Médicas | Andamento |
| Atlas Anatômico 3D Aplicado à Mama | LIS | 2009-2010 | FINATEC | Sistemas Inteligentes Aplicados à Eng. Biomédica | Andamento |
| Biosensores Aplicados no Controle da Obesidade e Diabete Mellitus | BioEngLab | 2010-2015 | CNPq | Instrumentação e Modelagem Biomédica | Andamento |
| Bolsa de Produtividade em Pesquisa - Construção de um Ambiente Web de Ensino e Aprendizagem para a Área de Saúde | LIS | 2010-2012 | CNPq | Sistemas Inteligentes Aplicados à Eng. Biomédica | Andamento |
| CIBERCOMUNICAÇÃO: interatividade, imersão, autonomia e mobilidade em software art - PQ 1B | LART | 2009-2010 | CNPq | Projeto Isolado | Andamento |
| Colchão Inteligente Derivado de Latex anti-escara | BioEngLab | 2009-2014 | | Instrumentação e Modelagem Biomédica | Andamento |
| Computação Massivamente Paralela Utilizando Hardware Gráfico | | 2008-Atual | FAP/DF | Instrumentação e Modelagem Biomédica | Andamento |
| Consultório Médico Virtual (CMV) | LIS | 2009-Atual | UnB/Gama | Sistemas Inteligentes Aplicados à Eng. Biomédica | Andamento |
| Desenvolvimento de Dispositivo de Infusão Contínua de Insulina (Bomba de Insulina) | | 2010-2011 | | Instrumentação e Modelagem Biomédica | Andamento |
| Desenvolvimento de Modelos e Busca de Parâmetros para Minimização da Energia usada na Reversão Elétrica da Fibrilação Cardíaca | | 2009-Atual | FINATEC | Processamento de Sinais Biomédicos e Imagens Médicas | Andamento |
| Desenvolvimento de um oclusor infantil, no formato de lente de contato, feito à base de látex natural aplicado a pacientes com tendência a desenvolver o olho ambliope. | BioEngLab | 2009-2015 | | Instrumentação e Modelagem Biomédica | Andamento |
| Desenvolvimento de um sistema físico de controle de fluxo esofagiano para o tratamento da diabetes mellitus | BioEngLab | 2010-2012 | FAP/DF | Instrumentação e Modelagem Biomédica | Andamento |
| Desenvolvimento de uma palmilha para pé diabético derivada de látex natural com controle de pressão plantar e com indução de neoformação tecidual. | BioEngLab | 2009-2012 | CAPES | Instrumentação e Modelagem Biomédica | Andamento |
| Dinâmica de Sistemas Complexos com Aplicações em Biologia e Meio Ambiente | | 2007-2010 | | Instrumentação e Modelagem Biomédica | Andamento |
| Estudo da Exequibilidade, Tolerabilidade e Eficácia do Módulo Controlador de Fluxo Esofagiano | BioEngLab | 2009-2010 | | Instrumentação e Modelagem Biomédica | Andamento |
| Estudo de sistemas embarcáveis para controle de módulo de fluxo esofagiano em aplicação para tratamento de obesidade em humanos | BioEngLab | 2010-2013 | INBD – Engenharia Eletrônica | Instrumentação e Modelagem Biomédica | Andamento |
| Estudo experimental para desenvolvimento de sistema de monitoração clínico e informatizado de fatores de risco para distúrbios cardiovasculares, por meio de avaliação de diversas variáveis do Sistema Nervoso Autônomo. | | 2010-2011 | | Instrumentação e Modelagem Biomédica | Andamento |
| IEA - Instrumentação Embarcada em Aeronave | LIPIS | 2009-2010 | | Projeto Isolado | Andamento |
| MINIVANT - Desenvolvimento de um sistema de Mini-VANT para imageamento giro-estabilizado | LIPIS | 2010-Atual | FINEP | Projeto Isolado | Andamento |
| Modelagem e caracterização de motores de ciclo Otto alimentados com etanol e Hidrogênio | | 2009-2011 | FAP/DF | Projeto Isolado | Andamento |
| Modelo Matematico da Força de Resistencia do Osso Humano a Perfurações em Cirurgias Ortopédicas - Aplicação Osteotomia de Tibia | | 2010-2015 | | Instrumentação e Modelagem Biomédica | Andamento |
| Obesidade: Busca de Novo Método Tratamento, novo Índice de Diagnostico e Controle | BioEngLab | 2010-2020 | Capes | Instrumentação e Modelagem Biomédica | Andamento |
| Preditores de morbi/mortalidade em portadores de doenças crônico-degenerativas em regime de internação domiciliar: coorte prospectiva | | 2010-Atual | | Sistemas Inteligentes Aplicados à Eng. Biomédica | Andamento |
| Prevalência de tabagismo nos adolescentes e jovens do ensino médio da escola pública em Ceilândia | | 2010-Atual | | Sistemas Inteligentes Aplicados à Eng. Biomédica | Andamento |
| ProDC: Promover o Desempenho Cognitivo | LIS | 2010-Atual | | Sistemas Inteligentes Aplicados à Eng. Biomédica | Andamento |
| Propriedades físicas de nanopartículas fora do equilíbrio, modelagem e projeto automatizado de nanocircuitos eletrônicos | | 2010-2012 | CNPq | Instrumentação e Modelagem Biomédica | Andamento |
| Prótese de pé ativa para reabilitação e assistência a locomoção humana | BioEngLab | 2009-2015 | | Instrumentação e Modelagem Biomédica | Andamento |
| Pêndulo Invertido | BioEngLab | 2009-2011 | | Instrumentação e Modelagem Biomédica | Andamento |
| Re-estruturação de um dispositivo para UTI neonatal e Home Care - CPAP | BioEngLab | 2010-2012 | Brakko - Cooperação | Instrumentação e Modelagem Biomédica | Andamento |
| SAPIO - Sistema de Aquisição e Processamento de Imagens Ovitrampas | LIPIS/LIS | 2008-2010 | FINEP | Processamento de Sinais Biomédicos e Imagens Médicas | Andamento |
| Sistema de aquisição de sinais de temperatura e vibração em cirurgia de acesso ao nervo facial | | 2010-2012 | | Instrumentação e Modelagem Biomédica | Andamento |
| Sistema de Controle de Velocidade, Temperatura e Força em Cirurgias Ortopédicas | | 2009-2014 | | Instrumentação e Modelagem Biomédica | Andamento |
| Transtorno de Déficit de Atenção e Hiperatividade (TDAH) | LIS | 2010-2010 | | Sistemas Inteligentes Aplicados à Eng. Biomédica | Andamento |
| Monitoramento eletrônico da variação de temperatura durante a cirurgia descompressiva do nervo facial estudo experimental em gatos | BioEngLab | 2011-2012 | FPDF | | Andamento |
| Biblioteca digital de imagens e sinais biomédicos | LabGSD/LIPIS | 2011-2012 | Não tem | | Andamento |
| Determinação do fator Gama para Cálculo de Taxa de Exposição em Medicina Nuclear | FCE | 2010-atual | UnB | Física Médica | Andamento |
A organização original em uma única área de concentração (Engenharia Biomédica) com quatro linhas de pesquisa (Física Médica; Instrumentação e Modelagem Biomédica; Processamento de Sinais Biomédicos e Imagens Médicas; Sistemas Inteligentes Aplicados à Engenharia Biomédica) é coerente, consistente e em consonância com a proposta aprovada. O número de projetos (39 no total) é elevado para a dimensão do corpo docente, parecendo corresponder aos temas das dissertações dos alunos. Recomenda-se concentrar os estudos em projetos consistentes. A proposta de programa aponta para possíveis mudanças no futuro próximo, em função de processo de descredenciamento e credenciamento de novos docentes, visando aumentar a produção e melhorar sua distribuição. A proposta curricular é adequada: 24 créditos, sendo 16 gerais, obrigatórias e 8 optativas, das áreas. Admite dispensa de cursos com teste de proficiência e há iniciativa de ensino à distância. A proposta valoriza o estabelecimento de cooperações com grupos de pesquisa nacionais (12), internacionais (13) e empresas (4). Aponta ainda ação de interesse social/sanitário (controle da dengue) e nucleação com o IFMT (Cuiabá). A autoavaliação reflete um esforço de busca de amadurecimento e consolidação. O Programa conta com 10 laboratórios com aparato instrumental adequado para a realização das atividades de ensino e pesquisa. Ao longo do período, parte das atividades e Laboratórios funcionaram em instalações provisórias. Mais ao final, houve mudança para um novo edifício, o que interferiu no próprio desempenho acadêmico/científico do programa. Há disponibilidade de recursos para um edifício adicional, previsto para o próximo quadriênio.
Sobre a última avaliação do curso engenharia biomédica, serve: https://sucupira.capes.gov.br/sucupira/public/consultas/avaliacao/viewPreenchimentoFicha.jsf?idFicha=5739&popup=true. Verifica-se que as notas desde de 2010 até 2017 é 3 e que ainda continua em funcionamento.
Sobre a última avaliação de 2017 temos que :
Nos quesitos de avaliação :
* Proposta do programa : Bom
* Corpo Docente : Regular
* Corpo Discente, Teses e Dissertações : Bom
* Produção Intelectual : Regular
* Inserção Social : Muito Bom
Especificamente sobre a proposta do programa em 2017, tem-se que
Nos quesitos de avaliação :
* Proposta do programa : Bom
* Corpo Docente : Regular
* Corpo Discente, Teses e Dissertações : Bom
* Produção Intelectual : Regular
* Inserção Social : Muito Bom
"A organização original em uma única área de concentração (Engenharia Biomédica) com quatro linhas de pesquisa (Física Médica; Instrumentação e Modelagem Biomédica; Processamento de Sinais Biomédicos e Imagens Médicas; Sistemas Inteligentes Aplicados à Engenharia Biomédica) é coerente, consistente e em consonância com a proposta aprovada. O número de projetos (39 no total) é elevado para a dimensão do corpo docente, parecendo corresponder aos temas das dissertações dos alunos. Recomenda-se concentrar os estudos em projetos consistentes. A proposta de programa aponta para possíveis mudanças no futuro próximo, em função de processo de descredenciamento e credenciamento de novos docentes, visando aumentar a produção e melhorar sua distribuição. A proposta curricular é adequada: 24 créditos, sendo 16 gerais, obrigatórias e 8 optativas, das áreas. Admite dispensa de cursos com teste de proficiência e há iniciativa de ensino à distância. A proposta valoriza o estabelecimento de cooperações com grupos de pesquisa nacionais (12), internacionais (13) e empresas (4). Aponta ainda ação de interesse social/sanitário (controle da dengue) e nucleação com o IFMT (Cuiabá). A autoavaliação reflete um esforço de busca de amadurecimento e consolidação. O Programa conta com 10 laboratórios com aparato instrumental adequado para a realização das atividades de ensino e pesquisa. Ao longo do período, parte das atividades e Laboratórios funcionaram em instalações provisórias. Mais ao final, houve mudança para um novo edifício, o que interferiu no próprio desempenho acadêmico/científico do programa. Há disponibilidade de recursos para um edifício adicional, previsto para o próximo quadriênio." Informação retirada de : https://sucupira.capes.gov.br/sucupira/public/consultas/avaliacao/viewPreenchimentoFicha.jsf?idFicha=5739&popup=true
Sobre o corpo docente:
"O número informado de docentes do Programa é estável (8 a 9 no período), mas compreende várias entradas e saídas de docentes no quadriênio, e alternâncias de classificação de docentes entre permanentes e colaboradores, sendo constituído por professores em tempo integral e dedicação exclusiva. O Programa conta com apenas um bolsista de Produtividade em Pesquisa do CNPq. A Proposta aponta para a necessidade de credenciamentos e descredenciamentos de docentes, deixando claro que o núcleo de docentes permanentes do Programa ainda não está consolidado. A carga letiva dos docentes permanentes encontra-se um pouco abaixo da média, mas está com boa distribuição. No caso da graduação, alcança "muito bom" em termos de carga didática, e o número de alunos de iniciação científica é de pouco mais de um por docente." Informação retirada de : https://sucupira.capes.gov.br/sucupira/public/consultas/avaliacao/viewPreenchimentoFicha.jsf?idFicha=5739&popup=true
O corpo discente é descrito por "O número de dissertações concluídas por docente e o tempo médio de titulação são muito bons, enquanto o percentual de docentes responsável pelas titulações ano a ano é bom. Entretanto, resultou regular o indicador de qualidade das dissertações, que admite como produção intelectual mínima, relacionada à dissertação, um artigo completo em congresso ou periódico." Informação retirada de : https://sucupira.capes.gov.br/sucupira/public/consultas/avaliacao/viewPreenchimentoFicha.jsf?idFicha=5739&popup=true
Já sobre produção intelectual :
| Itens de Avaliação | Peso | Avaliação |
|:-------------------------------------------------------------------------------------------------:|------|----------:|
| 4.1. Publicações qualificadas do Programa por docente permanente. | 50.0 | Fraco |
| 4.2. Distribuição de publicações qualificadas em relação ao corpo docente permanente do Programa. | 30.0 | Regular |
| 4.3. Produção técnica, patentes e outras produções consideradas relevantes. | 20.0 | Bom |
"O programa apresentou como produção intelectual um total de 63 artigos completos no quadriênio. Entretanto, após a distribuição nos diferentes estratos do QUALIS, apenas 16 foram qualificados como produção relevante (extratos A1, A2 e B1). Tal montante corresponde a meio artigo relevante por docente por ano, aquém da média dos programas da área. Naturalmente, a autoria desses artigos concentra-se em uma fração inadequada do corpo docente. Cabe salientar que alguns docentes permanentes têm investido em solicitação de patentes. A lista de produção intelectual tem um alto número de trabalhos listados como capítulos de livros, e mesmo livros, mas não há justificativa da importância das obras conforme orientação do documento de área das Engenharias IV. Em vários casos, é claro tratar-se de comunicações em congressos (p/ex da série IFMBE Proceedings).". Informação retirada de : https://sucupira.capes.gov.br/sucupira/public/consultas/avaliacao/viewPreenchimentoFicha.jsf?idFicha=5739&popup=true
Por fim, sobre inserção social :
| Itens de Avaliação | Peso | Avaliação |
|:---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------:|------|----------:|
| 5.1. Inserção e impacto regional e (ou) nacional do programa. | 40.0 | Muito Bom |
| 5.2. Integração e cooperação com outros programas e centros de pesquisa e desenvolvimento profissional relacionados à área de conhecimento do programa, com vistas ao desenvolvimento da pesquisa e da pós-graduação. | 40.0 | Muito Bom |
| 5.3 - Visibilidade ou transparência dada pelo programa a sua atuação. | 20.0 | Muito Bom |
### Engenharia Elétrica P7
### Engenharia Elétrica P8
### Engenharia de Sistemas Eletrônicos e de Automação
# Entendimento do Negócio
A Universidade de Brasília é uma das grandes universidades federais, tendo enfoque na produção de artigos acadêmicos. Os programas a seguir são todos da área de avaliação ENGENHARIAS IV e serão analisados pelo trabalho como já exposto anteriormente:
## Programas de pós-graduação Grupo 15
| Nome do Programa | ME | DO | MP |
|---------------------------------------------------|-------------------------------------------------------------------|----|----|----|
| [ENGENHARIA ELÉTRICA (53001010059P8)](https://sucupira.capes.gov.br/sucupira/public/consultas/coleta/programa/viewPrograma.jsf?popup=true&&cd_programa=53001010059P8) | - | - | 3 |
| [ENGENHARIA ELÉTRICA (53001010080P7)](https://sucupira.capes.gov.br/sucupira/public/consultas/coleta/programa/viewPrograma.jsf?popup=true&&cd_programa=53001010080P7) | 4 | 4 | - |
| [ENGENHARIA DE SISTEMAS ELETRÔNICOS E DE AUTOMAÇÃO (53001010081P3)](https://sucupira.capes.gov.br/sucupira/public/consultas/coleta/programa/viewPrograma.jsf?popup=true&&cd_programa=53001010081P3) | 4 | 4 | - |
| [ENGENHARIA BIOMÉDICA (53001010083P6)](https://sucupira.capes.gov.br/sucupira/public/consultas/coleta/programa/viewPrograma.jsf?popup=true&&cd_programa=53001010083P6) | 3 | - | - |
Sendo o enfoque principal os dados referente a Engenharia Biomédica, que por sua vez possui muitas de suas pesquisas voltadas a novas soluções na área de Biomédica e demais áreas representadas na tabela acima acima.
## Avaliação das Circunstâncias
Este trabalho terá como principal circunstância o limite que os próprios dados obtidos por meio das plataformas elattes e sucupira impõem, delimitando a análise dos dados de acordo com a disponibilidade de informações disponíveis nesta plataforma.
# Entendimento dos Dados
## Coleta inicial dos dados
Todos os arquivos com dados iniciais a seguir apresentados foram fornecidos pelos professores responsóveis pela disciplina, através da plataforma elattes. Os dados foram gerados no mês de setembro de 2018, data em que o presente grupo começou a realizar o trabalho e compilam informações entre os anos de 2010 e 2017, das áreas expostas na seção anterior.
Os arquivos estão no formato JSON, sendo todos fornecidos pelos docentes responsável por esta disciplina.
###Perfil profissional dos docentes vinculados às pós-graduaçães
```{r echo=T, results='hide'}
json.perfil.biomed <- "dados-2018-2/engenharia-biomedica/279.profile.json"
file.info(json.perfil.biomed)
json.perfil.auto <- "dados-2018-2/engenharia-eletronicos-automacao/280.profile.json"
file.info(json.perfil.auto)
json.perfil.ele_p8 <- "dados-2018-2/engenharia-eletrica-p8/281.profile.json"
file.info(json.perfil.ele_p8)
json.perfil.ele_p7 <- "dados-2018-2/engenharia-eletrica-p7/282.profile.json"
file.info(json.perfil.ele_p7)
```
Os arquivos `r json.perfil.biomed`, `r json.perfil.auto`, `r json.perfil.ele_p7`, `r json.perfil.ele_p8 ` apresentam dados sobre o perfil de todos os docentes vinculados a programas de pós-graduação, em engenharia biomédica, automação, engenharia elétrica (p7 e p8), da UnB, entre 2010 e 2017.
###Orientações de mestrado e doutorado realizadas pelos docentes vinculados às pós-graduaçães
```{r echo=T, results='hide'}
json.advise.biomed <- "dados-2018-2/engenharia-biomedica/279.advise.json"
file.info(json.advise.biomed)
json.advise.auto <- "dados-2018-2/engenharia-eletronicos-automacao/280.advise.json"
file.info(json.advise.auto)
json.advise.ele_p8 <- "dados-2018-2/engenharia-eletrica-p8/281.advise.json"
file.info(json.advise.ele_p8)
json.advise.ele_p7 <- "dados-2018-2/engenharia-eletrica-p7/282.advise.json"
file.info(json.advise.ele_p7)
```
Os arquivos `r json.advise.biomed`, `r json.advise.auto`, `r json.advise.ele_p7`, `r json.advise.ele_p8 ` apresenta dados sobre o orientações de mestrado e doutorado feitas por todos os docentes vinculados a programas de pós-graduação em engenharia Biomédica e demais, da UnB, entre 2010 e 2017.
###Produção bibliográfica gerada pelos docentes vinculados às pós-graduaçães
```{r}
json.producao.bibliografica.biomed <- "dados-2018-2/engenharia-biomedica/279.publication.json"
file.info(json.producao.bibliografica.biomed)
json.producao.bibliografica.auto <- "dados-2018-2/engenharia-eletronicos-automacao/280.publication.json"
file.info(json.producao.bibliografica.auto)
json.producao.bibliografica.ele_p8 <- "dados-2018-2/engenharia-eletrica-p8/281.publication.json"
file.info(json.producao.bibliografica.ele_p8)
json.producao.bibliografica.ele_p7 <- "dados-2018-2/engenharia-eletrica-p7/282.publication.json"
file.info(json.producao.bibliografica.ele_p7)
```
Os arquivos `r json.producao.bibliografica.biomed`, `r json.producao.bibliografica.auto`, `r json.producao.bibliografica.ele_p7` e `r json.producao.bibliografica.ele_p8 ` apresenta dados sobre a Produção bibliográfica gerada por todos os docentes vinculados a programas de pós-graduação, em engenharia elétrica p7 e também as demais, da UnB, entre 2010 e 2017.
###ID's dos docentes participantes e o que contêm o arquivo list.json
```{r}
json.list.biomed <- "dados-2018-2/engenharia-biomedica/279.list.json"
file.info(json.list.biomed)
json.list.auto <- "dados-2018-2/engenharia-eletronicos-automacao/280.list.json"
file.info(json.list.auto)
json.list.ele_p8 <- "dados-2018-2/engenharia-eletrica-p8/281.list.json"
file.info(json.list.ele_p8)
json.list.ele_p7 <- "dados-2018-2/engenharia-eletrica-p7/282.list.json"
file.info(json.list.ele_p7)
```
Os arquivos `r json.list.biomed` apresenta o id de todos docentes vinculados a programas de pós-graduação descritos acima da UnB, entre 2010 e 2017.porém tal arquivo se mostra inútil, haja visto que só contêm o id e que as outras variáveis como __"nome"__ sempre tem seu valor igual a __""__.
###Redes de colaboração entre docentes
```{r}
json.graph.biomed<-'dados-2018-2/engenharia-biomedica/279.graph.json'
file.info(json.graph.biomed)
json.graph.auto <- "dados-2018-2/engenharia-eletronicos-automacao/280.graph.json"
file.info(json.graph.auto)
json.graph.ele_p8 <- "dados-2018-2/engenharia-eletrica-p8/281.graph.json"
file.info(json.graph.ele_p8)
json.graph.ele_p7 <- "dados-2018-2/engenharia-eletrica-p7/282.graph.json"
file.info(json.graph.ele_p7)
```
Os arquivos `r json.graph.biomed`, `r json.graph.ele_p7`, `r json.graph.ele_p8` e `r json.graph.auto` apresenta redes de colaboração na co-autoria de artigos cientifícos, feitas entre os docentes vinculados a programas de pós-graduação da UnB, entre 2010 e 2017.
##CRISP-DM Fase.Atividade 2.2 - Descrição dos Dados
Para ler e manipular inicialmente esses dados, seráo usadas primordialmente as bibliotecas seguintes
```{r library-load}
library(jsonlite)
library(listviewer)
library(readxl)
library(readr)
library(readtext)
library(ggplot2)
library(tidyverse)
library(stringr)
library(igraph)
library(tm)
library(wordcloud)
library(RColorBrewer)
library(SnowballC)
```
Com estas bibliotecas seremos capazes de responder e determinar qual o volume de dados, a estrutura dos dados (tipos), codificações usadas, etc..
###Descrição dos dados do perfil
#### Verificando engenharia Biomédica
```{r}
unb.prof.biomed <- fromJSON("dados-2018-2/engenharia-biomedica/279.profile.json")
```
A quantidade de docentes sob análise é apresentada a seguir.
```{r}
length(unb.prof.biomed)
```
Para um melhor entendimento é importante saber como os dados estão dispostos para algum número de ocorrência.
```{r}
### Usando glimpse
glimpse(unb.prof.biomed[[1]])
```
Podemos inferir que:
* Que o professor não é da área da engenharia elétrica, por formação, mas acabou por aderir a subárea engenharia Biomédica.
* não é nativo da UnB, sendo formado no UFG.
* Atualmente trabalha na UnB do Gama.
* Sua senioridade é de 9.
#### Verificando engenharia de sistemas eletrônicos e de automação
Fazendo processo similar para as outras áreas.
```{r}
unb.prof.auto <- fromJSON("dados-2018-2/engenharia-eletronicos-automacao/280.profile.json")
```
A quantidade de docentes sob análise é apresentada a seguir.
```{r}
length(unb.prof.auto)
```
Verificando terceiro elemento.
```{r}
### Usando glimpse
glimpse(unb.prof.auto[[3]])
```
Professor, senioridade 9, Adson Rocha formado na UnB, em 1988, em engenharia elétrica.
#### Verificando engenharia elétrica p8
```{r}
unb.prof.ele_p8 <- fromJSON("dados-2018-2/engenharia-eletrica-p8/281.profile.json")
```
A quantidade de docentes sob análise é apresentada a seguir.
```{r}
length(unb.prof.ele_p8)
```
Verificando oitavo elemento, para poder ter uma noção.
```{r}
### Usando glimpse
glimpse(unb.prof.ele_p8[[8]])
```
Trata-se do professor Anderson Clayton Alves Nascimento, formado na UnB em 1998, em engenharia elétrica, sendo sua especialidade em criptografia e sua senioridade é 8.
#### Verificando engenharia elétrica p7
```{r}
unb.prof.ele_p7 <- fromJSON("dados-2018-2/engenharia-eletrica-p7/282.profile.json")
```
A quantidade de docentes sob análise é apresentada a seguir.
```{r}
length(unb.prof.ele_p7)
```
Verificando sétimo elemento.
```{r}
### Usando glimpse
glimpse(unb.prof.ele_p7[[7]])
```
É o professor Sébastien, membro senior do IEEE, tem interesse em matemática aplicada na computação e em telecomunicações, atualmente está na UnB do Gama.
### Descrevendo dados de orientação
#### Engenharia biomédica
```{r}
###Descrição dos dados de orientações
unb.adv.biomed <- fromJSON("dados-2018-2/engenharia-biomedica/279.advise.json")
# Mostrando as listas presentes neste arquivo.
names(unb.adv.biomed)
# Explorando um nível de detalhe de Orientações de doutorados concluídas
names(unb.adv.biomed$ORIENTACAO_CONCLUIDA_DOUTORADO)
############## DOUTORADO 2017
#Buscando cursos que mais produziram doutorados.
head(sort(table(unb.adv.biomed$ORIENTACAO_CONCLUIDA_DOUTORADO$`2017`$curso), decreasing = TRUE), 10)
#Sabendo suas instituições
head(sort(table(unb.adv.biomed$ORIENTACAO_CONCLUIDA_DOUTORADO$`2017`$instituicao), decreasing = TRUE), 10)
#Sabendo seus orientadores
data_orienM <- capture.output(str(unb.adv.biomed$ORIENTACAO_CONCLUIDA_DOUTORADO$`2017`$nome_orientadores))
unique(data_orienM)
############## MESTRADO 2017
#Buscando cursos que mais produziram mestrados.
head(sort(table(unb.adv.biomed$ORIENTACAO_CONCLUIDA_MESTRADO$`2017`$curso), decreasing = TRUE), 10)
head(sort(table(unb.adv.biomed$ORIENTACAO_CONCLUIDA_MESTRADO$`2017`$instituicao), decreasing = TRUE), 10)
#Sabendo suas instituições
head(sort(table(unb.adv.biomed$ORIENTACAO_CONCLUIDA_MESTRADO$`2017`$instituicao), decreasing = TRUE), 10)
#Sabendo seus orientadores
data_orien <- capture.output(str(unb.adv.biomed$ORIENTACAO_CONCLUIDA_MESTRADO$`2017`$nome_orientadores))
unique(data_orien)
```
Como se pode perceber apenas um, professor que orientou doutorado concluido em 2017 ( "Marilia Miranda Forte Gomes") também fez parte dos professores que orientaram no mestrado:
* "Georges Daniel Amvame Nze"
* "Jose Felicio da Silva"
* "Lourdes Mattos Brasil"
* "Marcelino Monteiro de Andrade"
* "Marilia Miranda Forte Gomes"
* "Ronni Geraldo Gomes de Amorim"
Sendo o professor "Marcus Vinícius Chaffim Costa" responsável apenas por orientações de doutorado em 2017.
#### Engenharia eletrônicos e automação
#### Engenharia Elétrica p8
```{r}
###Descrição dos dados de orientações
unb.adv.ele_p8 <- fromJSON("dados-2018-2/engenharia-eletrica-p8/281.advise.json")
############## DOUTORADO 2017
#Buscando cursos que mais produziram doutorados.
head(sort(table(unb.adv.ele_p8$ORIENTACAO_CONCLUIDA_DOUTORADO$`2017`$curso), decreasing = TRUE), 10)
#Sabendo suas instituições
head(sort(table(unb.adv.ele_p8$ORIENTACAO_CONCLUIDA_DOUTORADO$`2017`$instituicao), decreasing = TRUE), 10)
#Sabendo seus orientadores
data_orienM <- capture.output(str(unb.adv.ele_p8$ORIENTACAO_CONCLUIDA_DOUTORADO$`2017`$nome_orientadores))
unique(data_orienM)
#Sabendo os nomes dos trabalhos
data_orienM <- capture.output(str(unb.adv.ele_p8$ORIENTACAO_CONCLUIDA_DOUTORADO$`2017`$titulo))
unique(data_orienM)
############## MESTRADO 2017
#Buscando cursos que mais produziram mestrados.
head(sort(table(unb.adv.ele_p8$ORIENTACAO_CONCLUIDA_MESTRADO$`2017`$curso), decreasing = TRUE), 10)
head(sort(table(unb.adv.ele_p8$ORIENTACAO_CONCLUIDA_MESTRADO$`2017`$instituicao), decreasing = TRUE), 10)
#Sabendo seus orientadores
data_orien3 <- capture.output(str(unb.adv.ele_p8$ORIENTACAO_CONCLUIDA_MESTRADO$`2017`$nome_orientadores))
unique(data_orien3)
#Sabendo seus orientados
data_orien2 <- capture.output(str(unb.adv.ele_p8$ORIENTACAO_CONCLUIDA_MESTRADO$`2017`$nome_aluno))
unique(data_orien2)
```
Mais uma vez, os dados mais atualizados são de 2017. Há apenas 3 doutorados concluidos em 2017, sendo duas na UnB e uma em conjunto com o Instituto de Computação. Os orientadores são:
* "Anderson de Rezende Rocha"
* "Joao Paulo Carvalho Lustosa da Costa"
* "Rafael Timóteo de Sousa Jr"
Um dos trabalhos tem o título : "iSuper-resolution in low-quality videos for forensics, surveillance, and mobile applications".
Já no mestrado, podemos ver um grande problema da ciência de dados, o tratamento dos mesmos.
#### Engenharia Elétrica p7
```{r}
###Descrição dos dados de orientações
unb.adv.ele_p7 <- fromJSON("dados-2018-2/engenharia-eletrica-p7/282.advise.json")
############## DOUTORADO 2017
#Buscando cursos que mais produziram doutorados.
head(sort(table(unb.adv.ele_p7$ORIENTACAO_CONCLUIDA_DOUTORADO$`2017`$curso), decreasing = TRUE), 10)
#Sabendo suas instituições
head(sort(table(unb.adv.ele_p7$ORIENTACAO_CONCLUIDA_DOUTORADO$`2017`$instituicao), decreasing = TRUE), 10)
#Sabendo seus orientadores
data_orienM <- capture.output(str(unb.adv.ele_p7$ORIENTACAO_CONCLUIDA_DOUTORADO$`2017`$nome_orientadores))
unique(data_orienM)
#Sabendo os nomes dos trabalhos
data_orienM <- capture.output(str(unb.adv.ele_p7$ORIENTACAO_CONCLUIDA_DOUTORADO$`2017`$titulo))
unique(data_orienM)
############## MESTRADO 2017
#Buscando cursos que mais produziram mestrados.
head(sort(table(toupper(unb.adv.ele_p7$ORIENTACAO_CONCLUIDA_MESTRADO$`2017`$curso)), decreasing = TRUE), 10)
head(sort(table(unb.adv.ele_p7$ORIENTACAO_CONCLUIDA_MESTRADO$`2017`$instituicao), decreasing = TRUE), 10)
#Sabendo seus orientadores
data_orien3 <- capture.output(str(unb.adv.ele_p7$ORIENTACAO_CONCLUIDA_MESTRADO$`2017`$nome_orientadores))
unique(data_orien3)
#Sabendo seus orientados
data_orien2 <- capture.output(str(unb.adv.ele_p7$ORIENTACAO_CONCLUIDA_MESTRADO$`2017`$nome_aluno))
unique(data_orien2)
```
Há apenas três doutorados concluídos em 2017 e 14 mestados neste mesmo ano. Os professores Rafael Timóteio e João da Costa orientaram mestrados e doutorados concluídos em 2017. Houve um aluno da Universitat Ilmenau - Binghua Guo, "Low Complexity Schemes to Semi-Blind Joint Channel and Symbol Estimation in MIMO-OFDM" .
###Descrição dos dados list.json
####Descrição de biomedicina
```{r}
unb.list.biomed <- fromJSON("dados-2018-2/engenharia-biomedica/279.list.json")
#analisando a quantidade de elementos presente em list.json
length(unb.list.biomed$fiocruz$id)
# Mostrando alguns id, verificar que eles são diferentes
d_listID <- unb.list.biomed$fiocruz$id
unique(d_listID)
#Mostrando nome sempre igual ""
d_listNO <- unb.list.biomed$fiocruz$nome
unique(d_listNO)
#Mostrando periodo sempre igual 2010-2017
d_listDT <- unb.list.biomed$fiocruz$periodo
unique(d_listDT)
```
Feito a análise, percebe-se que apenas o campo id que muda, tanto __"nome"__ (obtendo sempre o valor "") e __"periodo"__(obtendo sempre o valor["2010","2017"]), por isso considera-se este arquivo JSON como inútil, haja visto que não há matemática para obter quaisquer dado plaúsivel, somente os id.
####Descrição de engenharia de automação
```{r}
unb.list.auto <- fromJSON("dados-2018-2/engenharia-eletronicos-automacao/280.list.json")
#analisando a quantidade de elementos presente em list.json
length(unb.list.auto$fiocruz$id)
# Mostrando alguns id, verificar que eles são diferentes
d_listID <- unb.list.auto$fiocruz$id
unique(d_listID)
#Mostrando nome sempre igual ""
d_listNO <- unb.list.auto$fiocruz$nome
unique(d_listNO)
#Mostrando periodo sempre igual 2010-2017
d_listDT <- unb.list.auto$fiocruz$periodo
unique(d_listDT)
```
Novamente, considera-se este arquivo JSON como inútil, haja visto que não tem matemática para obter quaisquer dado plaúsivel, somente os id.
####Descrição de engenharia elétrica p8
```{r}
unb.list.ele_p8 <- fromJSON("dados-2018-2/engenharia-eletrica-p8/281.list.json")
#analisando a quantidade de elementos presente em list.json
length(unb.list.ele_p8$fiocruz$id)
# Mostrando alguns id, verificar que eles são diferentes
d_listID <- unb.list.ele_p8$fiocruz$id
unique(d_listID)
#Mostrando nome sempre igual ""
d_listNO <- unb.list.ele_p8$fiocruz$nome
unique(d_listNO)
#Mostrando periodo sempre igual 2010-2017
d_listDT <- unb.list.ele_p8$fiocruz$periodo
unique(d_listDT)
```
Sendo este arquivo JSON sem qualquer significado, haja visto que não há matemática para obter quaisquer dado plaúsivel, somente os id.
####Descrição de engenharia elétrica p7
```{r}
unb.list.ele_p7 <- fromJSON("dados-2018-2/engenharia-eletrica-p7/282.list.json")
#analisando a quantidade de elementos presente em list.json
length(unb.list.ele_p7$fiocruz$id)
# Mostrando alguns id, verificar que eles são diferentes
d_listID <- unb.list.ele_p7$fiocruz$id
unique(d_listID)
#Mostrando nome sempre igual ""
d_listNO <- unb.list.ele_p7$fiocruz$nome
unique(d_listNO)
#Mostrando periodo sempre igual 2010-2017
d_listDT <- unb.list.ele_p7$fiocruz$periodo
unique(d_listDT)
```
Novamente, arquivo JSON sem qualquer significado, haja visto que não tem matemática para obter quaisquer dado plaúsivel, somente os id.
###Descrição dos dados de Produção bibliográfica
####TODO LIST : VERIFICAR
* automação
####Verificando engenharia biomédica
```{r}
unb.pub.biomed <- fromJSON("dados-2018-2/engenharia-biomedica/279.publication.json")
# Verificando os tipos de produções que existe.
names(unb.pub.biomed)
#Analisando o qual tipo de informação se tem em periódicos no ano 2012.
names(unb.pub.biomed$PERIODICO$`2012`)
#Nomes dos periódicos em que tiveram mais publicações na área de engenharia Biomédica.
head(sort(table(unb.pub.biomed$PERIODICO$`2017`$periodico), decreasing = TRUE), 10)
#Nomes dos periódicos em que tiveram mais publicações de artigos aceitos na área de engenharia Biomédica da UnB no 2017.
head(sort(table(unb.pub.biomed$ARTIGO_ACEITO$`2017`$periodico), decreasing = TRUE), 10)
#Nomes dos autores que produziram um tipo de Produção que não estava contemplada .
head(sort(table(unb.pub.biomed$DEMAIS_TIPOS_DE_PRODUCAO_BIBLIOGRAFICA$`2011`$autores), decreasing = TRUE), 10)
```
####Verificando engenharia automação
####Verificando engenharia elétrica p8
```{r}
unb.pub.ele_p8 <- fromJSON("dados-2018-2/engenharia-eletrica-p8/281.publication.json")
# Verificando os tipos de produções que existe.
names(unb.pub.ele_p8)
#Analisando o qual tipo de informação se tem em periódicos no ano 2012.
names(unb.pub.ele_p8$PERIODICO$`2012`)
#Nomes dos periódicos em que tiveram mais publicações na área de engenharia Biomédica.
head(sort(table(unb.pub.ele_p8$PERIODICO$`2017`$periodico), decreasing = TRUE), 10)
#Nomes dos periódicos em que tiveram mais publicações de artigos aceitos na área de engenharia Biomédica da UnB no 2017.
head(sort(table(unb.pub.ele_p8$ARTIGO_ACEITO$`2017`$periodico), decreasing = TRUE), 10)
#Nomes dos autores que produziram um tipo de Produção que não estava contemplada em 2011 .
head(sort(table(unb.pub.ele_p8$DEMAIS_TIPOS_DE_PRODUCAO_BIBLIOGRAFICA$`2011`$autores), decreasing = TRUE), 10)
```
####Verificando engenharia elétrica p7
```{r}
unb.pub.ele_p7 <- fromJSON("dados-2018-2/engenharia-eletrica-p7/282.publication.json")
# Verificando os tipos de produções que existe.
names(unb.pub.ele_p7)
#Analisando o qual tipo de informação se tem em periódicos no ano 2012.
names(unb.pub.ele_p7$PERIODICO$`2012`)
#Nomes dos periódicos em que tiveram mais publicações na área de engenharia Biomédica.
head(sort(table(unb.pub.ele_p7$PERIODICO$`2017`$periodico), decreasing = TRUE), 10)
#Nomes dos periódicos em que tiveram mais publicações de artigos aceitos na área de engenharia Biomédica da UnB no 2017.
head(sort(table(unb.pub.ele_p7$ARTIGO_ACEITO$`2017`$periodico), decreasing = TRUE), 10)
#Nomes dos autores que produziram um tipo de Produção que não estava contemplada em 2014.
head(sort(table(unb.pub.ele_p7$DEMAIS_TIPOS_DE_PRODUCAO_BIBLIOGRAFICA$`2014`$autores), decreasing = TRUE), 10)
```
###Descrição dos dados de redes de colaboração
####TODO LIST : VERIFICAR
* automação
####Verificando engenharia biomédica
```{r}
unb.graph.biomed <- fromJSON("dados-2018-2/engenharia-biomedica/279.graph.json")
# Suas variáveis
names(unb.graph.biomed)
# Quantidade de nós
length(unb.graph.biomed$nodes$id)
# Quantidade de links de fonte
length(unb.graph.biomed$links$source)
# Quantidade de links de chegada
length(unb.graph.biomed$links$target)
#exemplos de pesos da aresta
str(unb.graph.biomed$links$weigth)
```
#### Engenharia automação e eletrônica
#### Engenharia elétrica p8
```{r}
unb.graph.ele_p8 <- fromJSON("dados-2018-2/engenharia-eletrica-p8/281.graph.json")
# Suas variáveis
names(unb.graph.ele_p8)
# Quantidade de nós
length(unb.graph.ele_p8$nodes$id)
# Quantidade de links de fonte
length(unb.graph.ele_p8$links$source)
# Quantidade de links de chegada
length(unb.graph.ele_p8$links$target)
#exemplos de pesos da aresta
str(unb.graph.ele_p8$links$weigth)
```
#### Engenharia elétrica p7
```{r}
unb.graph.ele_p7 <- fromJSON("dados-2018-2/engenharia-eletrica-p7/282.graph.json")
# Suas variáveis
names(unb.graph.ele_p7)
# Quantidade de nós
length(unb.graph.ele_p7$nodes$id)
# Quantidade de links de fonte
length(unb.graph.ele_p7$links$source)
# Quantidade de links de chegada
length(unb.graph.ele_p7$links$target)
#exemplos de pesos da aresta
str(unb.graph.ele_p7$links$weigth)
```
##CRISP-DM Fase.Atividade 2.3 - análise exploratéria dos dados
###Arquivo Profile
####TODO LIST : VERIFICAR
* automação
####Verificando engenharia biomédica
```{r}
# Total de áreas de atuação de todos profissionais
sum(sapply(unb.prof.biomed, function(x) nrow(x$areas_de_atuacao)))
# número de pessoas por grande area
table(unlist(sapply(unb.prof.biomed, function(x) (x$areas_de_atuacao$grande_area))))
# número de pessoas que produziram os tipos de Produção específico
table(unlist(sapply(unb.prof.biomed, function(x) names(x$producao_bibiografica))))
# número de publicações por tipo
#####ARTIGO ACEITO###############
sum(sapply(unb.prof.biomed, function(x) length(x$producao_bibiografica$ARTIGO_ACEITO$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.biomed, function(x) length(x$producao_bibiografica$ARTIGO_ACEITO$ano))))
#####CAPITULO DE LIVRO###############
sum(sapply(unb.prof.biomed, function(x) length(x$producao_bibiografica$CAPITULO_DE_LIVRO$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.biomed, function(x) length(x$producao_bibiografica$CAPITULO_DE_LIVRO$ano))))
#####LIVRO###############
sum(sapply(unb.prof.biomed, function(x) length(x$producao_bibiografica$LIVRO$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.biomed, function(x) length(x$producao_bibiografica$LIVRO$ano))))
#####periódico###############
sum(sapply(unb.prof.biomed, function(x) length(x$producao_bibiografica$PERIODICO$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.biomed, function(x) length(x$producao_bibiografica$PERIODICO$ano))))
#####TEXTO EM JORNAIS###############
sum(sapply(unb.prof.biomed, function(x) length(x$producao_bibiografica$TEXTO_EM_JORNAIS$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.biomed, function(x) length(x$producao_bibiografica$TEXTO_EM_JORNAIS$ano))))
#####DEMAIS TIPOS###############
sum(sapply(unb.prof.biomed, function(x) length(x$producao_bibiografica$DEMAIS_TIPOS_DE_PRODUCAO_BIBLIOGRAFICA$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.biomed, function(x) length(x$producao_bibiografica$DEMAIS_TIPOS_DE_PRODUCAO$ano))))
# número de produções por ano
table(unlist(sapply(unb.prof.biomed, function(x) (x$producao_bibiografica$ARTIGO_ACEITO$ano))))
table(unlist(sapply(unb.prof.biomed, function(x) (x$producao_bibiografica$CAPITULO_DE_LIVRO$ano))))
table(unlist(sapply(unb.prof.biomed, function(x) (x$producao_bibiografica$LIVRO$ano))))
table(unlist(sapply(unb.prof.biomed, function(x) (x$producao_bibiografica$PERIODICO$ano))))
table(unlist(sapply(unb.prof.biomed, function(x) (x$producao_bibiografica$TEXTO_EM_JORNAIS$ano))))
# número de pessoas que realizaram diferentes tipos de orientações
length(unlist(sapply(unb.prof.biomed, function(x) names(x$orientacoes_academicas))))
# número de pessoas por tipo de orientação
table(unlist(sapply(unb.prof.biomed, function(x) names(x$orientacoes_academicas))))
#número de orientações concluidas
sum(sapply(unb.prof.biomed, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_MESTRADO$ano)))
sum(sapply(unb.prof.biomed, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_DOUTORADO$ano)))
sum(sapply(unb.prof.biomed, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_POS_DOUTORADO$ano)))
# número de pessoas por quantitativo de orientações por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.biomed, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_MESTRADO$ano))))
table(unlist(sapply(unb.prof.biomed, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_DOUTORADO$ano))))
table(unlist(sapply(unb.prof.biomed, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_POS_DOUTORADO$ano))))
# número de orientações por ano
table(unlist(sapply(unb.prof.biomed, function(x) (x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_MESTRADO$ano))))
table(unlist(sapply(unb.prof.biomed, function(x) (x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_DOUTORADO$ano))))
table(unlist(sapply(unb.prof.biomed, function(x) (x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_POS_DOUTORADO$ano))))
```
Pelos dados, a maioria dos profissionais atuam na área de engenharia (34). A maioria da produão científica é dada pela pubilicações em periódicos. Um fato interessante é que em 2015 houve um grande número de capítulos de livro publicado, fugindo do padrão de 4. Há apenas um texto em jornal publicado em 2010. Houve apeans dois pós-doutorado feito em biomédica na UnB em 2014 e 2017.
####Verificando engenharia automação
####Verificando engenharia elétrica p8
```{r}
# Total de áreas de atuação de todos profissionais
sum(sapply(unb.prof.ele_p8, function(x) nrow(x$areas_de_atuacao)))
# número de pessoas por grande area
table(unlist(sapply(unb.prof.ele_p8, function(x) (x$areas_de_atuacao$grande_area))))
# número de pessoas que produziram os tipos de Produção específico
table(unlist(sapply(unb.prof.ele_p8, function(x) names(x$producao_bibiografica))))
# número de publicações por tipo
#####ARTIGO ACEITO###############
sum(sapply(unb.prof.ele_p8, function(x) length(x$producao_bibiografica$ARTIGO_ACEITO$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p8, function(x) length(x$producao_bibiografica$ARTIGO_ACEITO$ano))))
#####CAPITULO DE LIVRO###############
sum(sapply(unb.prof.ele_p8, function(x) length(x$producao_bibiografica$CAPITULO_DE_LIVRO$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p8, function(x) length(x$producao_bibiografica$CAPITULO_DE_LIVRO$ano))))
#####LIVRO###############
sum(sapply(unb.prof.ele_p8, function(x) length(x$producao_bibiografica$LIVRO$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p8, function(x) length(x$producao_bibiografica$LIVRO$ano))))
#####periódico###############
sum(sapply(unb.prof.ele_p8, function(x) length(x$producao_bibiografica$PERIODICO$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p8, function(x) length(x$producao_bibiografica$PERIODICO$ano))))
#####TEXTO EM JORNAIS###############
sum(sapply(unb.prof.ele_p8, function(x) length(x$producao_bibiografica$TEXTO_EM_JORNAIS$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p8, function(x) length(x$producao_bibiografica$TEXTO_EM_JORNAIS$ano))))
#####DEMAIS TIPOS###############
sum(sapply(unb.prof.ele_p8, function(x) length(x$producao_bibiografica$DEMAIS_TIPOS_DE_PRODUCAO_BIBLIOGRAFICA$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p8, function(x) length(x$producao_bibiografica$DEMAIS_TIPOS_DE_PRODUCAO$ano))))
# número de produções por ano
table(unlist(sapply(unb.prof.ele_p8, function(x) (x$producao_bibiografica$ARTIGO_ACEITO$ano))))
table(unlist(sapply(unb.prof.ele_p8, function(x) (x$producao_bibiografica$CAPITULO_DE_LIVRO$ano))))
table(unlist(sapply(unb.prof.ele_p8, function(x) (x$producao_bibiografica$LIVRO$ano))))
table(unlist(sapply(unb.prof.ele_p8, function(x) (x$producao_bibiografica$PERIODICO$ano))))
table(unlist(sapply(unb.prof.ele_p8, function(x) (x$producao_bibiografica$TEXTO_EM_JORNAIS$ano))))
# número de pessoas que realizaram diferentes tipos de orientações
length(unlist(sapply(unb.prof.ele_p8, function(x) names(x$orientacoes_academicas))))
# número de pessoas por tipo de orientação
table(unlist(sapply(unb.prof.ele_p8, function(x) names(x$orientacoes_academicas))))
#número de orientações concluidas
sum(sapply(unb.prof.ele_p8, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_MESTRADO$ano)))
sum(sapply(unb.prof.ele_p8, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_DOUTORADO$ano)))
sum(sapply(unb.prof.ele_p8, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_POS_DOUTORADO$ano)))
# número de pessoas por quantitativo de orientações por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p8, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_MESTRADO$ano))))
table(unlist(sapply(unb.prof.ele_p8, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_DOUTORADO$ano))))
table(unlist(sapply(unb.prof.ele_p8, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_POS_DOUTORADO$ano))))
# número de orientações por ano
table(unlist(sapply(unb.prof.ele_p8, function(x) (x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_MESTRADO$ano))))
table(unlist(sapply(unb.prof.ele_p8, function(x) (x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_DOUTORADO$ano))))
table(unlist(sapply(unb.prof.ele_p8, function(x) (x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_POS_DOUTORADO$ano))))
# números de orientações não concluidas por ano
# Trabalho de mestrado em andamento
table(unlist(sapply(unb.prof.ele_p8, function(x) (x$orientacoes_academicas$ORIENTACAO_EM_ANDAMENTO_MESTRADO$ano))))
# DOUTORADO em andamento
table(unlist(sapply(unb.prof.ele_p8, function(x) (x$orientacoes_academicas$ORIENTACAO_EM_ANDAMENTO_DOUTORADO$ano))))
# Trabalho de Graduação em andamento
table(unlist(sapply(unb.prof.ele_p8, function(x) (x$orientacoes_academicas$ORIENTACAO_EM_ANDAMENTO_GRADUACAO$ano))))
```
Em engenharia elétrica p8, tem uma boa divisão das grandes áreas dos orientadores, 20 para ciências exatas e da terra e 24 para engenharias, que é maioria de todas as pesquisas feitas. Houve 108 orientações concluidas de mestrado e apenas 17 doutorado, que não é tão diferente de pós-doutorados: 12. Há um doutorado de 2013 que não foi concluido ainda.
####Verificando engenharia elétrica p7
```{r}
# Total de áreas de atuação de todos profissionais
sum(sapply(unb.prof.ele_p7, function(x) nrow(x$areas_de_atuacao)))
# número de pessoas por grande area
table(unlist(sapply(unb.prof.ele_p7, function(x) (x$areas_de_atuacao$grande_area))))
# número de pessoas que produziram os tipos de Produção específico
table(unlist(sapply(unb.prof.ele_p7, function(x) names(x$producao_bibiografica))))
# número de publicações por tipo
#####ARTIGO ACEITO###############
sum(sapply(unb.prof.ele_p7, function(x) length(x$producao_bibiografica$ARTIGO_ACEITO$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p7, function(x) length(x$producao_bibiografica$ARTIGO_ACEITO$ano))))
#####CAPITULO DE LIVRO###############
sum(sapply(unb.prof.ele_p7, function(x) length(x$producao_bibiografica$CAPITULO_DE_LIVRO$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p7, function(x) length(x$producao_bibiografica$CAPITULO_DE_LIVRO$ano))))
#####LIVRO###############
sum(sapply(unb.prof.ele_p7, function(x) length(x$producao_bibiografica$LIVRO$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p7, function(x) length(x$producao_bibiografica$LIVRO$ano))))
#####periódico###############
sum(sapply(unb.prof.ele_p7, function(x) length(x$producao_bibiografica$PERIODICO$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p7, function(x) length(x$producao_bibiografica$PERIODICO$ano))))
#####TEXTO EM JORNAIS###############
sum(sapply(unb.prof.ele_p7, function(x) length(x$producao_bibiografica$TEXTO_EM_JORNAIS$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p7, function(x) length(x$producao_bibiografica$TEXTO_EM_JORNAIS$ano))))
#####DEMAIS TIPOS###############
sum(sapply(unb.prof.ele_p7, function(x) length(x$producao_bibiografica$DEMAIS_TIPOS_DE_PRODUCAO_BIBLIOGRAFICA$ano)))
# número de pessoas por quantitativo de produções por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p7, function(x) length(x$producao_bibiografica$DEMAIS_TIPOS_DE_PRODUCAO$ano))))
# número de produções por ano
table(unlist(sapply(unb.prof.ele_p7, function(x) (x$producao_bibiografica$ARTIGO_ACEITO$ano))))
table(unlist(sapply(unb.prof.ele_p7, function(x) (x$producao_bibiografica$CAPITULO_DE_LIVRO$ano))))
table(unlist(sapply(unb.prof.ele_p7, function(x) (x$producao_bibiografica$LIVRO$ano))))
table(unlist(sapply(unb.prof.ele_p7, function(x) (x$producao_bibiografica$PERIODICO$ano))))
table(unlist(sapply(unb.prof.ele_p7, function(x) (x$producao_bibiografica$TEXTO_EM_JORNAIS$ano))))
# número de pessoas que realizaram diferentes tipos de orientações
length(unlist(sapply(unb.prof.ele_p7, function(x) names(x$orientacoes_academicas))))
# número de pessoas por tipo de orientação
table(unlist(sapply(unb.prof.ele_p7, function(x) names(x$orientacoes_academicas))))
#número de orientações concluidas
sum(sapply(unb.prof.ele_p7, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_MESTRADO$ano)))
sum(sapply(unb.prof.ele_p7, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_DOUTORADO$ano)))
sum(sapply(unb.prof.ele_p7, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_POS_DOUTORADO$ano)))
# número de pessoas por quantitativo de orientações por pessoa 0 = 1; 1 = 2...
table(unlist(sapply(unb.prof.ele_p7, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_MESTRADO$ano))))
table(unlist(sapply(unb.prof.ele_p7, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_DOUTORADO$ano))))
table(unlist(sapply(unb.prof.ele_p7, function(x) length(x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_POS_DOUTORADO$ano))))
# número de orientações por ano
table(unlist(sapply(unb.prof.ele_p7, function(x) (x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_MESTRADO$ano))))
table(unlist(sapply(unb.prof.ele_p7, function(x) (x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_DOUTORADO$ano))))
table(unlist(sapply(unb.prof.ele_p7, function(x) (x$orientacoes_academicas$ORIENTACAO_CONCLUIDA_POS_DOUTORADO$ano))))
# números de orientações não concluidas por ano
# Trabalho de mestrado em andamento
table(unlist(sapply(unb.prof.ele_p7, function(x) (x$orientacoes_academicas$ORIENTACAO_EM_ANDAMENTO_MESTRADO$ano))))
# DOUTORADO em andamento
table(unlist(sapply(unb.prof.ele_p7, function(x) (x$orientacoes_academicas$ORIENTACAO_EM_ANDAMENTO_DOUTORADO$ano))))
# Trabalho de Graduação em andamento
table(unlist(sapply(unb.prof.ele_p7, function(x) (x$orientacoes_academicas$ORIENTACAO_EM_ANDAMENTO_GRADUACAO$ano))))
```
Por fim, na área de engenharia elétrica - "p7", vê-se, novamente, um domínio da grande área de engenharias, como era de se esperar. Em 2016, é possível observar que se teve o maior numero de publicações em períodicos, 42 no total.
Sobre as orientações, dos temas desta pesquisa, foi a que teve mais equilíbrio entre o número de profissionais de mestrados e os que trabalham com doutorados concluídos, tendo uma diferença de 5. Especificamente, sobre as orientações vê-se um enorme número de mestrados concluídos desde 2011, com valor baixo em 2010 (6 no total, número similar a de doutorados feitos: 4, naquele mesmo ano). Um dado que pode ser alarmante é que ainda existe têm dois doutorados iniciados em 2013 que não estão concluídos ainda, estando em seu último ano, pois o tempo máximo do mestrado é de 5 anos, já do mestrado há 4 trabalhos que estão no último ano possível.
###Arquivo publicação
####TODO LIST : VERIFICAR
* automação
####Verificando engenharia biomédica
```{r}
#Criando um data-frame com todos os anos
unb.pub.biomed.df <- data.frame()
for (i in 1:length(unb.pub.biomed[[1]]))
unb.pub.biomed.df <- rbind(unb.pub.biomed.df, unb.pub.biomed$PERIODICO[[i]])
#glimpse(unb.pub.biomed.df)
# Limpando o data-frame de listas
unb.pub.biomed.df$autores <- gsub("\",\"|\", \"", "; ", unb.pub.biomed.df$autores)
unb.pub.biomed.df$autores <- gsub("\"|c\\(|\\)", "", unb.pub.biomed.df$autores)
unb.pub.biomed.df$`autores-endogeno` <- gsub(",", ";", unb.pub.biomed.df$`autores-endogeno`)
unb.pub.biomed.df$`autores-endogeno` <- gsub("\"|c\\(|\\)", "", unb.pub.biomed.df$`autores-endogeno`)
#glimpse(unb.pub.biomed.df)
### ARQUIVO PROCESSADO E LIMPO
## publicações por natureza - todas foram completas
table(unb.pub.biomed.df$natureza)
## publicações 2010 até 2017
table(unb.pub.biomed.df$ano)
## publicações por periódico, mostrando os top-5 na área de Biomédica
d <- table(unb.pub.biomed.df$periodico)
head(sort(d,decreasing = TRUE),n=5)
## Mostrando os autores que tiveram mais publicação
### Neste caso é importante mostra que como a não uniformidade de como se escreve acaba por tornar este dado defasado
head(sort(table(toupper(unlist(strsplit(unb.pub.biomed.df$autores,";")))),decreasing = TRUE),n=10)
## Mostrando os autores-endogeno que tiveram mais publicação