График Stacked Area с ggplot в R: Как использовать только самый высокий из y для соответствующего x? - PullRequest
Новая
       13

График Stacked Area с ggplot в R: Как использовать только самый высокий из y для соответствующего x?

0 голосов
/ 18 марта 2020

Я пытаюсь создать график с областями с накоплением, но он выглядит плохо (см. Ссылку ниже).

Ниже приведены мои данные. Даты должны быть осью X, а случаи должны быть осью Y. Однако одна и та же дата встречается несколько раз с разным количеством случаев. Когда это происходит, я хочу, чтобы дата была представлена ​​один раз с суммой наблюдений для этой конкретной даты (и для этого конкретного типа).

Обратите также внимание, что график области с накоплением должен быть разбит на 3 типа (столбец «type» в данных ниже).

Мои данные выглядят так: 

# Groups:   type [3]
   Province.State Country.Region   Lat  Long date       cases type      loc    total cumsum
   <chr>          <chr>          <dbl> <dbl> <date>     <int> <chr>     <chr>  <int>  <int>
 1 ""             France            47     2 2020-01-24     2 confirmed Europe     2      2
 2 ""             France            47     2 2020-01-25     1 confirmed Europe     1      3
 3 ""             Germany           51     9 2020-01-27     1 confirmed Europe     1      4
 4 ""             France            47     2 2020-01-28     1 confirmed Europe     4      5
 5 ""             Germany           51     9 2020-01-28     3 confirmed Europe     4      8
 6 ""             Finland           64    26 2020-01-29     1 confirmed Europe     2      9
 7 ""             France            47     2 2020-01-29     1 confirmed Europe     2     10
 8 ""             Germany           51     9 2020-01-31     1 confirmed Europe     6     11
 9 ""             Italy             43    12 2020-01-31     2 confirmed Europe     6     13
10 ""             Sweden            63    16 2020-01-31     1 confirmed Europe     6     14
# ... with 378 more rows

Вот как выглядит график:

Ужасно сложенный участок на данный момент

1 Ответ

1 голос
/ 18 марта 2020

Приведенные в качестве примера данные и описание желаемого участка ...

  1. Для type = "death" я просто скопировал данные. Просто в качестве примера.
  2. Из описания было не совсем понятно, каким должен быть конечный сюжет, например, будет ли показывать разные страны или местоположения.

Поэтому я просто собрал стопку являются графиком кумулятивных случаев по дате и времени. Попробуйте это: 

library(ggplot2)
library(dplyr)

dataset <- structure(list(
  id = c(
    "1", "2", "3", "4", "5", "6", "7", "8",
    "9", "10", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10"
  ),
  Province.State = c(
    "\"\"", "\"\"", "\"\"", "\"\"", "\"\"",
    "\"\"", "\"\"", "\"\"", "\"\"", "\"\"", "\"\"", "\"\"", "\"\"",
    "\"\"", "\"\"", "\"\"", "\"\"", "\"\"", "\"\"", "\"\""
  ),
  Country.Region = c(
    "France", "France", "Germany", "France",
    "Germany", "Finland", "France", "Germany", "Italy", "Sweden",
    "France", "France", "Germany", "France", "Germany", "Finland",
    "France", "Germany", "Italy", "Sweden"
  ), Lat = c(
    47L, 47L,
    51L, 47L, 51L, 64L, 47L, 51L, 43L, 63L, 47L, 47L, 51L, 47L,
    51L, 64L, 47L, 51L, 43L, 63L
  ), Long = c(
    2L, 2L, 9L, 2L, 9L,
    26L, 2L, 9L, 12L, 16L, 2L, 2L, 9L, 2L, 9L, 26L, 2L, 9L, 12L,
    16L
  ), date = structure(c(
    18285, 18286, 18288, 18289, 18289,
    18290, 18290, 18292, 18292, 18292, 18285, 18286, 18288, 18289,
    18289, 18290, 18290, 18292, 18292, 18292
  ), class = "Date"),
  cases = c(
    2L, 1L, 1L, 1L, 3L, 1L, 1L, 1L, 2L, 1L, 2L, 1L,
    1L, 1L, 3L, 1L, 1L, 1L, 2L, 1L
  ), type = c(
    "confirmed", "confirmed",
    "confirmed", "confirmed", "confirmed", "confirmed", "confirmed",
    "confirmed", "confirmed", "confirmed", "death", "death",
    "death", "death", "death", "death", "death", "death", "death",
    "death"
  ), loc = c(
    "Europe", "Europe", "Europe", "Europe",
    "Europe", "Europe", "Europe", "Europe", "Europe", "Europe",
    "Europe", "Europe", "Europe", "Europe", "Europe", "Europe",
    "Europe", "Europe", "Europe", "Europe"
  ), total = c(
    2L, 1L,
    1L, 4L, 4L, 2L, 2L, 6L, 6L, 6L, 2L, 1L, 1L, 4L, 4L, 2L, 2L,
    6L, 6L, 6L
  ), cumsum = c(
    2L, 3L, 4L, 5L, 8L, 9L, 10L, 11L,
    13L, 14L, 2L, 3L, 4L, 5L, 8L, 9L, 10L, 11L, 13L, 14L
  )
), class = c(
  "tbl_df",
  "tbl", "data.frame"
), row.names = c(NA, -20L))

dataset_plot <- dataset %>%
  # Number of cases by date, type
  count(date, type, wt = cases, name = "cases") %>%
  # Cumulated sum over time by type
  group_by(type) %>%
  arrange(date) %>%
  mutate(cumsum = cumsum(cases))

ggplot(dataset_plot, aes(date, cumsum, fill = type)) +
  geom_area()

Создано в 2020-03-18 пакетом Представить (v0.3.0)

...