我有一个数据框
df = data.frame("A" = c("a","b, c","c","d, e, f"), "B" = c(1,2,3,4), "link" = c("www.a.com", "www.b.com, www.c.com", "www.c.com", "www.d.com, www.e.com, www.f.com"))
A B链接
A 1 www.a.com
b、c 2 www.b.com、www.c.com
C3 www.c.com
d,e,f 4 www.d.com,www.e.com,www.f.com
我制作了格式表
dt.ft <- regulartable(data = dt[, list(A, B, link)])
我想让"A“列中的值与"link”列中的相应值进行超链接,这是我在@DavidGohel的帮助下使用以下命令实现的
dt.ft <- flextable(data = df, col_keys = c("A", "B"))
dt.ft <- compose(x = dt.ft, j = 1, value = as_paragraph( hyperlink_text(x = A, url = link)))
D
这很好用。但是正如你所看到的,在"A“列中有逗号分隔的值,在"link”列中有逗号分隔的链接。如何使相应的超链接显示在同一单元格中?这样,弹性表格将具有列"A“,第二行将具有"b”和"c“超链接到"www.b.com”和"www.c.com“。
如果有任何其他选择来设计DF,我可以做到。它只是我有动态的内容,它会从不同的价值,即。我不知道之前的链接数量。
发布于 2019-06-21 03:22:10
到目前为止,这是不可能的。方法是创建具有相似内容的多个行,但链接和链接值除外,然后合并这些行。这样,在合并的行中就会有多个按垂直顺序排列的超链接。
发布于 2019-06-26 05:03:26
对于像这样的不规则结构,您需要一个特定的函数。
library(flextable)
df = data.frame("A" = c("a","b, c","c","d, e, f"),
"B" = c(1,2,3,4),
"link" = c("http://www.a.com", "http://www.b.com, http://www.c.com",
"http://www.c.com", "http://www.d.com, http://www.e.com, http://www.f.com"),
stringsAsFactors = FALSE)
ft <- flextable(data = df, col_keys = c("A", "B"))
multi_hyperlink_text <- function(labels, links){
out <- mapply(
function(text, url){
dat <- hyperlink_text(text, url = url)
dat <- split(dat, seq_along(text))
as_paragraph(list_values = dat)
},
text = strsplit(labels, split = ","),
url = strsplit(links, split = ","), SIMPLIFY = FALSE, USE.NAMES = FALSE
)
# the following is necessary to comply with expected
# flextable structure !
Reduce(append, out)
}
ft <- compose(x = ft, j = 2, value = multi_hyperlink_text(A, link))
ft <- color(x = ft, j = 2, color = "#0077CC")
ft <- add_footer_lines(x = ft, "column B is made of links")
ft
https://stackoverflow.com/questions/55496434
复制相似问题