对于文本数据2011.txt我们灵活提取字符,借助这个案例理解mapply函数的机制。
df1 <- readLines("2011.txt")
df1 <- df1[7:10] #采取部分数据作为分享
df1
以上是部分数据的内容。
下面我们进行提取。
a <- sapply(space[2]-1, function(x) {
mapply(substr,list(df1),start = x,
stop = x)
} )
sapply(c(5,7),function(x){
mapply(substr,list(df1),start = rep(x,2),
stop = rep(x,1))})