加载中…R 数据导入+ 函数包 的更新
(2014-04-07 16:49:39) | 分类： 14.R语言学计量 |
A.安装图形界面：
Rcmdr包，输入：
install.packages("Rcmdr")
接着就让其自动操作，选择一下镜像站就可以了。
2.接着运行，输入：
library(Rcmdr)
回车
就会出现附件的图形界面，在这个界面上可以实现几乎所有的统计分析方法。
以后运行，只要输入
B.函数包的更新
chooseCRANmirror() 选择站点
install.packages("RCurl")
require('RCurl')
C.数据导入
（1）spss数据
考虑到我们社会学的xdjm们用spss最多，我就先讲如何将spss的数据导入到R里面去。用
于这个目的的命令在foreign统计包里面，起命令叫做read.spss().加入你c盘有一个文
件叫做file.sav,而你想导入R当中，并把导入的数据叫做data1，你可以使用如下命令：
>library(foreign)#加载foreign统计包。注意#符号后面的中文表示注释。
>data1<-read.spss("c:\file.sav")
这样数据就导进去了。如果你想data1在R里面是以data.frame形式存在，可以使用：
>data1<-read.spss("c:\file.sav",to.data.frame=T)
(2)stata数据
R可以将stata5-8版的数据导入。比如你c盘有数据file2.dta,那么可以使用如下命令导
入。
>data2<-read.dta("c:\file2.dta")
数据file2就读进R中，并保存在一个叫做data2的对象中。
在R中还有一个命令将R中的data.frame形式的对象写出，变成stata格式的数据的数据。
比如将data2导出到c:\file3.dta,可以使用如下命令：
>write.dta(data2,file="c:\file3.dta")
我忘记了spss格式的数据是否可以和stata的数据相互导入，如果不行，R就可以当作一
个数据格式转换工具了――将spss数据转为stata数据。
（3）excel数据
excel数据可以先用excel将数据打开，另存为csv格式的数据，然后使用read.csv命令来
导入到R中。一般情况下，使用默认的参数就可以。具体的参数可以看?read.csv
比如将c:\file.csv导入到R中，可以使用
>data4<-read.csv("c:\file.csv")
R中的data4数据就是原来要导入的数据了。
也有一个命令可以把数据以csv格式写到硬盘中，可以用下面的命令看help文件。
>?write.csv
read.csv(file = "", row.names = 1)
(4)我想在R中直接输入数据，并且还希望有类似spss的spreadsheet，应该如何？
>edit(data3<-data.frame())
就可以看到一个界面，你可以数据数据了。你所输入的数据就存在data3这个对象中。
如果你数据了部分退出了，以后还想继续把数据输入原来的数据中，可以使用
>edit(data3)
值得注意的是，所有这些数据对象都是在电脑内存中的，如果你想把这些数据保存到硬
盘中，可以使用
>save.image()
这就保存到R的根目录下。
更多的信息可以看
>?save
还有很多不同的选项，但是上面这些基本上可以让我们对此有一个大致的了解。更加详
细的内容可以看使用手册。
>help.start()
就会打开一个网页，上面有R Data Import/Export，这个手册对数据导入和导出有详细
的介绍。
附录：
【背景】
折腾：
期间，直接去运行代码：
|
1
|
retHtml <- getURL("http://www.yiteng365.com/commodity.do?id=5708&ispng=") |
结果出错：
| > retHtml <-
getURL("http://www.yiteng365.com/commodity.do?id=5708&ispng=") Error: could not find function "getURL" |
如图：
http://www.crifan.com/files/pic/uploads/2014/02/r-Error-could-not-find-function-getURL_thumb.png
【解决过程】
1.参考：
Dimitrios Kouzis-Loukas’ Blog – Running R from Cygwin with RCurl
去试试：
|
1
2
3
4
5
|
> require('RCurl')Loading required package: RCurlWarning message:In library(package, lib.loc = lib.loc, character.only =
TRUE, logical.return = TRUE, there
is no package called ‘RCurl’ |
结果是找不到无法加载RCurl。
2.继续去试试：
|
1
|
> chooseCRANmirror() |
然后选择对应的China（HeFei）应该是USTC的镜像。
http://www.crifan.com/files/pic/uploads/2014/02/choose-CRAN-mirror-for-r_thumb.png
3.再继续去安装：
|
1
|
install.packages("RCurl") |
稍等即可安装好：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
> require('RCurl')Loading required package: RCurlWarning message:In library(package, lib.loc = lib.loc, character.only =
TRUE, logical.return = TRUE, there
is no package called ‘RCurl’> chooseCRANmirror()> install.packages("RCurl")also installing the dependency ‘bitops’ Content type 'application/zip' length 35878 bytes (35
Kb)opened URLdownloaded 35 Kb Content type 'application/zip' length 2836490 bytes (2.7
Mb)opened URLdownloaded 2.7 Mb package ‘bitops’ successfully unpacked and MD5 sums
checkedpackage ‘RCurl’ successfully unpacked and MD5 sums
checked The downloaded binary packages are in C:\Users\CLi\AppData\Local\Temp\RtmpIRchyS\downloaded_packages> |
然后再去试试就可以了：
|
1
2
3
|
> require('RCurl')Loading required package: RCurlLoading required package: bitops |
如图：
http://www.crifan.com/files/pic/uploads/2014/02/r-lan-install-rcurl-and-bitops-done_thumb.png
【总结】
可以通过R语言的自带GUI工具中输入命令：
|
1
2
|
chooseCRANmirror()install.packages("RCurl") |
而自动帮我们选择镜像（自己选）和安装对应的库的。
喜欢
0
赠金笔