Сколько лет составляет промежуток проведения первых олимпийских игр: Олимпийские игры Древней Греции — Учреждение образования Белорусский государственный университет физической культуры

Содержание

На пути огня — Сибирь |

Точка зрения

11 января 2013 г. 13:02

Interfax-Russia.ru – Сибирь начала готовиться к сочинской Олимпиаде. Первая репетиция эстафеты Олимпийского огня уже состоялась в Иркутской области.

Несмотря на то, что основная часть тестовых мероприятий в рамках подготовки к Олимпиаде в Сочи состоится в марте 2013 года, маршрут Олимпийского огня в Иркутской области протестировали уже 9 января (в декабре 2012 года аналогичная репетиция прошла в Благовещенске). В этот день представители правительства региона в сопровождении экипажа ДПС лично прошли путь будущих факелоносцев.

«Эстафета Олимпийского огня – масштабное мероприятие. Протяженность маршрута составляет не больше, не меньше 32 км. Важно заранее подготовиться, все проверить, чтобы в торжественный момент не ударить в грязь лицом», — сообщила Interfax-Russia.ru сотрудник пресс-службы министерства по физической культуре, спорту и молодежной политике Иркутской области.

Она уточнила, что весь путь чиновники проехали на автобусе со скоростью 6 км/час (именно с такой скоростью олимпийскую дистанцию пробегут факелоносцы), что позволило им внимательно осмотреть дорожное полотно и территорию, прилегающую к маршруту Олимпийского огня. Их путь проходил по двум берегам Ангары, через Студгородок и исторический центр города. Финальной точкой тестовой эстафеты стал сквер имени Кирова.

По словам собеседницы Interfax-Russia.ru, подобную поездку чиновники уже совершали в ноябре прошлого года. В том же ноябре Иркутск посетили представители оргкомитета «Сочи-2014», которые также ознакомились с маршрутом эстафеты. Ожидается, что в ноябре 2013 года по этому маршруту пробегут 240 иркутских факелоносцев. Каждый из них пронесет факел 200-300 метров. Однако прежде чем легендарный огонь попадет в Иркутск, ему предстоит проделать большой путь.

По традиции Олимпийский огонь зажгут в Греции. 7 октября 2013 года из Афин его доставят в Москву. Оттуда он совершит авиапутешествие через Калининград, Чукотку, Магадан, Камчатку, Сахалин, Владивосток. После этого олимпийский огонь будет передвигаться исключительно на специальном поезде «Сочи-2014».

Планируется, что по железной дороге олимпийский факел проедет через Хабаровск, Комсомольск-на-Амуре, Благовещенск, Нерюнгри, Читу, Улан-Удэ, Иркутск, Красноярск, Новокузнецк, Барнаул, Новосибирск, Томск, Тюмень, Омск, Челябинск, Екатеринбург, Пермь, Уфу, Самару, Пензу, после чего он, наконец, прибудет в Сочи. Пройдя через всю Россию, Олимпийский огонь побывает в самых удивительных уголках нашей страны, среди которых Ясная Поляна, российская часть Куршской косы, Авачинские вулканы, музей-заповедник Кижи. Также символ Олимпиады поднимется на вершину Эльбруса, погрузится на дно Байкала и посетит Северный полюс.

По словам организаторов, эстафета Олимпийского огня «Сочи 2014» станет самой продолжительной за всю историю зимних Олимпийских игр. В общей сложности с октября 2013 года по начало февраля 2014 года Олимпийский огонь побывает в более чем 2900 населенных пунктах 83 регионов России, преодолевая в среднем 535 км в день. В эстафете примут участие 14 тыс. факелоносцев и 30 тыс. волонтеров. В зоне часовой доступности от маршрута окажется 90% населения России. А это значит, что около 130 млн россиян смогут стать непосредственными зрителями и участниками эстафеты. В целом же путешествие Олимпийского огня займет 123 дня.

«Эстафета Олимпийского огня — одно из самых важных событий, связанных с играми. Это эмоции, которые по накалу не уступают самим Олимпийским соревнованиям, это история России, которую мы творим всей страной. Я уверен, что это событие станет настоящим праздником в каждом городе. У эстафеты «Сочи 2014″ ответственная миссия — объединить всю страну, тем самым заново открыв многообразие и красоту России, в первую очередь, для самих россиян. На один день каждый из населенных пунктов, где пройдет эстафета, станет столицей эстафеты Олимпийского огня, и это уникальный шанс для городов и поселков заявить о себе на весь мир», — заявил президент оргкомитета «Сочи 2014» Дмитрий Чернышенко.

