将图像添加到R中的表格式输出

Question

我有一个简单的数据结构:案例是国家,每个国家我有几个数字变量.像这样:

dat <- data.frame(country = c("Belgium", "Germany", "Holland", "Ireland"), Var1 = 1:4, Var2 = 11:14)
print(dat, row.names = FALSE)

 country Var1 Var2
 Belgium    1   11
 Germany    2   12
 Holland    3   13
 Ireland    4   14

该表格需要格式化,标题为粗体,行颜色为灰色或白色,交替显示.

现在,我想要的是在"country"和"Var1"之间添加两个额外的列.第一个新列称为"标志",应包含国家/地区的标志.第二个新专栏被称为"被标记",其中包含一个红旗的图像,该国家在特定的人权问题上得分非常糟糕,如果得分平庸则没有其他方面的橙旗.

如何在R中创建一个以这种方式打印的对象？如何在这种布局中将图像与数据相结合？

(最终这将是创建的更大文档的一部分knitr)

Answer 1

如果你使用带有rmarkdown软件包的knitr,那很简单 - 只需使用Markdown语法来包含图像,例如![]()

---
title: "Flags"
author: "Yihui Xie"
date: "2014/08/03"
output: html_document
---

```{r results='asis'}
dat <- data.frame(
  country = c('Canada', 'United Kindom'),
  abbr = c('ca', 'gb'),
  var1 = c(1, 2),
  var2 = rnorm(2)
)
dat$flag <- sprintf('![](http://flagpedia.net/data/flags/mini/%s.png)', dat$abbr)
library(knitr)
kable(dat)
```