rmarkdown: заговор исчезает, когда grid.raster находится внутри блока if - PullRequest
Новая
       10

rmarkdown: заговор исчезает, когда grid.raster находится внутри блока if

0 голосов
/ 04 марта 2019

Я использовал команду grid::grid.raster для добавления логотипа под ggplot в документе Rmd.Он работал нормально, пока я не ввел код внутри блока if.

В следующем примере, если я включу блок if, я получу логотип ... без сюжета?!?! 

---
title: "testing raster logo"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(ggplot2)
```

## R Markdown

```{r cars}
summary(cars)
```

## Including Plots

You can also embed plots, for example:

```{r echo=FALSE, warning=FALSE, message=FALSE, fig.width=10}

library(hrbrthemes)
library(magick)

logo <- image_read("https://i.pinimg.com/originals/2b/d4/79/2bd4796ef4d27df0eea97f88ee18fac6.png")

#if (nrow(iris)>0){

    ggplot(iris, aes(x = Petal.Width, y = Petal.Length, color = Species)) + 
    geom_point() +
    labs(title = 'Some plot',
         subtitle = 'Petal.Width vs Petal.Length',
         x = 'This axis title intentionally left blank',
         y = 'This axis title intentionally left blank',
         caption = 'iris data') +

scale_color_manual(name = '',
                              labels = c('Black', 'Red', 'Gray'),
                              values = c('#000000', '#EC0108', '#ACAEAD')) +
    theme_ipsum() +
    theme(plot.title = element_text(color = "#EC0108"),
          plot.caption = element_text(color = "#EC0108", face = 'bold'))



grid::grid.raster(logo, x = 0.09, y = 0.005, just = c('left', 'bottom'), width = unit(1.75, 'cm'))
#}

1 Ответ

0 голосов
/ 04 марта 2019

Пожалуйста, используйте print вокруг вашего plot, чтобы отобразить его.

...