![](/img/trans.png)
[英]How do I subset a list in R by selecting all elements in a list except for one value?
[英]How do I concatenate one word with all elements of a list in R barplot title?
這是我目前正在運行的代碼:
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(..., main = paste('Positions:',pos))
並讓標題說“Positions: p1 p2 p3 p4 p5 p6 p7”,其中 p1,p2,...,p7 是 pos 的元素。
對於任何感興趣的人,此代碼從 52 個位置中隨機選擇 7 個位置,然后在每次洗牌后計算這 7 個位置中的菱形 ('d') 數量,共 1000000 次洗牌。 然后繪制這 7 張卡片中鑽石數量的經驗分布。
在paste
中使用collapse
來折疊包含基本 test 和pos
的向量中的多個元素,
paste(c('Positions:', pos), collapse=" ")
否則,當您將“Positions:”粘貼到pos
時,您會將前者回收到pos
的長度。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.