Создайте документ с несколькими разделами, каждый из которых содержит график

Question

У меня есть этот фрейм данных

sales <-
  data.frame(
    "month" = c("2018-01-01", "2018-01-01", "2018-02-01", "2018-02-01"), 
    "type" = c("us", "rest", "us", "rest"),
    "net_inc" = c(500, 600, 800, 900),
    stringsAsFactors = F
    )

Я создал даже некоторый график из этих данных

ggplot(sales, aes(x=month, y=type, fill=type)) +
  geom_bar(stat = "identity", position = "dodge")

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

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

1. Естьподзаголовки в уценке (## 2018-01)
2. Создание графика для каждого месяца в моем df (обратите внимание, что в моем файле данных данные начинаются с 2000 года до текущей даты)

Answer 1

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

plotlist <- split(sales, sales$month)
plotlist <- lapply(plotlist, function(df){
  ggplot(df, aes(x = month, y = type, fill = type)) +
    geom_col(position = "dodge")
})

Затем создайте заголовки и фрагменты, в которых вы печатаете каждый элемент списка печати:

## Month 1

```{r}
print(plotlist[[1]])
```

## Month 2

```{r}
print(plotlist[[2]])
```

Я не знаю ни одного способа программного создания документов уценки (что не означает, что он не существует), поэтому я могу пока только помочь вам.

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

```{r}
print(plotlist)
```

Который будет печатать в вашем выходном файле как таковой:

И все еще хранит ваш график вместе с информацией о месяце.