Quiz - İsmet

library(readxl)
library(dplyr)

Attaching package: 'dplyr'
The following objects are masked from 'package:stats':

    filter, lag
The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union
df <- read_excel("Incites Researchers.xlsx", sheet = "Incites Researchers")
New names:
• `` -> `...19`
• `` -> `...20`
• `` -> `...21`
• `` -> `...22`
• `` -> `...23`
• `` -> `...24`
• `` -> `...25`
• `` -> `...26`
• `` -> `...27`
• `` -> `...28`
• `` -> `...29`
• `` -> `...30`
• `` -> `...31`
unique(df$aff1)
  [1] "Bogazici University"                                 
  [2] "Izmir Ekonomi Universitesi"                          
  [3] "German Int Univ"                                     
  [4] "Akdeniz University"                                  
  [5] "University of Padua"                                 
  [6] "Dokuz Eylul University"                              
  [7] "University of Health Sciences Turkey"                
  [8] "Izmir Institute of Technology"                       
  [9] "Ghent University"                                    
 [10] "Marmara University"                                  
 [11] "Tampere University"                                  
 [12] "Hacettepe University"                                
 [13] "University of Iceland"                               
 [14] "Royal College of Surgeons - Ireland"                 
 [15] "University of Ljubljana"                             
 [16] "Suleyman Demirel University"                         
 [17] "Balikesir University"                                
 [18] "Universitat Greifswald"                              
 [19] "University of Hamburg"                               
 [20] "Ankara University"                                   
 [21] "Geisinger Health System"                             
 [22] "Sabanci University"                                  
 [23] "Izmir Democracy University"                          
 [24] "Istanbul Medeniyet University"                       
 [25] "Kutahya Health Sciences University"                  
 [26] "Roehampton University"                               
 [27] "United Arab Emirates University"                     
 [28] "Koc University"                                      
 [29] "Celal Bayar University"                              
 [30] "La Trobe University"                                 
 [31] "Izmir Katip Celebi University"                       
 [32] "Inst Psychotherapy"                                  
 [33] "Yeditepe University"                                 
 [34] "Tnaztepe Univ"                                       
 [35] "Ecole de Technologie Superieure - Canada"            
 [36] "Bahcesehir University"                               
 [37] "Ericsson"                                            
 [38] "Izmir Biomedicine & Genome Center"                   
 [39] "Izmir Econon Univ"                                   
 [40] "Istanbul University"                                 
 [41] "Tarsus University"                                   
 [42] "Izmir University of Bakircay"                        
 [43] "Flywheel io"                                         
 [44] "Formerly Cengiz Insaat Sanayi Ticaret AS"            
 [45] "Univ Hlth Sci Fatih Sultan Mehmet Hlth Res & Appli"  
 [46] "Manas Enerji Yonetimi Sanayi & Ticaret AS"           
 [47] "Istanbul Technical University"                       
 [48] "Mayo Clinic"                                         
 [49] "Philips Healthcare"                                  
 [50] "Fitchburg State College"                             
 [51] "Norwegian University of Science & Technology (NTNU)" 
 [52] "University of Twente"                                
 [53] "Izmir Tepecik Training & Research Hospital"          
 [54] "Medicana Int Izmir Hosp"                             
 [55] "Ege University"                                      
 [56] "Norm Civata"                                         
 [57] "Yasar University"                                    
 [58] "Kent Hospital"                                       
 [59] "Izmir Univ Econ Med PointHosp"                       
 [60] "Izmir IVF"                                           
 [61] "Private Clin"                                        
 [62] "The New School"                                      
 [63] "Ufuk University"                                     
 [64] "Inonu University"                                    
 [65] "Turkish Aerosp"                                      
 [66] "Uludag University"                                   
 [67] "Trakya University"                                   
 [68] "University of Virginia"                              
 [69] "Near East University"                                
 [70] "İzmir Ataturk Res & Educ Hosp"                       
 [71] "Invivyd Inc"                                         
 [72] "Izmir University"                                    
 [73] "Technical University of Munich"                      
 [74] "University of Liverpool"                             
 [75] "Gaziantep University"                                
 [76] "Nora Global Logist Inc"                              
 [77] "Gazi University"                                     
 [78] "Ministry of Health - Turkey"                         
 [79] "Ruprecht Karls University Heidelberg"                
 [80] "Nokia Corporation"                                   
 [81] "Boston Children's Hospital"                          
 [82] "Dicle University"                                    
 [83] "Istanbul University - Cerrahpasa"                    
 [84] "Kafkas University"                                   
 [85] "Medical Park Hospitals Group"                        
 [86] "Acibadem City Hosp"                                  
 [87] "Istanbul Bilgi University"                           
 [88] "Ankara Bilkent City Childrens Hosp"                  
 [89] "University of Missouri Kansas City"                  
 [90] "Paige"                                               
 [91] "North Carolina State University"                     
 [92] "Sancaktepe Prof Dr Ilhan Varank Res & Training Hos"  
 [93] "Ankara Bilkent City Hosp"                            
 [94] "Canakkale Onsekiz Mart University"                   
 [95] "Izmir Econ Univ"                                     
 [96] "Orthopaed & Traumatol EMOT Hosp"                     
 [97] "University of Milan"                                 
 [98] "University Hospital Southampton NHS Foundation Trust"
 [99] "Murdoch Children's Research Institute"               
