在下面寻找一些建议: 读取Csv文件列并将第1行与row3合并为预期输出
CSV文件: 实际输出:
Source: Google
#
Category Orders Conversion Visits
Mobiles 50507 5.10% 994251
预期产出:
Category Orders Conversion Visits Source
Mobiles 12957 1.70% 748276 Google
答案 0 :(得分:0)
我们可以使用readLines
lines <- readLines("yourfile.txt")
使用str_extract
library(stringr)
v1 <- str_extract_all(lines[1], "\\w+")[[1]]
阅读&#39;行&#39; 3到4作为带有read.table
和cbind
的数据框架,带有&#39; v1&#39;。
d1 <- read.table(text=lines[-(1:2)], header=TRUE)
cbind(d1, setNames(list(v1[2]), v1[1]))
# Category Orders Conversion Visits Source
#1 Mobiles 50507 5.10% 994251 Google