Традиция проведения Олимпийских игр родилась еще во времена Древней Греции в 776 году до н. э.. Оттуда, кстати, пошло и название этих спортивных состязаний. Слово «олимпиада» изначально означало не сами игры, а четырехлетний промежуток между ними. Каждые четыре года спортивные состязания проходили в местечке Олимпия на северо-западе Пелопоннесского полуострова. Игры начинались в день первого полнолуния после летнего солнцестояния и продолжались пять дней. Участвовать в Олимпиаде могли только свободные граждане Греции, не нарушившие закон и не совершившие святотатства. Они состязались в нескольких видах спорта: бег, кулачный бой, борьба, рукопашный бой, пятиборье (бег, метание диска, метание копья, прыжок в длину, борьба), гонки на колесницах (две лошади в упряжке) и гонки на квадригах (четыре лошади в упряжке). При этом как участвовать в соревнованиях, так и наблюдать за ними могли только мужчины. Женщинам под страхом смертной казни запрещалось посещать Олимпиады. Исключение делали лишь для жрицы богини Деметры, для которой на самом почетном месте стадиона был сооружен мраморный трон.

С приходом римлян традиция проведения Олимпиады практически сошла на нет, а с принятием христианства как официальной религии игры и вовсе стали рассматривать как проявление язычества и, как следствие, их вскоре запретили.

Возродил Олимпийские игры французский барон Пьер де Кубертен. В 1894 году он предложил олимпийский девиз «Быстрее, выше, сильнее», придуманный его другом доминиканским священником Анри Дидоном. Однако официальный статус девиз получил лишь в 1924 году. В то же время аналогичные соревнования на местном уровне стали проводить сначала во Франции, а потом и в Греции.

Первые современные Олимпийские игры состоялись в 1896 году в Афинах. Несмотря на то, что в них участвовал всего 241 атлет из 14 стран, игры стали крупнейшим спортивным событием, произошедшим в этой стране со времен Древней Греции. Вдохновившись успехом, греческие власти предложили проводить возрожденные Олимпийские игры исключительно в Греции. Однако Международный олимпийский комитет, созданный для проведения первых современных Олимпийских игр, отверг это предложение и ввел ротацию государств, в которых они будут проходить, чтобы каждые четыре года игры меняли место проведения. Правда, в СССР Олимпийские игры состоялись всего один раз — летом 1980 года. Основная часть соревнований прошла в Москве, отдельные соревнования — в Таллине, Киеве, Ленинграде, Минске и Подмосковье.

Что касается традиции эстафеты Олимпийского огня, то она родилась лишь в 1936 году в Берлине. При этом первый Олимпийский огонь зажгли немногим ранее — на играх в Амстердаме в 1928 году.

Обозреватель Наталья Пономарева

  • Главные события

    В МЧС согласились с необходимостью лицензирования частных домов престарелых

    В МЧС согласились с необходимостью лицензирования частных домов престарелых

  • Точка зрения

    Виноват котел?

    Interfax-Russia. ru — Двадцать два человека стали жертвами пожара в нелегальном доме престарелых в Кузбассе. Возбуждены уголовные дела.

    Виноват котел?

  • Остались нетронутыми

    Interfax-Russia.ru — Археологи нашли в Новосибирской области пять нетронутых  захоронений. Среди погребального инвентаря обнаружили украшения, элементы одежды и быта, похожие на скифские.

  • Нейтрализовать радиацию

    Interfax-Russia.ru — Томские ученые разрабатывают новую технологию дезактивации радиационно опасных объектов. Вместо пил предлагают использовать электричество.

  • Пожар с последствиями

    Interfax-Russia.ru — Два человека погибли и пятеро пострадали при пожаре на площадке Ангарской нефтехимической компании. Возбуждено уголовное дело.

  • За спасение детей

    Interfax-Russia. ru — Сотрудницам красноярского детского сада, предотвратившим в марте вооруженное нападение на детей, вручили медали «За Отвагу». Ранее их также наградили медалями «За доблесть и отвагу».

