如何在R中每隔一行添加一个字符串？

# 创建一个示例数据框
df <- data.frame(A = 1:5, B = letters[1:5])

# 定义要添加的字符串
string_to_add <- "new_string"

# 创建一个新的数据框，用于存储添加字符串后的结果
new_df <- data.frame()

# 使用循环和索引遍历原始数据框的每一行
for (i in 1:nrow(df)) {
  # 将原始数据框的当前行添加到新的数据框中
  new_df <- rbind(new_df, df[i, ])
  
  # 每隔一行，在新的数据框中添加字符串
  if (i %% 2 == 0) {
    new_row <- data.frame(A = NA, B = string_to_add)
    new_df <- rbind(new_df, new_row)
  }
}

# 打印添加字符串后的结果
print(new_df)