R 使用Lappy从动态数据生成降价报告语句

如何生成这样的句子：

Type <- c("A","A","A","A","A","A","A","A","A",
           "B","B","B","B","B","B","B","B",
           "C","C","C","C","C","C","C",
           "AB","AB","AB","AB","AB")
Type <- as.data.frame(Type)

A型占10（34%），B型占8（28%），C型占7（24%），AB型占5（17%）。

根据如下动态数据：

Type <- c("A","A","A","A","A","A","A","A","A",
           "B","B","B","B","B","B","B","B",
           "C","C","C","C","C","C","C",
           "AB","AB","AB","AB","AB")
Type <- as.data.frame(Type)

类型%
粘贴0（（（长度（$Type类型[Type$Type==x]））/length（Type$Type）*100），“%”）
}
有一个更简单的解决方案。只需在
prop.table
中包装一个
table
语句。这就是它的意义所在

prop.table(table(Type))

然后你的句子：

pt <- prop.table(table(Type))

t  <- table(Type)


paste0("Type ", names(pt)[1], " accounted for ", t[1], " (",pt[1]*100,"%)...")

[1] “A类占9（31%）…”

这些都很简单，现在你如何获取这些值并将它们插入其中：“A型占10（34%），B型占8（28%），C型占7（24%），AB型占5（17%）。”是的，我只是想看看如何显示计数。谢谢。@Seth当然没问题。你看了之后，我可能已经更新了答案。使用
t
table(Type)

Type
 A AB  B  C 
 9  5  8  7

pt <- prop.table(table(Type))

t  <- table(Type)


paste0("Type ", names(pt)[1], " accounted for ", t[1], " (",pt[1]*100,"%)...")

paste0("Type ", names(pt)[1], " accounted for ", t[1], " (",round(pt[1]*100),"%)...")