Файл: Dogplot.png

# Dog лет график для вики - библиотеки ( tidyverse ) библиотеки ( RColorBrewer )# Создать данные # Данные: https://pets.webmd.com/dogs/how-to-calculate-your-dogs-age dog_years  =  C ( 1 : 16 ) human_small  =  C ( 15 ,  SEQ ( 24 , 80 ,  by = 4 )) human_med  =  c ( 15 ,  24 , 28 , 32 , 36 , 42 , 47 , 51 , 56 , 60 , 65 ,69 , 74 , 78 , 83 , 87 ) human_large  =  c ( 15 , 24 , 28 , 32 , 36 , 45 , 50 , 55 , 61 , 66 , 72 , 77 , 82 , 88 , 93 , 120 )# Получить цвета для графика dcols  <-  brewer.pal ( 3 ,  "Set1" )# Создание данных кадра data_frame ( dog_years ,  human_small ,  human_med ,  human_large )  %>%  # Собирают различные столбцы , чтобы сделать переменную группы  собираются ( ключ  =  размер ,  значение  =  human_years ,  human_small : human_large ,  factor_key  =  Т )  %>%  устраивают ( dog_years )  %>%  # НАЧАТЬ РАСПРОСТРАНЕНИЕ  ggplot ( . ,  Aes ( x =dog_years , y = human_years ,  group = size , color = size )) + geom_smooth ( se = F ) +  #  Обозначьте легенду scale_colour_manual ( name  =  "Размер собаки" , values = dcols , labels  =  c ( "Маленький (<20 фунтов) ) " , " Средний (21-50 фунтов) " , " Большой (> 50 фунтов) " )) +  # Разрывы шкалы и метки  scale_x_continuous (breaks = c ( seq ( 2 , 16 , 2 ))) +  scale_y_continuous ( breaks  =  c ( seq ( 0 , 120 , 10 ))) +  xlab ( «Возраст собаки» ) + ggtitle ( «Эквивалентный человеческий возраст» ) +  # Атрибуты  темы theme ( plot.background = element_blank (),  panel.grid.major  =  element_line ( color =  "lightgray" ),  axis.title  =  element_text ( face = "bold" , size = 15 ),  axis.title.y = element_blank (),  plot.title  =  element_text ( size  =  15 ,  face = "bold" ,  hjust = -0,05 ),  plot.margin  =  unit ( c ( 1 , 1 , 1 , 1 ), «см» ), legend.text  =  element_text ( size  =  11 ),  legend.title  =  element_text ( face = "жирный" , size = 12 ),  legend.position = "right" )