我如何计算R中出现红色国王或皇后的概率？

# 创建扑克牌集合
cards <- c("红桃A", "红桃2", "红桃3", "红桃4", "红桃5", "红桃6", "红桃7", "红桃8", "红桃9", "红桃10", "红桃J", "红桃Q", "红桃K",
           "方片A", "方片2", "方片3", "方片4", "方片5", "方片6", "方片7", "方片8", "方片9", "方片10", "方片J", "方片Q", "方片K",
           "黑桃A", "黑桃2", "黑桃3", "黑桃4", "黑桃5", "黑桃6", "黑桃7", "黑桃8", "黑桃9", "黑桃10", "黑桃J", "黑桃Q", "黑桃K",
           "梅花A", "梅花2", "梅花3", "梅花4", "梅花5", "梅花6", "梅花7", "梅花8", "梅花9", "梅花10", "梅花J", "梅花Q", "梅花K")

# 筛选红色的国王和皇后
red_kings_queens <- cards[grep("红色(国王|皇后)", cards)]

# 统计数量
count <- length(red_kings_queens)

# 计算概率
probability <- count / length(cards)

# 打印结果
cat("红色国王或皇后的概率为:", probability, "\n")