函数:将矩形数据转换成面板数据(并生成表头)未完成
来源:互联网 发布:成都办公软件机构 编辑:程序博客网 时间:2024/06/08 18:34
法一:transdata <-function(x){y <- as.matrix(x)
t1 <- x[,1] //提取第一列元素
t2 <- colnames(y)[-1] //提取标题行(去掉第一个) #默认得到列向量
bt <- expand.grid(t1,t2) //将t1、t2两个列向量拼接在一起 e.g..前18行第一列:为武汉到高速路;第二列全为:Y2002(后每18行变一次年份)
z <- as.vector(y[,-1]) //将矩阵y去掉第一列后的数据按列依次拼接得到一个列向量z. #as.vector不能直接对数据框x使用,故前把数据框变成矩阵
m <- cbind(bt,z) //将生成的新表头和向量z拼接
n <- fix(m)
return(n)}
dr <- read.csv(file="/Users/harriet/Documents/R语言/xunhuan/gdp.csv")
transdata(dr)
1 武汉市 NA NA NA NA NA 3141.90 3960.08 4620.18 5565.93 6756.2000
2 黄石市 NA NA NA NA NA 466.68 556.57 571.59 690.12 925.9600
3 襄阳市 NA NA NA NA NA 785.45 1002.46 1201.01 1538.30 2132.2200
4 荆州市 NA NA NA NA NA 519.63 623.98 709.58 837.10 1043.1200
5 宜昌市 NA NA NA NA NA 820.90 1026.56 1272.33 1547.32 2140.6900
6 十堰市 NA NA NA NA NA 411.42 487.64 550.96 736.78 851.2500
7 孝感市 NA NA NA NA NA 480.79 593.06 672.88 800.67 958.1600
8 荆门市 NA NA NA NA NA 420.08 520.36 600.10 730.07 942.5900
9 鄂州市 NA NA NA NA NA 280.71 269.79 323.71 395.29 490.8900
10 黄冈市 NA NA NA NA NA 473.74 600.75 730.19 862.30 1045.1100
11 咸宁市 NA NA NA NA NA 286.75 359.19 418.45 520.33 652.1000
12 随州市 NA NA NA NA NA 257.62 310.20 341.91 401.66 517.9900
13 恩施州 NA NA NA NA NA 210.35 249.18 294.26 351.13 418.1900
14 仙桃市 NA NA NA NA NA 190.40 233.50 242.55 290.97 378.4500
15 潜江市 NA NA NA NA NA 156.63 211.82 234.01 290.67 378.2100
16 天门市 NA NA NA NA NA 151.48 187.35 186.86 219.48 274.5200
17 林 区 NA NA NA NA NA 6.96 7.97 10.29 12.30 14.5301
18 高速公路 NA NA NA NA NA NA NA NA NA NA
法二:如果要读入的文件都在一个文件夹中
transdata <- function(filename) {dat1 <- read.csv(filename)
as.vector(as.matrix(dat1[,-1]))
}
setwd("/Users/harriet/Documents/R语言/xunhuan/"). //设置统一的路径,减少重复
Lst <- list() //生成列表来储存数据
for (i in dir()) Lst[[which(i==dir())]] <- transdata(i). //将数据依次读入一个list中
a <- sapply(Lst,function(x) x)或a <- sapply(Lst,function(x) x[,3]). //
dat3 <- cbind(表头,a)
阅读全文
0 0
- 函数:将矩形数据转换成面板数据(并生成表头)未完成
- lattice面板数据分析(未完成)
- C# 将数据生成excel并储存
- C# 将数据生成excel并储存
- 用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换
- 用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换
- 用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换
- 用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换
- 用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换
- 将list里的新旧数据做对比生成不存在的数据的新旧集合并转换为JsonObject
- 使用函数生成excel模板并将excel中的数据导入到内表中
- android 将数据转换成JSON数据格式并使用JSONObject解析JSON格式的数据
- 将十六进制数据转换成十进制数据
- 将Java数据转换成Json数据
- 将DataTable数据转换成JSON数据
- 将数据转换成JSON
- web程序:将数据生成一个excel表格并下载
- C#生成txt文件,并将数据写入进去
- Eclipse安装SpringBoot插件:
- 输入一个三位数,然后由小到大输出
- 原来多多输入法生成器可以换图标
- thinkphp5.0 连接数据库方法总结
- jvm内存模型和内存分配
- 函数:将矩形数据转换成面板数据(并生成表头)未完成
- 选择排序
- es6数组方法
- jsonp解决跨域请求问题
- rabbitmq莫名退出的问题解决
- Mac下Sqoop安装与使用
- 用textView实现放大首个字符
- 第七章:复用类
- 学习Python以及其他知识时自己出现的问题