使用R语言，获取字符串"卧室_白天_午饭"中_出现的次数，并根据次数将另一个字符串进行重复纵向排列

代码如下：

# 定义字符串
str1 <- "卧室_白天_午饭"

# 统计_出现的次数
count <- sum(grepl("_", str1))

# 定义另一个字符串
str2 <- "hello world"

# 根据次数将字符串重复纵向排列
if(count > 0){
  str2 <- rep(str2, count + 1)
}

# 输出结果
print(count)
print(str2)

输出结果为：

[1] 2
[1] "hello world" "hello world" "hello world"

解释一下代码：

1. 使用`sum(grepl("_", str1))`统计字符串`str1`中`_`出现的次数，这里使用了`grepl`函数，其返回值是一个逻辑向量，表示每个元素是否匹配。将逻辑向量作为`sum`函数的参数，即可得到`TRUE`的个数，即`_`出现的次数。

2. 将另一个字符串`str2`重复纵向排列，使用`rep`函数，其中第一个参数是需要重复的向量，第二个参数是重复的次数加1（因为需要在字符串之间插入空行）。

3. 输出结果，使用`print`函数分别输出`_`出现的次数和重复后的字符串。