如何将一个单词与R barplot标题中的列表的所有元素连接在一起？

问题描述

| 这是我当前正在运行的代码：

n <- 7
N <- 52
r <- 13
reps <- 1000000
deck <- rep(c(\'h\',\'d\',\'c\',\'s\'),each = r)

diamonds <- rep(NA,length.out = reps)
pos <- sample(x = 1:52,size = 7,replace = FALSE)
for(i in 1:reps) {
  hand <- sample(x = deck,replace = FALSE)[pos]
  diamonds[i] <- sum(ifelse(hand == \'d\',1,0))
}
barplot(table(diamonds),col = \'red\',xlab = \'# of diamonds\',ylab = paste(\'frequency out of\',reps,\'trials\'),main = paste(\'Positions:\',pos[1],pos[2],pos[3],pos[4],pos[5],pos[6],pos[7]))

我真正想要的是能够使用以下类似的东西给小标题命名

barplot(...,pos))

并带有标题“位置：p1 p2 p3 p4 p5 p6 p7 \”，其中p1，p2，...，p7是pos的元素。 对于有兴趣的人，此代码从52个随机选择7个位置，然后在每次洗牌1百万次洗牌后，计算这7个位置内的钻石数量（\'d \'）。然后绘制这7张卡片中钻石数量的经验分布。     

解决方法

        在

paste

中使用

collapse

折叠包含基本检验和

pos

的向量中的多个元素，

paste(c(\'Positions:\',pos),collapse=\" \")

否则，将\“ Positions：\”粘贴到

pos

时，您可以将前者回收到

pos

的长度。