R语言学习笔记(数据的读取与保存)

2019-05-1711:36:48编程语言入门到精通Comments3,571 views字数 1839阅读模式

library(MASS)#载入package MASS
data(package="MASS") #查看MASS中的数据集
data(SP500,package="MASS") #载入MASS中的SP500数据集
data(SP500) #简化写法
getwd() #返回当前工作目录
setwd("d:/r/r-data") #将当前工作路径修改为文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

data=("d:/r/r-data/",header=T)
data #没有设置工作目录文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

setwd("d:/r/r-data")
data1=("",header=T)
data1 #设定工作目录文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

data2=("",header=T)
data2 #读入CSV文件文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

data3=scan("",skip=1,what=list(City="",Work=0,Price=0,Salary=0))
data3 #不存在header参数,skip=1说明读取时跳过表示名称的第一行文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

mode(data) #显示对象的类型文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

names(data) #显示对象中的标签文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

dim(data) #显示对象的维度文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

data$Salary #通过$符号来选择字段文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

attach(data)
Salary
detach(data) #attach()可以直接通过变量名称来获取变量信息,detach()用来撤销文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

("d:/r/r-data/",widths=c(2,4,4,3),("w","x","y","z"))
data.fwf #widths用来指定4个变量的宽度,指定4个变量的名称文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

("clipboard") #clipboard即剪贴板
data.excel #通过剪贴板的方式来读取excel中的内容文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

("RODBC")文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

library(RODBC)
channel=odbcConnectExcel2007("") #通过RODBC包来连接EXCEL文件
sqlTables(channel) #列出Excel中的表格
(channel,"Sheet1") #读取sheet1
=sqlQuery(channel,"select * from[Sheet1$]") #在channel中使用sql
close(channel) #关闭channel的连接
mode();dim()文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

library(RMySQL)
con=dbConnect(MySQL(),user="root",password="xjs123",dbname="mysql")
#打开一个MySQL的连接
(con) #将数据库中的表名存入table.names
field.names=dbListField(con,"event")
dbReadTable(con,"event") #获取全表
query=dbSendQuery(con,"select *from event")
fetch(query) #显示SQL的结果
dbRemoveTable(con,"event") #删除表
dbDisconnect(con) #关闭连接文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

load("d:/r/r-data/") #读入R格式文件
head(data,5) #显示数据集前五行文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

cat(c("AB","C"),c("E","F"),"n",sep="")
#cat()可以连接字符串、数字向量等文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

i=1:5
cat("i=",i,"n",sep=",") #sep=“,”是以逗号为分隔符文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

cat(c("AB","C"),c("E","F"),file="d:/r/r-data/",sep=".")
readLines("d:/r/r-data/") #以行的形式读取文本文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

cat(i,file="d:/r/r-data/",append=TRUE)
readLines("d:/r/r-data/") #append=TRUE表示追加内容,不覆盖之前内容文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

a=file("d:/r/r-data/") #通过file先打开一个连接
cat("1 2 3 4 ","2 3 5 7","11 13 15 17", file=a, sep="\n") #\n表示换行
(a)文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

data1=("d:/r/r-data/",header=T)
(data1,file="d:/r/r-data/",=T,quote=F)
#写入数据文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

(data1,file="d:/r/r-data/",)
=("d:/r/r-data/")
dim()
#写入CSV文件文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

save(data,file="d:/r/r-data/") #保存R文件
load("d:/r/r-data/") #读入R文件
head(data,5)文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/12465.html

  • 本站内容整理自互联网,仅提供信息存储空间服务,以方便学习之用。如对文章、图片、字体等版权有疑问,请在下方留言,管理员看到后,将第一时间进行处理。
  • 转载请务必保留本文链接:https://www.cainiaoxueyuan.com/ymba/12465.html

Comment

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定