Показать еще

404 Cтраница не найдена


  • О вузе

    • Сведения об образовательной организации

    • Факультеты

    • Адреса

    • Ученый совет

    • Структура

    • Руководство

    • Преподаватели и сотрудники

    • История

    • Устав

    • Библиотека

    • Городская поликлиника № 76

    • Новости

    • События

    • Лицензия и аккредитация

    • Контакты

    • Вакансии

    • Видеогалерея

    • СМИ о нас

    • Партнеры

    • Для сотрудников


  • Колледж

    • О колледже

    • Руководство и педагогический состав

    • Специальности

    • Поступающим

    • Документы и правила приема

    • Контакты


  • Абитуриентам

    • Приемная комиссия

    • Бланки

    • Профили и экзамены

    • Стоимость обучения

    • Прием 2023

    • Подготовительные курсы

    • Студенческая жизнь

    • Общежитие

    • Фотогалерея


  • Студентам

    • ЭИОС Moodle

    • Оплата обучения

    • Расписание занятий

    • COVID-19: информация для обучающихся

    • Студенческая жизнь

    • Научная жизнь

    • Арт-центр

    • Спортивный клуб

    • Социальная сфера

    • Иностранным студентам

    • Международное сотрудничество


  • Выпускникам

    • Центр планирования карьеры

    • Ассоциация выпускников

    • Отзывы об образовательной организации

    • Семинары и тренинги


  • Наука

    • План научных мероприятий

    • Нормативные документы

    • Научные рейтинги

    • ЭБС

    • Научные вакансии

    • Совет молодых ученых

  • Контакты

FAQ: Что такое Олимпийские игры? — Сборная Канады

AP Photo/Эми Санчетта

Олимпийские игры являются крупнейшими международными мультиспортивными соревнованиями в мире.

Спортсмены из более чем 200 стран имеют право участвовать в более чем 50 различных видах спорта.

Рози МакЛеннан ведет сборную Канады на стадион во время церемонии открытия Олимпийских игр 2016 года в Рио-де-Жанейро, Бразилия, пятница, 5 августа 2016 года. THE CANADIAN PRESS/Sean Kilpatrick

Когда Олимпийские игры?

Олимпийские игры проводятся каждые два года в четные годы, чередуя летние и зимние игры.

В течение семи десятилетий две версии Олимпийских игр проводились в один и тот же год по четырехлетнему циклу. Но голосование 1986 года нарушило эту традицию, и 1992 год стал последним годом, когда были включены оба. Следующие Зимние игры были проведены всего два года спустя, в 1994 году, а следующие Летние игры были проведены, как и планировалось, в 1996 году, что привело к разделению четырехлетних циклов.

Зимние Олимпийские игры обычно проводятся в феврале, а летние Олимпийские игры — в июле и/или августе.

Кто отвечает за Олимпийские игры?

Олимпийские игры регулируются Международным олимпийским комитетом (МОК), штаб-квартира которого находится в Лозанне, Швейцария. МОК был создан в 1894 году, за два года до первых современных Олимпийских игр, которые были детищем Пьера де Кубертена.

По состоянию на 2018 год существует 206 национальных олимпийских комитетов, которые отвечают за отправку спортсменов на соревнования. Нынешним президентом МОК является Томас Бах из Германии.

Для каждых Олимпийских игр в стране-организаторе создается организационный комитет для обеспечения проведения Олимпийских и Паралимпийских игр.

Томас Бах на заседании МОК в Рио-де-Жанейро 28 февраля 2015 г.

Когда начались Олимпийские игры?

Древняя история Олимпийских игр восходит к 776 г. до н.э. когда они проходили в Олимпии, Греция. Проводившиеся каждые четыре года, по крайней мере, до 393 г. н.э. (период более 1000 лет) они включали соревнования по легкой атлетике, боксу, борьбе и гонкам на колесницах.

Современная эра Олимпийских игр началась в 1896 году, когда они проводились в Афинах, Греция. Первые зимние Олимпийские игры состоялись в 1924 году в Шамони, Франция.

В первом Параде Наций на Олимпийских играх в Лондоне в 1908 году приняли участие 22 страны.

