R数据输入输出方法

数据输入与创建数据框

#C()系列的创建
scores <- c(61,66,90,88,100)
scores

#data.frame 创建数据框
points <- data.frame(
     labels=c("Low","Mid","High"),
     ubound = c(0.674,1.64,2.33),
     lbound = c(0,0.6,1.64)
 )
points
#edit data.frame--表格方式输入数据
score <- data.frame()
score <- edit(score)
#plot
#plot(cars)
#-------------
# scan() 输入数据(数字)
x <-scan()
x

digits小数位控制

pi
options(digits = 15)
print(pi,digits = 4)  #4位数字
print(100*pi,digits = 4)
cat(pi,"\n")
cat(format(pi,digits = 4),"\n") #4位数字
pnorm(-3:3)
print(pnorm(-3:3),digits = 3)

输出到文件

#cat使用
cat("The answer is",answer,file = "filename",append = TRUE)
cat(data,file = "filename",append = TRUE)
#sink()使用
sink("filename")   #屏幕输出被写入文件
    #    ...other session work...
    #source("script.R")
sink() #停止写入文件,输出到屏幕

#文件列表,目录列表
list.files()
list.dirs()

#write 把数据写入文件
write(x,"filename")
write.csv(data,file = "filename",row.names = T)

读取数据

records <- read.fwf("",widths = c(w1,w2,w3,...,w)) #固定宽度的数据格式w-宽度
dfram <- read.table("data.txt",header=TRUE,sep = ":")
tbl <- read.csv("filename",header=FALSE)
tbl <- read.table("http://www.example.com/download/data.txt")  #直接读取网络数据

save(mydata,file = "mydata.RData")  # 存入
load("mydata.RData")                # 读出

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值