Практическое задание № 8

Дисциплины: Информационно-статистическая деятельность

на тему: Расчёт показателей статики народонаселения на примере регионов РФ

обучающегося: Шарафутдинова А.Н.

007 факультета 003 курса 23-ЛД-37/2 группы

по специальности: Лечебное дело

номер варианта: 016

дата выполнения: 27.06.26 г.

Вопрос 1. Пример расчетов

Регионы: Калужская область и Тверская область

Загрузите данные из таблицы excel. Для этого используйте кнопку ImportDataset в правом верхнем углу ImportDataset ->From -> Browse-> выберите нужный файл (ish-pz8isd.xlsx) -> Import. Либо возьмите данные приведенные в варианте сразу.

Например:

Данные:

Калужская обл. – 1010 тыс., мужчины – 460, женщины – 550, городское – 760, сельское – 250, площадь – 29,8;

Тверская обл. – 1220 тыс., мужчины – 560, женщины – 660, городское – 900, сельское – 320, площадь – 84,2

Далее выполните подвопросы

  1. Найдите общую численность городского населения.

Для вставки строчек исполнимого кода (чанков) используйте в режиме Visual кнопку Insert->Exsecutible Cell->R на панели управления сверху

obsh <- 760+900
obsh
## [1] 1660
print("тыс. чел.")
## [1] "тыс. чел."
  1. Рассчитайте долю женщин в Калужской области (%).
femaleKaluga <- 550/460*100
femaleKaluga
## [1] 119.5652
print("%")
## [1] "%"
  1. Определите, во сколько раз площадь Тверской области больше площади Калужской.

Обратите внимание: дробные числа записываются через точку!

Plostchad <- 84.2/29.8
Plostchad
## [1] 2.825503
print("раз(а)")
## [1] "раз(а)"
  1. Рассчитайте плотность населения в Тверской области (чел./км²).
Plotnost <- 1220/84.2
Plotnost
## [1] 14.48931
print("чел./кв. км")
## [1] "чел./кв. км"

Формулы для расчетов:

  1. Доля части в целом: (Часть / Целое) × 100%
  2. Соотношение полов: (Численность мужчин / Численность женщин) × 100 (число мужчин на 100 женщин)
  3. Уровень урбанизации: (Городское население / Общая численность) × 100%
  4. Плотность населения: Численность населения / Площадь территории (чел./км²)
  5. Относительная разница: ((А – Б) / Б) × 100%
  6. Средняя величина: (Сумма значений) / (Количество значений)
  7. Сравнение «во сколько раз»: А / Б

Вопрос 2. Задачи для самостоятельного решения

Оставьте только свой вариант, остальные удалите, а затем выполните расчеты. По окончании задания создайте html-файл и разместите его в соответствующем разделе ЭОС.

Вариант 16 (Регионы: Удмуртская Республика и Чувашская Республика)

Удмуртия: население – 1 480 тыс., мужчины – 690 тыс., женщины – 790 тыс., городское – 1 050 тыс., сельское – 430 тыс., площадь – 42,1 тыс. км².

Чувашия: население – 1 190 тыс., мужчины – 550 тыс., женщины – 640 тыс., городское – 760 тыс., сельское – 430 тыс., площадь – 18,3 тыс. км².

1. Определите общую численность женщин в двух республиках.

2. Рассчитайте долю городского населения в Удмуртии (%).

3. Найдите, на сколько процентов площадь Удмуртии больше площади Чувашии.

4. Рассчитайте среднюю плотность населения по двум республикам.

udmurtia_pop <- 1480
udmurtia_female <- 790
udmurtia_urban <- 1050
udmurtia_area <- 42.1
chuvashia_pop <- 1190
chuvashia_female <- 640
chuvashia_area <- 18.3

# 1. Общая численность женщин
total_female_var16 <- udmurtia_female + chuvashia_female
# 2. Доля городского населения в Удмуртии
urban_udmurtia <- udmurtia_urban / udmurtia_pop * 100
# 3. На сколько % площадь Удмуртии больше Чувашии
area_diff_percent_var16 <- (udmurtia_area - chuvashia_area) / chuvashia_area * 100
# 4. Средняя плотность
avg_density_var16 <- (udmurtia_pop + chuvashia_pop) / (udmurtia_area + chuvashia_area)

print("=== ВАРИАНТ 16 ===")
## [1] "=== ВАРИАНТ 16 ==="
print(paste("1. Общая численность женщин:", total_female_var16, "тыс. чел."))
## [1] "1. Общая численность женщин: 1430 тыс. чел."
print(paste("2. Урбанизация Удмуртии:", round(urban_udmurtia, 2), "%"))
## [1] "2. Урбанизация Удмуртии: 70.95 %"
print(paste("3. Площадь Удмуртии больше Чувашии на:", round(area_diff_percent_var16, 2), "%"))
## [1] "3. Площадь Удмуртии больше Чувашии на: 130.05 %"
print(paste("4. Средняя плотность:", round(avg_density_var16, 2), "чел./км²"))
## [1] "4. Средняя плотность: 44.21 чел./км²"