Отменялись ли когда-нибудь Олимпийские игры?

Олимпийские игры отменялись пять раз. В 1916 году Летние игры, которые планировалось провести в Берлине, Германия, были отменены из-за Первой мировой войны.40 и 1944 года и Зимние, и Летние игры были отменены из-за Второй мировой войны. В 1940 году Летние и Зимние игры должны были состояться в Японии (Токио и Саппоро соответственно). Зимние игры 1944 года должны были состояться в Кортина д’Ампеццо, Италия, а Лондон был запланированным местом проведения летних игр в том году.

Какие Олимпийские игры проводились в 1906 году?

В 1906 году Греция экспериментировала с проведением «промежуточных» Олимпийских игр в четный год между Олимпийскими играми. Хотя соревнования в Афинах когда-то в некоторой переписке были признаны официальными Олимпийскими играми, в 1949 МОК официально отклонил их, и они не фигурируют ни в одной официальной документации. Многие известные историки считают их Олимпийскими играми, принимая во внимание их роль в возрождении олимпийского движения после неудачных казней в Париже 1900 г. и Сент-Луисе 1904 г., которые проводились одновременно со Всемирной выставкой, но чаще всего их называют Интеркалированные игры 1906 года.

Где проводились Олимпийские игры?

У МОК есть процесс подачи заявок, посредством которого Игры присуждаются городам-организаторам. Соединенные Штаты принимали восемь раз, по четыре раза за каждый сезон. Соединенные Штаты также собираются принять у себя Летние Олимпийские игры 2028 года в Лос-Анджелесе, что делает их третий раз принимающим городом. В настоящее время Лондон является единственным городом, который принимает три Олимпийских игры (1908, 1948, 2012), но в 2024 году в Париже пройдут их третьи Олимпийские игры.

Олимпийские игры проводились по всему миру. Впервые они были проведены в Океании в Мельбурне в 1956 году, а в Азии Олимпийские игры впервые были проведены в Токио в 1964 году. Рио-2016 были первыми Олимпийскими играми, которые прошли в Южной Америке. В 2022 году Пекин станет единственным городом, принимавшим как летние, так и зимние Олимпийские игры.

Канада трижды принимала Игры:

Монреаль 1976 – Летние Олимпийские игры

Калгари 1988 – Зимние Олимпийские игры

Ванкувер 2010 – Зимние Олимпийские игры

Полный список организаторов предыдущих Олимпийских игр см. здесь.

Канадские спортсмены подходят к Олимпийскому стадиону во время церемонии открытия Олимпийских игр 1976 года в Монреале. (CP PHOTO/COC/RW)

Насколько масштабны Олимпийские игры?

В летних Олимпийских играх принимают участие более 11 000 спортсменов из 206 стран. В Токио-2020 будет 339события по программе. Зимние Олимпийские игры немного меньше. Более 2800 спортсменов примерно из 90 стран примут участие в 109 соревнованиях в Пекине-2022.

Тесса Вертью и Скотт Мойр ведут команду Канады на стадион во время церемонии открытия Зимних Олимпийских игр в Пхенчхане, Южная Корея, 9 февраля 2018 года. Фото Джейсона Рэнсома/COC

Какова продолжительность Олимпийских игр?

На летних и зимних Олимпийских играх проводится 16 официальных дней соревнований. День церемонии открытия называется днем ​​0, за которым следуют 16 дней медалей. Если соревнования проводятся за несколько дней до церемонии открытия, они называются День-1, День-2 и т. д.

Какие виды спорта включены в программу Олимпийских игр?

На следующих летних Олимпийских играх 2020 года будут представлены 48 видов спорта, а программа зимних Олимпийских игр включает 15 видов спорта. На протяжении многих лет МОК добавлял и удалял различные виды спорта из олимпийской программы.

Полный список олимпийских видов спорта см. здесь.

Какова история Канады на Олимпийских играх?

Канада участвовала во всех Олимпийских играх, кроме Афин 1896 и Москва 1980 г. В последнем случае страна присоединилась к бойкоту Игр, возглавляемому США, но все спортсмены, включенные в эту команду, считаются олимпийцами.

