分类目录归档:R

重温《统计学习导论》之一

几年前学过Data Analysis and Statistical Inference课程,使用的教材是An introduction to statistical learning with application in R。为了逼自己学下去,还硬头皮写读书笔记,应该说,当初的努力还是有收获的,但这个课程一直学得稀里糊涂的。直到我偶然发现了这个课程所用的教程出了中文版《统计学习导论 基于R应用[......]

Read more

井斜计算的代码备份

不管有多烂,总是需要用的,备份一下 wellbore trajectory computation

我确定用不了三天,我就会忘记了这些东西是怎么捣鼓出来的,特别是乱七八糟的赋值与命名,所以,一定需要备份一下这些个代码,以后需要用的时候直接来扒拉。。。

1.采用校正角平均方法计算井斜

书名=定向钻井设计与计算 (第二版)

作者=韩志勇编

出版日期=2007.11

出版社=中国石油大学出[......]

Read more

Stanford大学Statistical Learning 公开课——Classification

年初的时候希望今年多学一点python,但是没想到Stanford大学的公开课程这么有意思,提供免费教材及data,免费的教材写得通俗易懂:An Introduction to Statistical Learning with Applications in R。看名字就知道是用R来完成实验的,搞得我欲罢不能,花了些时间来学,实际上没看什么视频,主要看ppt和教程中的实验部分,有点意思,希望能跟[......]

Read more

Stanford大学Statistical Learning 公开课——Resampling Methods

年初的时候希望今年多学一点python,但是没想到Stanford大学的公开课程这么有意思,提供免费教材及data,免费的教材写得通俗易懂:An Introduction to Statistical Learning with Applications in R。看名字就知道是用R来完成实验的,搞得我欲罢不能,花了些时间来学,实际上没看什么视频,主要看ppt和教程中的实验部分,有点意思,希望能跟[......]

Read more

ggplot2绘图时可以添加回归线与回归方程吗?

ggplot2添加回归线与回归方程

ggplot2没有内置函数??还是我没找到?搜了很久都没有找到这个excel下使用很频繁的功能。搜来搜去就一种方法,多个出处这里这里,均是写一个函数来实现:

?View Code RSPLUS
1
2
3
4
5
6
7
8
9
10
11
12
13
lm_eqn = function(m) {
  l <- list(a = format(coef(m)[1], digits = 2),
  b = format(abs(coef(m)[2]), digits = 2),
  r2 = format(summary(m)$r.squared, digits = 3));
  if (coef(m)[2] >= 0) {
    eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(r)^2~"="~r2,l)
 } else {
 eq <- substitute(italic(y) == a - b %.% italic(x)*","~~italic(r)^2~"="~r2,l) 
 }
 as.character(as.expression(eq));     
}
#使用方法为:
p1 = p + geom_text(aes(x = 25, y = 300, label = lm_eqn(lm(y ~ x, df))), parse = TRUE)

但是我用起来有问题,主要是他每一个点都显示一个公式,全乱套了,也不知道在哪里修改,于是自己也依样画葫芦实现一个简单的。

e4[......]

Read more