rstudio的数据集怎么建立和保存_R语言学习笔记(数据的读取与保存)

library(MASS)#载入package MASS

data(package="MASS") #查看MASS中的数据集

data(SP500,package="MASS") #载入MASS中的SP500数据集

data(SP500) #简化写法

getwd() #返回当前工作目录

setwd("d:/r/r-data") #将当前工作路径修改为

data=read.table("d:/r/r-data/salary.txt",header=T)

data #没有设置工作目录

setwd("d:/r/r-data")

data1=read.table("salary.txt",header=T)

data1 #设定工作目录

data2=read.csv("salary.csv",header=T)

data2 #读入CSV文件

data3=scan("salary.txt",skip=1,what=list(City="",Work=0,Price=0,Salary=0))

data3 #不存在header参数,skip=1说明读取时跳过表示名称的第一行

mode(data) #显示对象的类型

names(data) #显示对象中的标签

dim(data) #显示对象的维度

data$Salary #通过$符号来选择字段

attach(data)

Salary

detach(data) #attach()可以直接通过变量名称来获取变量信息,detach()用来撤销

data.fwf=read.fwf("d:/r/r-data/fwf.txt",widths=c(2,4,4,3),col.name=c("w","x","y","z"))

data.fwf #widths用来指定4个变量的宽度,col.names指定4个变量的名称

data.excel=read.delim("clipboard") #clipboard即剪贴板

data.excel #通过剪贴板的方式来读取excel中的内容

install.packages("RODBC")

library(RODBC)

channel=odbcConnectExcel2007("Salary.xlsx") #通过RODBC包来连接EXCEL文件

sqlTables(channel) #列出Excel中的表格

data.excel12=sqlFetch(channel,"Sheet1") #读取sheet1

data.excel12=sqlQuery(channel,"select * from[Sheet1$]") #在channel中使用sql

close(channel) #关闭channel的连接

mode(data.excel12);dim(data.excel12)

library(RMySQL)

con=dbConnect(MySQL(),user="root",password="xjs123",dbname="mysql")

#打开一个MySQL的连接

table.names=dbListTables(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) #关闭连接

load("d:/r/r-data/Salary.Rdata") #读入R格式文件

head(data,5) #显示数据集前五行

cat(c("AB","C"),c("E","F"),"n",sep="")

#cat()可以连接字符串、数字向量等

i=1:5

cat("i=",i,"n",sep=",") #sep=“,”是以逗号为分隔符

cat(c("AB","C"),c("E","F"),file="d:/r/r-data/cat.txt",sep=".")

readLines("d:/r/r-data/cat.txt") #以行的形式读取文本

cat(i,file="d:/r/r-data/cat.txt",append=TRUE)

readLines("d:/r/r-data/cat.txt") #append=TRUE表示追加内容,不覆盖之前内容

a=file("d:/r/r-data/cat.txt") #通过file先打开一个连接

cat("1 2 3 4 ","2 3 5 7","11 13 15 17", file=a, sep="\n") #\n表示换行

read.table(a)

data1=read.table("d:/r/r-data/salary.txt",header=T)

write.table(data1,file="d:/r/r-data/salary1.txt",col.names=T,quote=F)

#写入数据

write.csv(data1,file="d:/r/r-data/salary1.csv",row.names=F,quote=F)

data.csv=read.csv("d:/r/r-data/salary1.csv")

dim(data.csv)

#写入CSV文件

save(data,file="d:/r/r-data/salary1.Rdata") #保存R文件

load("d:/r/r-data/salary1.Rdata") #读入R文件

head(data,5)


版权声明:本文为weixin_31569671原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接和本声明。