R语言-读取、输出及操作

转载 2016年05月31日 23:11:39

----------读取txt格式数据

a<-read.table("xiaoliang.txt",header= TRUE)


----------读取xlsx(excel2007)的文件

library(xlsx)
a<-read.xlsx("samuel.xlsx",1)


-----------读取网页表格

如果是想抓去网页上的某个表格,那么可以使用XML包中的readHTMLTable()函数。例如我们想获得google统计的访问最多的1000名网站数据,则可以象下面这样做。关于这个函数可以参考这篇博文。
url <- 'http://www.google.com/adplanner/static/top1000/'
data <- readHTMLTable(url)
names(data)
head(data[[2]])


----------批量读取本地文件

在批量读取文档时一般先将其存放在某一个目录下。先用dir()函数获取目录中的文件名,然后用paste()将路径合成,最后用循环或向量化方法处理文档。例如:
doc.names <- dir("path")
doc.path <- sapply(doc.names,function(names) paste(path,names,sep='/'))
doc <- sapply(doc.path, function(doc) readLines(doc))


--------与数据库连接取数

library(RMySQL)
connectMySQL<-function(mysql,dbname,user,password,host){
  drv<-dbDriver(mysql)
  return(dbConnect(drv,dbname,user,password,host))
}
connect <- function()
{
  con <- connectMySQL(mysql = "MySQL", dbname = "test", user = "***", password = "A", host = "10.***")
  return(con)
}
con=connect()
news=dbGetQuery(con,"select news_content from news_cms where substr(news_time,1,10)='2016-05-09';")

--------------输出数据

write.table(AAPL, file = "E:/R脚本/data.csv", append =FALSE)


---------------与数据库相连输出数据

con<-connect()
dbWriteTable(con, "cookie_adlog_2", ad_msg,row.names =FALSE, overwrite = TRUE)

overwrite: 一个逻辑值,是否覆盖表中的数据,默认为FALSE

append: 一个逻辑值,是否是追加数据到已存在的表,默认为FALSE


--------------保存为逗号分割文本


>write.csv(d, file = "c:/data/foo.csv", row.names = F, quote = F)




------------ 保存为R格式文件


save(d, file = "c:/data/foo.Rdata")

存到本地

save(I,file="/opt/mllib_data/futureKPI/futureUserIndex.dat")



----------通过R在mysql建表

data_delete<-dbGetQuery(conn,str_c("CREATE TABLE ss_usr_trd_anlytcs
(
  dy    varchar(8) comment '时间',
  eqt_id varchar(500) comment '用户名',
  rgstr_date   varchar(50)  comment '注册时间',
  fst_trd_date  varchar(50)  comment '首次成交时间',
  lst_trd_date varchar(50)  comment '最近1次成交时间',
  lst_trd_amt  double comment '最近1次成交金额',
  trd_sccss_cnt_lst_mnth      int comment '最近1个月累计成交次数',
  trd_amt_lst_mnth    double comment '最近1个月累计成交金额',
  trd_sccss_cnt_thr_mnth  int comment '最近3个月累计成交次数',
  trd_amt_thr_mnth  double comment '最近3个月累计成交金额',
  accmltd_trd_sccss_cnt    int comment '累计成交次数',
  accmltd_trd_amt     double comment '累计成交金额',
  trd_cnt_lst_mnth      int comment '最近1个月累计交易次数',
  ss_usr_type   text  comment '用户类型',
  ss_strtg_prdct  text comment '购买的及购买次数和总金额数',
  ss_strtg_trnd_wght text comment '按次数、金额、时间计算产品类别及其权重',
  strtg_type       text comment '类型及其次数',
  ss_prdct_type  text comment '产品类别及其购买次数 ',
  ss_strtgs_lvl   text comment '等级及次数'
)
ENGINE=MyISAM DEFAULT CHARSET=utf8", collapse = ""))

相关文章推荐

R语言的数据导入与导出学习笔记

福尔·摩斯曾说过:“数据,数据,没有数据的推理是罪恶!”不过比起有意思的统计分析,数据的导入与导出显得十分的无趣,但是不得不说统计分析的数据导入与导出是个让人沮丧的任务,而且耗时巨大。       ...

R语言 print函数的参数

print.default(base) print.default()所属R语言包:base                                         Default P...

R语言使用RMySQL连接及读写Mysql数据库

简单说下安装过程,一般不会有问题,重点是RMySQL的使用方式。 系统环境说明 Redhat系统:Linux 460-42.6.32-431.29.2.el6.x86_64 系统编码:LANG=zh_...

R通过RJDBC连接外部数据库

1、  连接hive library(RJDBC) drv conn 2、  连接mysql library(RJDBC) drv

R语言使用RMySQL连接及读写Mysql数据库

R语言使用RMySQL联接及读写Mysql数据库 www.MyException.Cn  网友分享于:2015-08-26  浏览:0次 R语言使用RMySQL连接及读写Mysql数据库 简单说...

R语言学习笔记 —— table 函数的应用

一、table 函数对应的就是统计学中的列

ROracle各种命令用法

dbCommit-methods 说明:在Oracle里事务的提交和回滚   使用方法: dbCommit(conn, ...) dbRollback(conn, ...)   举例: ...

R-数据写入,不覆盖 append=T,以及数据存出后多出一列

遇到问题:(pending) write.csv(a,"a.csv",append=T) 提示: Warning message: In write.csv(a,"a.csv",  :   不能修改'...

R语言之画图函数参数

R的基本画图函数非常容易学,看上去也很普通。然而适当的参数设置,有意义的颜色设置,不同基本图间的互相组合,会使你的图更漂亮也更有力的表达数据。下面介绍一些R基本包里画图函数的参数:  his...

R语言连接MySql的详细步骤及中文乱码问题

R语言连接MYSQl,RODBC包,ODBC的下载和安装
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:R语言-读取、输出及操作
举报原因:
原因补充:

(最多只允许输入30个字)