r - R粘贴带有标题的html字符串

Question

对于一个可能非常简单的问题，找不到令人满意的解决方案。

我有一个数据框

df <- data.frame(date=c("a","a","a","a","b","b"),text=c("c","d","e","f","g","h"))

我需要这样的字符串：

"<h4>date a </h4><br> c <br> d <br> e <br> f <br> <h4>date b </h4> <br> g <br> h"

任何提示都会受到高度赞赏

标签： rdplyrpaste

Answer 1

像这样的东西：

 df <- data.frame(date=c("a","a","a","a","b","b"),text=c("c","d","e","f","g","h"), stringsAsFactors = F)


 p1 <- paste("<h4>date", unique(df$date)[1], "</h4><br>", paste(df$text[df$date=="a"], collapse = " <br> "), "<br>")
 p2 <- paste("<h4>date", unique(df$date)[2], "</h4><br>", paste(df$text[df$date=="b"], collapse = " <br> "))

 paste(p1,p2)