如何在R Markdown输出中创建链接以获取带有文本超链接的pdf或HTML

2019年7月28日 173次阅读

我在R Markdown中有一个数据帧输出.我的问题是链接列很长,我想在文本列(在本例中为“model”)中使用“link”列创建超链接.在R Markdown中,可以以纯文本形式建立链接,但我不知道如何在数据输出中创建它.我想获得pdf或
HTML文件.

library (dplyr)
library (data.table)

data <- select(mtcars[1:4,], cyl, gear)
data <- setDT(data, keep.rownames = TRUE)
colnames(data) <-c("model","cyl","gear")
data$link <- paste('http://example.com/',data$model, sep = "")

data
            model cyl gear                              link
1:      Mazda RX4   6    4      http://example.com/Mazda RX4
2:  Mazda RX4 Wag   6    4  http://example.com/Mazda RX4 Wag
3:     Datsun 710   4    4     http://example.com/Datsun 710
4: Hornet 4 Drive   6    3 http://example.com/Hornet 4 Drive

我想获得带有超链接的模型列：

model                                      cyl    gear                             
[Mazda RX4](http://example.com/Mazda)        6       4      
[Mazda RX4 Wag](http://example.com/Mazda)    6       4  
[Datsun 710](http://example.com/Datsun)      4       4     
[Hornet 4 Drive](http://example.com/Hornet)  6       3

但是当我在R-Markdown中这样做时,我没有结果.有什么办法吗？
提前致谢.

最佳答案 你必须计算你的格式,但你可以在块选项中有R Markdown打印结果=’asis’：

---
output:
  pdf_document: default
  html_document: default
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library (dplyr)
library (data.table)

data <- select(mtcars[1:4,], cyl, gear)
data <- setDT(data, keep.rownames = TRUE)
colnames(data) <-c("model","cyl","gear")
data$link <- paste('http://example.com/',data$model, sep = "")
data$markdown_output <- paste0("[", data$model, "](",data$link, ")")
```

## R Markdown Output

```{r output, results='asis'}
data$markdown_output
```
点赞