Хотя Канада еще не была официально признана МОК, четыре канадца соревновались в легкой атлетике в Париже в 1900 году, в том числе первый в истории страны олимпийский медалист Джордж Ортон. Первый Канадский олимпийский комитет был сформирован и признан в 1907 году. С тех пор Канада завоевала 501 олимпийскую медаль (по состоянию на Пхенчхан 2018).

Джордж Ортон выигрывает свою золотую медаль в Париже в 1900 году в футболке Университета Пенсильвании (Фото: upenn.edu)

Что такое Олимпиада?

Термин «Олимпиада» восходит к древним Олимпийским играм, когда он использовался для обозначения четырехлетнего перерыва между Играми, проводимыми в Олимпии.

Когда Пьер де Кубертен возродил Игры в современную эпоху, он решил почтить древние Игры, включив в них Олимпиады. Олимпиада начинается 1 января первого года и заканчивается 31 декабря четвертого года. Летние Олимпийские игры проводятся в первый год Олимпиады, а Зимние Олимпийские игры — в третий год Олимпиады.

Летние Олимпийские игры официально называются Играми Олимпиады и нумеруются последовательно, начиная с первых игр, проведенных в Афинах в 1896 году, независимо от того, состоялись они или были отменены. Токио-2020 станет Играми XXXII Олимпиады. Зимние Олимпийские игры просто нумеруются в порядке их проведения.

120 лет Олимпийским играм — Как анализировать и визуализировать историю с помощью R | by Saúl Buentello

Узнайте, какие страны завоевали больше всего медалей и как менялось участие стран с течением времени, с R

Панель инструментов для просмотра сгенерированных сюжетов об Олимпийских играх. Ссылка в конце статьи

Один из моих любимых сезонов, который мне очень нравится, — это сезон Олимпийских игр. Многие спортсмены становятся героями целого поколения, поддерживая имя своего народа и, что более важно, подавая отличный пример и вдохновляя детей и молодежь.

С 776 г. до н.э. по 393 г. н.э. древние Олимпийские игры проводились в Олимпии, Греция. Спустя 1503 года он появился вновь. В 1896 в Афинах, Греция, состоялись первые современные Олимпийские игры. Все Игры от Афин 1896 года до Рио-де-Жанейро 2016 года называются «Современными Олимпийскими играми». В 1894 году эту идею предложил барон Пьер де Кубертен.

Между 1912 и 1920 и 1936 и 1948 годами есть два длительных периода без Игр, соответствующие Первой и Второй мировым войнам.

Photo by Alex Smith on Unsplash

Пожалуй, наиболее важным преимуществом визуальной аналитики является то, что она упрощает интерпретацию сложных данных, представляя их в ясной, лаконичной и удобной форме. В этой статье представлен полезный визуальный анализ Олимпийских игр 189 г.6 до 2016. В этой статье утверждается, что вы предлагаете эффективную, действенную, функциональную и удобную модель с использованием конкретных примеров анализа.

Основная цель — продемонстрировать, как вы можете извлечь выгоду из визуальных представлений встроенной системы. При информировании людей об Олимпийских играх пользовательские интерфейсы очень важны, они просты и легко создаются с помощью RStudio.

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

Характеристики данных: события (летом и зимой), данные на спортивном уровне, художественные соревнования не были включены в данные спортсменов (сосредоточены на легкой атлетике) разнообразные наборы данных. Его набор данных имеет несколько преимуществ, в том числе крупномасштабный набор данных, охватывающий период с 1896 по 2016 год. И последнее, но не менее важное: считается, что набор данных Олимпийских игр заслуживает изучения с точки зрения визуального представления и обеспечения оптимального взаимодействия с пользователем.

Кроме того, эта статья призвана привлечь людей, которые интересуются Олимпиадой, и прямо ответить на их вопросы. Чтобы ответить на главный вопрос, был выбран набор данных из Kaggle , который состоит из двух отдельных таблиц, событий спортсменов и регионов событий.

Для создания визуализаций вы будете использовать два разных фрейма данных. После просмотра набора данных было решено не удалять какие-либо данные, а вместо этого использовать пакет dplyr для обработки и изменения данных, чтобы сделать их более применимыми и реалистичными.

Некоторые характеристики, такие как возраст, вес и рост спортсмена, не учитывались в этих примерах, но вы можете провести собственный более подробный анализ данных.

