楼主: yanmingsleep
1085 1

[实际应用] 关于字符处理 [推广有奖]

  • 0关注
  • 0粉丝

初中生

23%

还不是VIP/贵宾

-

威望
0
论坛币
990 个
通用积分
0
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
62 点
帖子
7
精华
0
在线时间
13 小时
注册时间
2013-3-8
最后登录
2019-4-23

相似文件 换一批

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
背景情况:公司后台给出数据库数据:SQL查询出的数据,保存格式是excel(.xlsx)然后一个表里面有很多工作表,因为是做整个数据,我需要把这些表都放在一个数据框里,要整体计算。

我的代码

library(RODBC)
alldata <- odbcConnectExcel2007("同一身份证开立支付账户的关联监控.xlsx")
sqlTables(alldata)$TABLE_NAME;#显示excel中所有表的名字
mydata<-lapply(sqlTables(alldata)$TABLE_NAME,function(x) sqlFetch(alldata,x))写入数据
data<-do.call("rbind",mydata)




sqlTables(alldata)结果


sqlTables(alldata)结果.png

sqlTables(alldata)$TABLE_NAME结果
sqlTables(alldata)$TABLE_NAME结果.png

错误出现在
mydata<-lapply(sqlTables(alldata)$TABLE_NAME,function(x) sqlFetch(alldata,x))写入数据
中的sqlFetch(alldata,x)中,如果sqlTables(alldata)$TABLE_NAME中的每个结果没有双引号就可以成功了,我想问一下如何删除这些双引号,或者在lapply引用的时候去掉双引号呢?

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:Library RODBC EXCEL 数据库数据 BRARY

沙发
DM小菜鸟 发表于 2015-2-26 16:31:12 |只看作者 |坛友微信交流群
要不你别用这个包了
安装xlsx扩展包。(需要先装java)
之后library(xlsx),使用read.xlsx就可以了~

要是保险一点的,就直接做数据框,具体内容从excel里面导入就可以了
mydataframe=data.frame()

使用道具

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-5-18 01:11