r - 在 R 图中用百分比标记

Question

嗨，我已经制作了这个函数，它需要一个表格并为条形图准备标签

prepare_labels <- function(ft){
  labs <- ft
  labs <- paste(labs, "\n", sep="")
  labs <- paste(labs, round(prop.table(ft)*100,2), sep="")
  labs <- paste(labs, "%", sep="")
  return(labs)
}

它实际上工作正常，但是有没有更好的方法来编写该函数，上面的代码看起来很丑，我想编写漂亮的代码:-)

前任:

ft <- table(mydata$phone_partner_products)
prepare_labels(ft)
[1] "3752\n34.09%" "226\n2.05%"   "2907\n26.41%" "1404\n12.76%" "1653\n15.02%"
[6] "1065\n9.68%" 

Answer 1

由于所有粘贴调用的 sep 参数都相同，因此您可以合并为一个:

labs <- paste(ft,"\n",round(prop.table(ft)*100,2),"%",sep="")