Index

---

Код на R

library("tidyverse")

## -- Attaching packages ----------------------------------------------------- tidyverse 1.2.1 --

## v ggplot2 3.2.1     v purrr   0.3.2
## v tibble  2.1.3     v dplyr   0.8.3
## v tidyr   1.0.0     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.4.0

## -- Conflicts -------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

dog_names <- read_csv("https://raw.githubusercontent.com/r-classes/2019_2020_ds4dh_hw_2_dplyr_tidyr_ggplot2/master/data/dog_names.csv")

## Parsed with column specification:
## cols(
##   id = col_double(),
##   name = col_character(),
##   sex = col_character(),
##   age = col_character(),
##   contact_state = col_character()
## )

dog <- dog_names %>% 
  filter(sex != "Unknown") %>% 
  count(age,sex) %>%
  mutate(ratio = n/sum(n)) %>% 
  select(-ratio) %>% 
  pivot_wider(names_from = "sex", values_from = "n") %>%
  mutate (all_female = sum(Female),
          all_male = sum(Male),
          Male_share = Male/all_male,
          Female_share = Female/all_female) %>% 
  select(age, Male_share, Female_share)
dog

## # A tibble: 4 x 3
##   age    Male_share Female_share
##   <chr>       <dbl>        <dbl>
## 1 Adult      0.476        0.485 
## 2 Baby       0.156        0.167 
## 3 Senior     0.0796       0.0797
## 4 Young      0.288        0.268

Код на Python

s1= "I love DH"
s2 = "DH is great"
for i, sym in enumerate(s1):
    for j, sym2 in enumerate(s2):
        if sym == sym2:
            print(sym)

##  
##  
## e
##  
##  
## D
## H

Картинка

Сноска

Оттого что в тоске по жене

Громко стонет фазан,

Что еду себе ищет на поле весеннем,

Известны становятся людям места,

Где бедный фазан приютился на время…¹

Ожидает тебя

Вершина далекая Мива,

Хоть и ведомо ей,

Что, быть может, долгие годы

Не придешь ты ее проведать…²

Ссылка на литературу

Shirane (2002) отмечает, что…

В этой статье Kornicki (1994) утверждает, что…

Таблица

Автор	Произведение	Год написания
Акутагава Рюноскэ	Мадзюцу	1920
Нацумэ Сосэки	Кокоро	?
Танидзаки Дзюнъитиро	Сасамэюки	1936

Kornicki, P. F. 1994. “Public Display and Changing Values. Early Meiji Exhibitions and Their Precursors.” Monumenta Nipponica 49 (2): 167–96. http://www.jstor.org/stable/2385168.

Shirane, Haruo. 2002. Early Modern Japanese Literature: An Anthology, 1600-1900. Columbia University Press.

---

1. Перевод Глускиной.↩

2. Перевод Долина.↩