Анализ картографических данных. Введение в VBA

       На основе выделенных с помощью макросов слов и словосочетаний был составлен рейтинг наиболее часто упоминаемых видов спорта в МО (сам рейтинг составлен с помощью применения фильтра в Excel). Три наиболее популярных (плавание, хоккей и легкая атлетика) были выбраны для анализа развития инфраструктуры этих трех направлений. В качестве объектов анализа выступали города и населенные пункты МО, где численность населения превышает 9 тыс человек (Мурманск, Апатиты, Кировск, Мончегорск, Оленегорск, Полярные Зори, Гаджиево, Снежногорск, Заозерск, Североморск, Кандалакша, Кола, Мурмаши, Заполярный, Никель).

Таким образом, на трех картах были отмечены сооружения с бассейном, хоккейные коробки/площадки и места для занятия легкой атлетикой. Данные были взяты из реестра спортивных сооружений МО, однако не стоит считать, что реестр учитывает все объекты, поэтому результат исследования может быть частично искажен. Для данного графического анализа был использован ресурс API Яндекс.Карт. Метка на карте является городом или населенным пунктом, где расположены сооружения. Цвет метки обозначает количество: синий – 1, зеленый – 2, красный – 3, оранжевый – 4 и более.

Как уже говорилось о данных, исследование может быть частично искажено, поэтому мы не будем опираться на точные значения. Однако можно проследить общую динамику: в более крупных городах число сооружений выше. Следовательно, можно говорить о развитии спортивной инфраструктуры и обеспеченности доступа граждан к ее объектам.

Гипотеза о положительной корреляции количества сооружений и частоты упоминания в СМИ не подтвердилась, так как сооружений для занятия легкой атлетикой больше, чем бассейнов.

1) Бассейны

 

2) Хоккейные площадки

 

 

3) Сооружения для занятий легкой атлетикой

 

Выводы

На основании проведенного анализа нами были сделаны следующие выводы: доля спортивного населения МО имеет тенденцию к постоянному росту, однако доля расходов из собственного бюджета МО на сферу физической культуры и спорта, напротив, снижается. При рассмотрении отдельных городов в регионе на предмет оснащенности их спортивной инфраструктурой видно, что в более крупных городах число сооружений выше, происходит развитие спортивной инфраструктуры и обеспеченности доступа граждан к ее объектам. Корреляция между частотой упоминания того или иного вида спорта в СМИ и количеством сооружений для занятия конкретным видом спорта отсутствует. В дополнение можно добавить, что оптимальной политикой было бы поддержание положительных тенденций распространения спорта среди всех слоев населения, а также увеличение доли расходов на развитие спортивной инфраструктуры в регионе.

Список использованных источников

ü http://monchegorsk.gov-murman.ru/

ü http://sport.gov-murman.ru

ü http://51rus.org

ü http://b4u.gov-murman.ru

ü http://sport.gov-murman.ru

ü http://statdata.ru

ü http://tech.yandex.ru

ü http://murmanskstat.gks.ru/

Скрипты. Анализ текстовых данных ( MC Excel, Mystem, yED Graph Editor)

1. 110 статей, охватывающие все 4 сезона 2015-2016 гг. Копирование ссылок в Excel, затем преобразование в текст

Public Sub one()

Dim HL As Hyperlink

i = 1

For Each HL In Sheets("All").Hyperlinks

Sheets("URL").Cells(i, 1) = HL.Address

i = i + 1

Next

End Sub

-------------------------------------------------------------

Sub two()

Dim IE As InternetExplorer, html As HTMLDocument, oElement As Object

Set IE = New InternetExplorer

IE.Visible = False

For L = 1 To 110

URL = Sheets("URL").Cells(L, 1).Value

   IE.Navigate URL

   Do While IE.readyState <> READYSTATE_COMPLETE

       Application.StatusBar = "Trying to go to " + URL

       DoEvents

   Loop

   Set html = IE.document

   j = 1

   For Each oElement In html.getElementsByClassName("box")

       Sheets("HTML").Cells(L, j).Value = oElement.innerText

       j = j + 1

   Next oElement

Next L

Set IE = Nothing

Application.StatusBar = ""

End Sub

------------------------------------------------------------------

Sub WriteToText()

 FilePath = "C:\news\"

 For i = 1 To 110

 num = Trim(Str(i))

 FName = FilePath & "news" & num & ".txt"

Open FName For Output As #1

 

 Write #1, Sheets("HTML").Cells(i, 1).Value

 Close #1

 Next i

End Sub

----------------------------------------------------------------------