Second Year Lesson 1 Markdown

Загрузка данных

Преобразование данных в числовой формат

Нахождение среднего импакт фактора журнала по категории

b <- a %>% 
  group_by(Category) %>% 
  summarise(Sred = mean(`2023 JIF`, na.rm = TRUE))
print(b)

## # A tibble: 140 × 2
##    Category                          Sred
##    <chr>                            <dbl>
##  1 ACOUSTICS                        0.9  
##  2 AGRICULTURE, MULTIDISCIPLINARY   0.9  
##  3 ANTHROPOLOGY                     0.25 
##  4 ARCHAEOLOGY                      0.15 
##  5 AREA STUDIES                     0.371
##  6 ASTRONOMY & ASTROPHYSICS         0.983
##  7 AUTOMATION & CONTROL SYSTEMS     0.4  
##  8 BIOCHEMISTRY & MOLECULAR BIOLOGY 1.15 
##  9 BIODIVERSITY CONSERVATION        1.2  
## 10 BIOLOGY                          0.35 
## # ℹ 130 more rows

Нахождение среднего импакт фактора журнала по квартилю

c <- a %>% 
  group_by(`JIF Quartile`) %>% 
  summarise(Sred = mean(`2023 JIF`, na.rm = TRUE))
print(c)

## # A tibble: 6 × 2
##   `JIF Quartile`    Sred
##   <chr>            <dbl>
## 1 N/A              0.257
## 2 Q1               3    
## 3 Q2               0.811
## 4 Q3               0.878
## 5 Q4               0.584
## 6 <NA>           NaN

link