如何将DataFrame列值转换为HTML标签并生成对应自定义表格

你可以通过拆分列值+字符串拼接的方式完成需求，配合dplyr和purrr包可以快速实现，代码如下：

1. 导入依赖包

library(dplyr)
library(purrr)

2. 定义HTML表格生成函数

build_html_tbl <- function(a_val, b_val) {
  # 按逗号拆分两列的内容
  ratings <- strsplit(a_val, ",")[[1]]
  texts <- strsplit(b_val, ",")[[1]]
  # 拼接表头
  html_head <- '<table border=1><tr><th>Ratings</th><th>Text</th></tr>'
  # 拼接内容行
  html_body <- paste0(
    mapply(function(r, t) paste0('<tr><td>', r, '</td><td>', t, '</td></tr>'), ratings, texts),
    collapse = ""
  )
  # 拼接完整标签
  return(paste0(html_head, html_body, '</table>'))
}

3. 为数据框新增目标列

df <- df %>%
  rowwise() %>%
  mutate(ColC = build_html_tbl(ColA, ColB)) %>%
  ungroup()

运行后输出的ColC列内容和你期望的HTML结构完全一致。

内容的提问来源于stack exchange，提问作者user11740857