Тем не менее, вы можете начать, сначала вам нужно будет загрузить библиотеки, которые вы будете использовать, загрузить данные и сделать первый взгляд.

 # НЕОБХОДИМЫЕ БИБЛИОТЕКИlibrary("gganimate") 
 library("data.table") 
 library("knitr") 
 library("gridExtra") 
 library("tidyverse") 
 library("plotly")# ЗАГРУЗИТЬ СПОРТСМЕНОВ EVENTS DATAdataOlympics <- read_csv("datasets/athleteEvents. csv", col_types = cols( 
 ID = col_character(), 
 Имя = col_character(), 
 Пол = col_factor(levels = c("M","F")), 
 Возраст = col_integer(), 
 Рост = col_double(), 
 Вес = col_double(), 
 Team = col_character(), 
 NOC = col_character(), 
 Games = col_character(), 
 Year = col_integer(), 
 Season = col_factor(levels = c("Лето","Зима")) , 
 Город = col_character(), 
 Спорт = col_character(), 
 Событие = col_character(), 
 Медаль = col_factor(levels = c("Золото","Серебро","Бронза")) 
 ) 
 )glimpse(dataOlympics) 
 head(dataOlympics)

В этом первом наборе данных вы найдете 271116 наблюдений с 15 переменными. Теперь вы загрузите второй набор данных, содержащий информацию о НОК (национальных олимпийских комитетах).

 # ЗАГРУЗИТЬ ДАННЫЕ, СООТВЕТСТВУЮЩИЕ NOC (НАЦИОНАЛЬНЫЙ ОЛИМПИЙСКИЙ КОМИТЕТ) С COUNTRIESNOCs <- read_csv("datasets/nocRegions.csv", col_types = cols(
 NOC = col_character(), 
 region = col_character() 
 )) 
 mpse(NOC glis ) 
 головка(НОК)

Это первый вопрос, на который вы можете ответить с данными, которые у вас сейчас есть в первом наборе данных. Вы можете создать визуализацию, чтобы определить, как изменилось участие стран и спортсменов, а также события.

 # КОЛИЧЕСТВО НАЦИЙ, СПОРТСМЕНОВ И МЕРОПРИЯТИЙ, БЕЗ ИСКУССТВЕННЫХ СОРЕВНОВАНИЙnumbers <- dataOlympics %>% 
 group_by(Year, Season) %>% 
 summary(Nations = length(unique(NOC)), Athletes = length(unique( ID)), Events = length(unique(Event)) 
 )numbers <- number %>% 
 mutate(gap= if(Year<1920) 1 else if(Year>=1920 & Year<=1936) 2 else 3)plotNations <- ggplot(numbers, aes(x=Year, y=Nations, group=interaction( Season,gap), color=Season)) + 
 geom_point(size=2) + 
 geom_line() + 
 scale_color_manual(values=c("chocolate","deepskyblue4")) + 
 labs(x = " ", y = "Нации", 
 title="Нации, спортсмены и события", 
 subtitle = "Олимпийские игры с 1896 по 2016") 
 plotAthletes <- ggplot(numbers, aes(x=год, y=спортсмены, group=interaction( Сезон,разрыв), цвет=сезон)) + 
 geom_point(size=2) + 
 geom_line() + 
 scale_color_manual(values=c("chocolate","deepskyblue4")) + 
 xlab("")plotEvents <- ggplot(numbers, aes(x=Year, y) = События, группа = взаимодействие (Сезон, разрыв), цвет = Сезон)) + 
 geom_point (размер = 2) + 
 geom_line () + 
 scale_color_manual (значения = c («шоколад», «deepskyblue4»)) 
 
 сетка . arrange( plotNations, plotAthletes, plotEvents, ncol=1)

Вы получите следующий результат, где вы можете увидеть, как он увеличивается с течением времени.

120 лет Олимпийским играм — как анализировать и визуализировать историю с помощью R: график наций, спортсменов и событий во времени

Это второй вопрос, на который вы можете ответить, и было бы интересно также визуализировать пропорцию золотых, серебряных и бронзовых медалей, накопленных каждой нацией. Допустим, вы хотите попасть в топ-30.

 # ОБЩЕЕ КОЛИЧЕСТВО МЕДАЛЕЙ, ВЫДАННЫХ КАЖДОЙ КОМАНДЕmedalCounts <- dataOlympics %>% filter(!is.na(Medal))%>% 
 group_by(NOC, Medal, Event, Игры) %>% 
