Question

我有一个包含以下内容的.csv文件：

84,62,175,235,374,221,292,375,430,497,0,0,736,0,0,0
85,62,298,337,149,181,247,424,228,383,0,0,1657,0,0,0
87,62,198,181,347,355,423,479,403,494,0,0,261,0,0,0
88,62,289,202,422,310,388,430,498,604,0,0,259,0,0,0
122,41,276,231,247,294,402,463,383,461,0,0,87,0,0,0

我还有一个包含以下内容的.csv文件：

10848,0,0,0,272826,84
10849,0,0,0,272806,85
10850,0,1,0,272812,85
10851,1,0,0,440831,85
10870,0,0,0,271567,122
10871,0,1,0,438415,122

使用R，如何将它们合并在一起（按第一个表中的第一列，然后按第二个表中的最后一列）并添加引号以使其看起来更好。

非常感谢。

Answer 1

这是一种可行的方法，只需适应您的情况即可

df<-c('33','429:301:255:38','450692,450693,450694,450695')
df[1]<-paste('[',shQuote(df[1]),']')
df[2]<-paste(' = {[',shQuote(df[2]),']')
df[3]<-paste(', [',shQuote(df[3]),']}')
dff<-paste(df[1],df[2],df[3])
library("openxlsx") 
setwd("C:\\temp")
wb<-createWorkbook()
addWorksheet(wb, sheetName = "test")
writeData(wb,dff,sheet = "test", rowNames = FALSE)
name <- paste("mydata_",Sys.Date(),".xlsx", sep="")
saveWorkbook(wb,name, overwrite = TRUE)

如何合并基于列的行并修改R中的布局代码？

1 个答案: