月度归档:2014年09月

一树一草

一棵树 Trunk 一棵中空的树,依然郁郁葱葱,不走近树干,根本感觉不到它已经苍老脆弱成这个样子了,不知道它还能坚持多久。。。

顽强的草 Grass on windowsill

春末夏初的时候,某天突然发现窗台上多了这么一个不速之客,我在窗里,没注意到窗外。。。它一天天的长大长大。。。

它是怎么来的?怎么在这样的环境下长起来的?这几个月来,它又是怎么长大的?

合并相邻行中特征相同的数据--循环版

这个问题其实很早就出现了,以前一直是在excel里手工操作,累眼累手费鼠标,用了R以后就一直想偷懒,昨天领到一份新数据的时候,就开始琢磨怎么弄。

数据demo和期待的结果:

?View Code RSPLUS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
longcan2 <- read.csv("lc2.csv")
head(longcan2)
#   序号 起始井深 结束井深 层位 分析结果
# 1    1       33       34  S1w 砂质泥岩
# 2    2       34       35  S1w 砂质泥岩
# 3    3       35       36  S1w 砂质泥岩
# 4    4       36       37  S1w 泥质砂岩
# 5    5       37       38  S1w 泥质砂岩
# 6    6       38       39  S1w 泥质砂岩
 
###期待的结果
 
#    序号 起始井深 结束井深 层位 分析结果
# 3     3       33       36  S1w 砂质泥岩
# 12   12       36       48  S1w 泥质砂岩
# 18   18       48       66  S1w 砂质泥岩
# 40   40       66      135  S1w     泥岩
# 41   41      135      138  S1w     砂岩
# 47   47      138      156  S1w     泥岩

实际上难度不太大,就是判断相邻的两行数据,如果某些属性是相同的,就合并成一条数据,分别取上一条数据和下一条数据的某些值来组合。

遇到的第一个难题是[......]

Read more