[100] "Isala Heart Ctr"                                     
[101] "Inst Dev Res Advocacy & Appl Care"                   
[102] "Namik Kemal University"                              
[103] "Hatay Mustafa Kemal University"                      
[104] "Amgen"                                               
[105] "Karadeniz Technical University"                      
[106] "Ekonomi Univ"                                        
[107] "Ataturk University"                                  
[108] "University of Illinois Chicago"                      
[109] "Hamad Bin Khalifa University-Qatar"                  
[110] "Kocaeli University"                                  
[111] "Carleton University"                                 
[112] "Arkin University of Creative Arts & Design"          
[113] "Pharmaron UK Ltd"                                    
[114] "Queens University Belfast"                           
[115] "University of Miami"                                 
[116] "Izmir Univ Econ Medicalpoint Hosp"                   
[117] "Bozok University"                                    
[118] "Izmir Tinaztepe University"                          
[119] "Hekim Univ"                                          
[120] "University of Amsterdam"                             
[121] "Hasselt University"                                  
[122] "Mersin University"                                   
[123] "Med Point Hosp"                                      
[124] "Hospital Clinico Universitario Virgen de la Arrixaca"
ieu <- df %>%
  filter(aff1 == "Izmir Ekonomi Universitesi")


nrow(ieu)
[1] 630
# Histogram
hist(ieu$impact,
     main = "Histogram of Impact (Izmir Ekonomi Universitesi)",
     xlab = "Impact",
     ylab = "Frequency")

# Boxplot
boxplot(ieu$impact,
        main = "Boxplot of Impact (Izmir Ekonomi Universitesi)",
        ylab = "Impact")

# Özet istatistikler
summary(ieu$impact)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
 0.0000  0.0000  0.2409  0.6888  0.7804 33.0800 
sd(ieu$impact, na.rm = TRUE)
[1] 1.870737
IQR(ieu$impact, na.rm = TRUE)
[1] 0.7804
# Aykırı değerler
boxplot.stats(ieu$impact)$out
 [1] 33.080000 20.084800 12.858500  9.741700  9.018800  8.269050  6.246667
 [8]  5.666300  5.263300  4.956550  4.126420  3.537200  3.371967  3.347100
[15]  3.149200  3.149200  3.149200  3.149200  3.149200  3.135500  3.115700
[22]  3.063200  2.966150  2.936800  2.855346  2.807400  2.686750  2.631800
[29]  2.541538  2.435100  2.435100  2.417000  2.401600  2.380000  2.281600
[36]  2.280700  2.277219  2.210400  2.199425  2.137236  2.116850  2.104400
[43]  2.036271  1.981700  1.973950

Impact Analysis

The distribution of the impact variable appears to be slightly right-skewed. Most researchers have relatively lower impact values, while a smaller number have higher impact scores. The center of the distribution is around the median. The spread shows variability across researchers. The boxplot suggests the presence of some outliers.