Линейный график с использованием счетчика в r

avatar
Hash Slasher
1 июля 2021 в 17:07
92
1
0
компания Месяц_Год количество
1 Бельмава Апрель 2020 г. 15
2 Бельмава апрель 2021 г. 28
3 Белмава август 2020 г. 15
4 Белмава декабрь 2020 г. 18
5 Белмава февраль 2020 г. 15
6 Белмава Фев 2021 27
7 Белмава январь 2020 г. 15
8 Белмава январь 2021 г. 23
9 Белмава июль 2020 г. 21
10 Белмава июнь 2020 г. 20

приведенная выше таблица является результатом этого кода:df1 %>% group_by(company, Month_Yr) %>% summarize(count=n()) как я могу использовать месяц год как ось x, счет как ось x и компанию как группу для линейной диаграммы? (предположим, что у компании есть 3 разные компании, а по оси x всего 4 конкретных месяца)

Источник
Skaqqs
2 июля 2021 в 16:35
0

Взгляните на это: ggplot2.tidyverse.org/reference/aes_group_order.html

Ответы (1)

avatar
Vinícius Félix
5 сентября 2021 в 00:14
0

Вот tidyverse решение

Библиотеки

library(tidyverse)
library(lubridate)

Данные

df <-
tibble::tribble(
      ~company,  ~month_year, ~count,
   "Belmawa", "Apr 2020",    15L,
   "Belmawa", "Apr 2021",    28L,
   "Belmawa", "Aug 2020",    15L,
   "Belmawa", "Dec 2020",    18L,
   "Belmawa", "Feb 2020",    15L,
   "Belmawa", "Feb 2021",    27L,
   "Belmawa", "Jan 2020",    15L,
   "Belmawa", "Jan 2021",    23L,
   "Belmawa", "Jul 2020",    21L,
   "Belmawa", "Jun 2020",    20L
  ) %>% 
  # Transforming month_year from character to date 
  mutate(
    month_year = mdy(month_year)
  )

Код участка

df %>% 
  # Defining aesthetics
  ggplot(aes(x = month_year,y = count, col = company))+
  geom_line()

Вывод графика

enter image description here