summ(isMedal=1)medalCounts <- MedalCounts %>% 
 group_by(NOC, Medal) %>% 
summary(Count=sum(isMedal))medalCounts<-left_join(medalCounts, NOCs, by= "NOC" )medalCounts <- medalCounts %>% 
 mutate (Team = region)medalCounts <- medalCounts %>% select( Medal, Team, Count)# ЗАКАЗ КОМАНДЫ ПО ОБЩЕМУ СЧЕТУ МЕДАЛЕЙlevelsTeam <- medalCounts %>% 
 group_by(Team) %>% 
 summ(Total=sum(Count)) %>% 
 упорядочить(desc(Total)) %>% 
 select(Team) %>% 
 slice(30:1)medalCounts$Team <- factor(medalCounts$Team, level=levelsTeam$Team)medalCounts <- medalCounts %>% filter(Team!= "NA")# PLOT MEDALCOUNTSggplot(medalCounts, aes(x) =Команда, y=Количество, fill=Медаль)) + 
 geom_col() + 
 coord_flip() + 
 scale_fill_manual(values=c("gold3","grey64","sienna")) + 
 labs(x = " Наций", y = "Количество", 
 title="Топ-30 - страны с наибольшим количеством медалей в истории", 
 subtitle = "Олимпийские игры с 1896 по 2016 год")

Вы получите график, подобный следующему. Где видно, что США, Россия и Германия — страны, которые лидируют. Ваша страна на вершине? К сожалению, страна, из которой я родом, — нет.

120 лет Олимпийским играм — Как анализировать и визуализировать историю с помощью R: Plot Страны с наибольшим количеством медалей, выигранных в истории

Еще один интересный и привлекательный способ визуализировать ранее полученное — это анимированный сюжет, детализируйте медали, полученные каждой нацией за эти годы, скажем, что для этого вам нужно только 10 лучших. >%
group_by(НОК, Медаль, Событие, Игры, Год) %>%
summ(isMedal=1)medalCounts <- medalCounts %>%
group_by(NOC, Medal, Year) %>%
summary(Count=sum(isMedal))medalCounts <-left_join(medalCounts, NOCs, by= "NOC" )medalCounts <- medalCounts %>%
mutate (Team = region)medalCounts <- medalCounts %>% select( Medal, Team, Count, Year)# ЗАКАЗ КОМАНДЫ ПО ОБЩЕМУ СЧИТАНИЮ МЕДАЛЕЙLevelsTeam <- medalCounts %>%
group_by(Team) %>%
sum(Total=sum(Count)) %>%
упорядочить(desc(Total)) %>%
select(Team) %>%
slice(10:1)medalCounts$Team <- factor(medalCounts$Team, level=levelsTeam$Team)medalCounts <- medalCounts %>% filter(Team != «NA»)# АНИМИРОВАННЫЙ PLOT MEDAL COUNT

plotMedalsAnim<- ggplot(medalCounts, aes(x=Team, y=Count, fill=Medal)) +
labs(x = «Nations», y = «Count»,
title=’Top 10 — Сравнение с течением времени, страны с наибольшим количеством медалей»,
subtitle = «Олимпийские игры с 1896 по 2016 год — год: {frame_time}») +
transition_time(Year)+
geom_col() +
coord_flip() +
scale_fill_manual(values=c(«gold3″,»grey64″,»sienna»))

animate(plotMedalsAnim,fps=2)

Вы получите привлекательный анимированный сюжет как показано ниже, если вам интересно, для чего вы загрузили библиотеку gganimate , вот почему.

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

Еще один способ визуализировать, сколько медалей у каждой нации, может быть с помощью карты. Это также обеспечит визуальный обзор всего земного шара в целом.

 # КАРТА НАЦИЙ С БОЛЬШИМ МЕДАЛАМИ WONmedalCounts <- dataOlympics %>% filter(!is.na(Medal))%>% 
 group_by(NOC, Medal, Event, Games) %>% 
 summ(isMedal=1)medalCounts <- medalCounts %>% 
 group_by(NOC, Medal) %>% 
