R：讀取CSV列並寫入另一列

Question

在下面尋找一些建議：讀取Csv文件列並將行1與行3合並，如預期輸出中所示

CSV文件：實際輸出：

Source: Google          
#                           
Category    Orders   Conversion Visits
Mobiles  50507      5.10%   994251  

預期產量：

Category    Orders   Conversion Visits  Source
Mobiles          12957    1.70%       748276    Google

Answer 1

我們可以用readLines來閱讀

lines <- readLines("yourfile.txt")

使用str_extract從第一行提取單詞

library(stringr)
v1 <- str_extract_all(lines[1], "\\w+")[[1]]

使用read.table讀取“ 3”至4行作為data.frame，並與“ v1” cbind 。

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