第二期R48-小之

R48-小之 2017-10-26 12:00:45 阅读: 1091

1. 数据手动收入

A <- c(5, 7, 4, 1, 3, 2, 5, 5, 6, 11, 8, 2, 2)

B<- c(32,40,21,23,28,36,40,50,48,68,55,27,18)

opar<- par(no.readonly=TRUE)

plot(A,B,pch=18,cex=1.5,col="blue",main="MSA（多系统萎缩）患者病程和UPDRS评分的关系",xlab="病程",ylab="UPDRS评分")

par(opar)

2. 使用键盘输入数据

mydata<- data.frame("病程"=numeric(0),"水平"=numeric(0))

mydata<- edit(mydata)

手动.png

3. 导入CSV数据

mydatat<- read.table("first-data.csv",sep=",")

mydatat

4. 导入Excel数据

（1）RODBC包-失败，原因EXCEL软件升级，此包只能读取低版本。同时，扩展包目前只支持32位的R。

失败.png

（2）xlsx包

Sys.setenv(JAVA_HOME='C:/Program Files/Java/jre1.8.0_151')

library(xlsx)

library(rJava)

library(xlsxjars)

workbook<- "E:/R/data/data1.xlsx"

mydataframe<- read.xlsx(workbook,1,header=FALSE,encoding="UTF-8")

mydataframe

邀请讨论

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论

受邀请回答

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复

发送回复

赞({{item.count_zan}})

踩({{item.count_cai}})

删除

回复关闭