r-markdown - Rmarkdown 绘图和图像并排
问题描述
我正在编写 R markdown 的报告。我知道有一种方法可以让不同的情节并排,也有一种方法可以让不同的图像并排。
但是是否也可以并排显示情节和图像?
我有一个 ggplot 条形图,我想在地图图像旁边显示它,如果我将图像放在图表下方,它会占用太多空间。
谢谢, 问候, 芙蕾雅
解决方案
这可能对你有用。这是一步一步的,括号之间是代码的指示。
首先,您需要y
通过创建对象 ( ) 来加载图像 ( photo
)。
其次,您使用图像 ( ) 创建一个 ggplot photo_panel
。
最后,在创建绘图 ( p1
) 之后,您可以使用库cowplot
来绘制网格 ( plot_grid
)。
.Rmd
文件:
---
title: "Image + graph"
author: bttomio
output: pdf_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```
## R Markdown
```{r image_graph}
y = "http://upload.wikimedia.org/wikipedia/commons/5/5d/AaronEckhart10TIFF.jpg"
download.file(y,'y.jpg', mode = 'wb')
library("jpeg")
photo <- readJPEG("y.jpg",native=TRUE)
library(ggplot2)
library(cowplot)
photo_panel <- ggdraw() + draw_image(photo, scale = 0.8)
df <- data.frame(Years=rep(2016:2017, each=4),
Quarters=rep(paste0("Q", 1:4), 2),
Series1=seq(100, 800, 100))
library(ggplot2)
p1 <- ggplot(df) +
geom_point(aes(x=Quarters, y=Series1)) +
facet_wrap( ~ Years, strip.position="bottom", scales="free_x") +
theme(panel.spacing=unit(0, "lines"),
strip.background=element_blank(),
strip.placement="outside",
aspect.ratio=1) # set aspect ratio
plot_grid(p1, photo_panel, ncol = 2)
```
输出:
推荐阅读
- java - 为什么我的代码永远运行?它只是一堆应该递减的整数的for循环?
- ios - 如何在 iPhoneXR/iPhone11 中获取当前的蜂窝提供商
- ios - 在大标题模式下获取或设置导航标题的前导间距 - SwiftUI
- google-apps-script - 如何在应用程序脚本编辑器中强制自动完成模棱两可的变量?
- amazon-web-services - AWS Lambda 层如何与私有 conda 存储库一起使用?
- javascript - 避免在子表中使用父表数据时删除它
- android - 获取 GET 请求未到达 Android 上的 API 语法错误:JSON 解析错误意外 EOF 解析@[本机代码]
- android - 永远不会触发 MutableLiveData 观察
- mongodb - MongoDB Group Aggregation 中的多个累加器查询日、周、月和年
- python - pylint 因“无法导入 moto”而失败,python 可以导入它