数据转矩阵求助~

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题，有a、b、c、d、e五个变量，知道他们的关系是

变量	变量	关系
a	c	1
b	e	1
c	d	1
d	e	1

怎么能转成矩阵形式，即

	a	b	c	d	e
a			1
b					1
c	1			1
d			1		1
e		1		1

空白可以有0，可以空着。因为数据量特别大，每年的数据要做一个矩阵，不可能手工做，有没有大神点拨一下，多谢~

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

关键词：ABCD 有没有 CDE DEA ABC 手工

思路是用table函数。首先要根据你的“关系”变量整理出两个因子来。

1. f1 <- factor(c('a', 'b', 'c', 'd'), levels = letters[1:5])
   
2. f2 <- factor(c('c', 'e', 'd', 'e'), levels = letters[1:5])
   
3. x <- table(f1, f2)
   
4. output <- x + t(x)  # 将x转成对称矩阵，得到你想要的输出。

复制代码

hugebear 发表于 2015-4-19 22:49
思路是用table函数。首先要根据你的“关系”变量整理出两个因子来。

请问如果有200个变量，也是这么做吗

dzzsa 发表于 2015-4-19 23:35
请问如果有200个变量，也是这么做吗

请把你的数据贴出来看看。

请见附件excel表格，sheet 1 中是两个变量之间存在的关系，sheet 2 中是45个变量。现在用sheet 2 中的变量做一个45*45的矩阵，然后根据sheet 1 中的关系进行赋值，有关系的赋值为1，没有的赋值为0。请问可以实现吗。万分感谢~

hugebear 发表于 2015-4-20 00:12
请把你的数据贴出来看看。

见楼上~

dzzsa 发表于 2015-4-20 00:59
见楼上~

可以做的。就按我上面写的一样操作。另外提醒: 使用术语的名称应该规范，sheet1里面的stateA和stateB可以称为“变量”（更确切的，“因子(factor)变量”）。sheet2里面的ccode本身是一个变量，将它的元素2,40, ..., 800称为“变量”就不再合适了，应该称之为“水平(levels)”。
你仔细研究一下我之前的代码，恰当地将stateA和stateB根据ccode转换为因子变量，然后使用table函数，就可以做了。下面的代码供你参考（建议你自己先尝试再对照）：

1. attach(sheet1)
   
2. attach(sheet2)
   
3. stateA <- factor(stateA, levels = ccode)
   
4. stateB <- factor(stateB, levels = ccode)
   
5. x <- table(stateA, stateB)
   
6. output <- x + t(x)
   
7. output[output > 0] <- 1 # output中某些位置的值大于1， 根据你的需要一律都置为1.
   
8. detach()
   
9. detach()

复制代码

P.S.：你的原始数据集没必要那么大（区区几十个数据占用不了10M的空间），你储存了很多冗余的空行，可以清除之。

hugebear 发表于 2015-4-20 01:31
可以做的。就按我上面写的一样操作。另外提醒: 使用术语的名称应该规范，sheet1里面的stateA和stateB可以 ...

好的，我试一试，太感谢了！！！