bsspirit / book-r1

R的极客理想-工具篇

《R的极客理想-工具篇》

图书介绍

http://fens.me/book-r1

代码

本项目包括了《R的极客理想-工具篇》一书，所有代码源文件。每个目录对应一个章节，请读者自行下载使用。

作者的第二本书 《R的极客理想-高级开发篇》，第三本书《R的极客理想-量化投资篇》。

勘误和支持

由于笔者的水平有限，加之编写时间仓促，书中难免会出现一些错误或者不准确的地方，恳请读者批评指正。为此，笔者创建一个在线的图书官方网站( http://fens.me/book )，方便与读者进行沟通。 如果读者在阅读过程中遇到问题，也可以在官方网站中留言，我将尽量在线上为你提供最满意的解答。

如果你有什么宝贵意见，欢迎发送邮件至[email protected]，期待能够得到你真挚的反馈。

联系作者

• QQ群：383275651
• 博客：http://fens.me
• 微博：@Conan_Z
• 邮箱：[email protected]

book-r1's Issues

勘误6.4.3 代码多了一个数字

代码最后head(y)处

> head(y)
  Petal.Length Petal.Width Sepal.Length Sepal.Width Species
1          1.4         0.2          5.1         3.5  setosa
2          1.4         0.2          4.9         3.0  setosa
3          1.3         0.2          4.7         3.2  setosa
4          1.5         0.2          4.6         3.1  setosa
5          1.4         0.2          5.0         3.6  setosa
6

最后一行6去掉，改为

> head(y)
  Petal.Length Petal.Width Sepal.Length Sepal.Width Species
1          1.4         0.2          5.1         3.5  setosa
2          1.4         0.2          4.9         3.0  setosa
3          1.3         0.2          4.7         3.2  setosa
4          1.5         0.2          4.6         3.1  setosa
5          1.4         0.2          5.0         3.6  setosa

勘误-卷尾语

……相信这套书可以让数据《库》开发者少走弯路，同时也是对统计工作者视界……
多了一个“库”

刘思喆

description 显示工篇篇，应该是工具篇？

description 显示工篇篇，应该是工具篇？

勘误5.4.5排版问题 - 运行日志

运行客户端程序

> library(websockets)
> client = websocket("ws://192.168.1.201",port=7681)
> rece<-function(DATA, WS, HEADER) { +   D='' +   if(is.raw(DATA)){ +     cat("raw data") +     D = rawToChar(DATA) +   } +   cat("==>",D,"\n")}
> set_callback("receive",rece, client)
> websocket_write("2222", client)
[1] 1

> service(client)
raw data==> You sent 2222

> websocket_close(client)
Client socket 3  was closed.

转行问题， 改为

> library(websockets)
> client = websocket("ws://192.168.1.201",port=7681)
> rece<-function(DATA, WS, HEADER) { 
+   D='' 
+   if(is.raw(DATA)){ 
+     cat("raw data") 
+     D = rawToChar(DATA) 
+   } 
+   cat("==>",D,"\n")
+}
> set_callback("receive",rece, client)
> websocket_write("2222", client)
[1] 1

> service(client)
raw data==> You sent 2222

> websocket_close(client)
Client socket 3  was closed.

勘误-前言部分

勘误和支持
... 一个在线的图书交流网站( https://onbook.me )，方便....

https 改为 http

文字描述错误

P212 “用RHive从历史数据中提取逆回购信息”中前言部分“各种机构 分分出售股票，债券，兑换成现金借给应银行。”应该是“纷纷”

P29页，“JSON文档比XML文档要少很多”，行文不标准，不该用“少”，准确的中文应该是“小”。少形容数量多少，这里明显是说明JSON为什么更适合网络传输所以应该是文件大小的小。

由 iphyer 发现错误 [email protected]

thanks

R

EN-COOO,p15

https://onbook.me 改为 http://onbook.me ，链接也要对应修改

勘误5.4.5排版问题 - client.r文件代码

client.r文件代码

~ vi client.r
library(websockets)    #加载类库
client = websocket("ws://192.168.1.201",port=7681)   #创建客户端实例
rece<-function(DATA, WS, HEADER) {   D=''   if(is.raw(DATA)){     cat("raw data")     D = rawToChar(DATA)   }   cat("==>",D,"\n")}   #监听receive
set_callback("receive",rece, client)
websocket_write("2222", client)   #向服务器发请求
service(client)    #输出服务器的返回值
websocket_close(client)    #关闭连接

代码没换行，改为：

library(websockets)    #加载类库
client = websocket("ws://192.168.1.201",port=7681)   #创建客户端实例
rece<-function(DATA, WS, HEADER) {   
    D=''   
    if(is.raw(DATA)){     
        cat("raw data")     
        D = rawToChar(DATA)   
    }   
    cat("==>",D,"\n")
}   
set_callback("receive",rece, client)  #监听receive
websocket_write("2222", client)   #向服务器发请求
service(client)    #输出服务器的返回值
websocket_close(client)    #关闭连接
}

勘误-3.2.5节 代码排版问题

数据可视化：第一个例子，股票数据分析案例。

> file<-"fun1_rprof.out"> plot(parse_rprof(file))        # plot画图
> ggplot(parse_rprof(file))       # ggplot2画图

代码没换行，改为：

> file<-"fun1_rprof.out"
> plot(parse_rprof(file))           # plot画图
> ggplot(parse_rprof(file))       # ggplot2画图