summ(Count=sum(isMedal))medalCounts <-left_join(medalCounts, NOCs, by= "NOC" ) %>% 
 select(region, NOC) , Medal, Count)medalCounts <- medalCounts %>% 
 group_by(region) %>% 
 summ(Total=sum(Count))data_regions <- medalCounts %>% 
 left_join(NOCs,by="region") %>% 
 filter(!is.na(region))earth <- map_data("world")earth <- left_join(earth, data_regions, by="region")# PLOT MAPplotMapMedals <- ggplot(земля, aes(x = долгота, y = широта, группа = группа)) + 
 geom_polygon(aes(fill = Total, label= region)) + 
 labs(x = "", y = " ", 
 title="Карта стран с наибольшим количеством завоеванных медалей", 
 subtitle = "Олимпийские игры с 1896 по 2016 год") + 
 направляющих(fill=guide_colourbar(title="medals")) + 
 scale_fill_gradient(low=" белый",высокий="золото3") 
 plotMapMedalsggplotly(plotMapMedals)

Тогда вы получите карту, подобную приведенной ниже, где вы можете увидеть страны, которые до игр в Рио-2016 не получили ни одной медали, такие как Гондурас, Боливия и Олбани, например. Надеемся, что Токио-2020 станет отличной возможностью для многих из этих стран.

120 лет Олимпийским играм — Как анализировать и визуализировать историю с помощью R: Карта наций с наибольшим количеством медалей, выигранных в истории и включение женщин в число спортсменов-олимпийцев не является исключением. Вы можете посмотреть, как инклюзия увеличилась или уменьшилась на этом глобальном мероприятии. Чтобы сделать его более привлекательным, вы можете создать еще один анимированный сюжет.

 # УЧАСТИЕ СПОРТСМЕНОВ И СПОРТСМЕНОВ СО ВРЕМЕНЕМ, БЕЗ ХУДОЖЕСТВЕННЫХ СОРЕВНОВАНИЙdataOlympics <- dataOlympics %>% 
 filter(Sport != "Art Competitions")# ПОСЛЕ 1992 ГОДА ИЗМЕНИТЬ ГОД ЗИМНИХ ИГРОВ, ЧТОБЫ СОВПАДИТЬ С СЛЕДУЮЩИМИ ЛЕТНИМИ ИГРАМИ . ТЕРМИН «ГОД» В НАСТОЯЩЕЕ ВРЕМЯ ОТНОСИТСЯ К ПРОВЕДЕНИЮ ОЛИМПИЙСКИХ ИГРА :length(original)) { 
 dataOlympics$Year <- gsub(original[i], new[i], dataOlympics$Year) 
 }dataOlympics$Year <- as.integer(dataOlympics$Year)# ПОДСЧЕТ КОЛИЧЕСТВА СПОРТСМЕНОВ ПО ПОЛУ И ГОДУcountsSex <- dataOlympics %>% 
 group_by(Year, Sex) %>% 
 summ(Athletes = length(unique(ID) )))countsSex$Year <- as. integer(countsSex$Year)# ГРАФИК МУЖЧИН И СПОРТСМЕНОВ ВО ВРЕМЕНИggplot(countsSex, aes(x=Year, y=Athletes, group=Sex, color=Sex)) + 
 geom_point( size=2) + 
 geom_line() + 
 transition_reveal(Year)+ 
 scale_color_manual(values=c("deepskyblue4","red4")) + 
 labs(x = "Год", y = "Спортсмены", 
 title="Мужчины и женщины-спортсмены с течением времени", 
 subtitle = "Олимпийские игры с 1896 по 2016")

Как видите, есть четкое увеличение участия женского пола в соревнованиях, однако мужской пол по-прежнему преобладает, хотя сегодня разница не так велика, как раньше.

120 лет Олимпийским играм — как анализировать и визуализировать историю с помощью R: график участия спортсменов мужского и женского пола с течением времени

Теперь, когда вы знаете, как манипулировать данными, я предлагаю вам продолжить собственный анализ с полученной информацией и ответить на многие другие интересные вопросы.

Большое спасибо за внимание. Как и в большинстве моих статей, я делюсь графиками, сгенерированными с помощью plotly на гибкой панели , которую я собрал немного более эстетично: https://rpubs.