#r #ggplot2 #r-markdown
#r #ggplot2 #r-markdown
Вопрос:
Я использовал 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. @Clemsang Спасибо, это работает! Я приму это как ответ.
2. Рад, что это работает. Я уже сталкивался с проблемой
Ответ №1:
Пожалуйста, используйте print
around your plot
для его визуализации.