Масштаб ggplot, визуализированный непосредственно в Xaringan - PullRequest
Новая
       4

Масштаб ggplot, визуализированный непосредственно в Xaringan

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

Я сделал следующий график в своем файле Rmarkdown и отрендерил его с помощью Xaringan.

---
title: "myTitle"
output:
  xaringan::moon_reader:
    css: ["default", "kunoichi", "ninjutsu", "metropolis-fonts"]
    lib_dir: libs
    chakra: libs/remark-latest.min.js
    seal: false
    nature:
    countIncrementalSlides: false
    ratio: '16:9'
---

# Two pretty gaussians  

## and a few vertical lines

```{r, echo=FALSE, message=FALSE, warning=FALSE}
library(cowplot)
ggplot(data = data.frame(x = c(-3, 3)), aes(x)) +
  stat_function(fun = dnorm, n = 101, args = list(mean = 1, sd = 1)) + 
  stat_function(fun = dnorm, n = 101, args = list(mean = -1, sd = 1)) + 
  geom_vline(xintercept = 0, colour="black", linetype = "solid") +
  geom_vline(xintercept = c(-1.5,1.5), colour="black", linetype = "longdash") +
  ylab("Density") + xlab("\'Internal Signal\'") +
  scale_y_continuous(breaks = NULL)
```

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

Есть ли способ?renderedResult

1 Ответ

1 голос
/ 22 марта 2019

Использование out.width или out.height работает, сохраняя соотношение сторон.Совместное их использование позволяет изменять соотношение сторон.Использование либо fig.width, либо fig.height, как предлагает @RichardTelford, тоже работает, но не поддерживает соотношение сторон.Тем не менее, вы можете использовать оба вместе, чтобы получить правильное соотношение сторон.

Итог: если бы я просто хотел уменьшить изображение, я бы использовал либо out.widthили out.height. 

---
title: "myTitle"
output:
  xaringan::moon_reader:
    css: ["default", "kunoichi", "ninjutsu", "metropolis-fonts"]
    lib_dir: libs
    chakra: libs/remark-latest.min.js
    seal: false
    nature:
    countIncrementalSlides: false
    ratio: '16:9'
---

# Two pretty gaussians  

## and a few vertical lines

```{r, echo=FALSE, message=FALSE, warning=FALSE, out.width = '200px'}
library(cowplot)
ggplot(data = data.frame(x = c(-3, 3)), aes(x)) +
  stat_function(fun = dnorm, n = 101, args = list(mean = 1, sd = 1)) + 
  stat_function(fun = dnorm, n = 101, args = list(mean = -1, sd = 1)) + 
  geom_vline(xintercept = 0, colour="black", linetype = "solid") +
  geom_vline(xintercept = c(-1.5,1.5), colour="black", linetype = "longdash") +
  ylab("Density") + xlab("\'Internal Signal\'") +
  scale_y_continuous(breaks = NULL)
```

enter image description here

...