如何在R语言中实现指定格式的文本文件转换？

看起来你已经完成了前期的文本预处理工作，接下来咱们把核心的配对逻辑补全，就能得到你想要的格式啦！

完整实现步骤 #

你的现有代码已经完成了读文件、移除冒号和分割文本的操作，但还没处理「将编号与每个数字逐一配对重复」的关键逻辑。咱们可以这样修改：

# 读取文件内容
fbnet <- readLines("0.egonet")
# 初始化空向量存储最终所有元素
final_elements <- c()

for (line in fbnet) {
  # 移除冒号并按空格分割文本
  line_clean <- gsub(":", "", line)
  line_split <- unlist(strsplit(line_clean, " ", fixed = TRUE), use.names = FALSE)
  # 过滤分割后可能出现的空字符串（比如原行有多余空格时）
  line_split <- line_split[line_split != ""]
  
  # 提取当前行的编号和对应的数字列表
  current_id <- line_split[1]
  target_nums <- line_split[-1]
  
  # 生成编号与数字的配对：把编号和每个数字交替排列
  paired_items <- as.vector(rbind(current_id, target_nums))
  
  # 将当前行的配对结果追加到总列表中
  final_elements <- c(final_elements, paired_items)
}

# 把所有元素合并成空格分隔的字符串
final_output <- paste(final_elements, collapse = " ")
# 输出结果
print(final_output)

关键逻辑解释 #

• 加入line_split <- line_split[line_split != ""]是为了避免原文本中多余空格导致的空元素干扰；
• rbind(current_id, target_nums)会把编号和每个数字排成两行，再用as.vector转成一维向量，自动实现「编号+数字」的交替排列；
• 最后用paste(..., collapse = " ")把所有元素拼接成你需要的格式。

用你的示例输入测试的话，最终会输出：1 146 1 189 1 229 2 191 2 229，完全符合要求。

进阶：向量化写法（更高效） #

如果你的文件行数很多，推荐用R的向量化编程风格替代循环，效率会更高：

fbnet <- readLines("0.egonet")

# 定义处理单行文本的函数
process_single_line <- function(line) {
  line_clean <- gsub(":", "", line)
  line_split <- unlist(strsplit(line_clean, " ", fixed = TRUE), use.names = FALSE)
  line_split <- line_split[line_split != ""]
  current_id <- line_split[1]
  target_nums <- line_split[-1]
  as.vector(rbind(current_id, target_nums))
}

# 批量处理所有行并合并结果
final_elements <- unlist(lapply(fbnet, process_single_line))
final_output <- paste(final_elements, collapse = " ")
print(final_output)

内容的提问来源于stack exchange，提问作者pranav nerurkar