- 阅读权限
- 255
- 威望
- 0 级
- 论坛币
- 9413 个
- 通用积分
- 364.5488
- 学术水平
- 27 点
- 热心指数
- 28 点
- 信用等级
- 23 点
- 经验
- 28709 点
- 帖子
- 362
- 精华
- 0
- 在线时间
- 684 小时
- 注册时间
- 2013-10-29
- 最后登录
- 2024-4-9
|
- inlineText <- "代码,日期,回报,名称
- 000300,20101001,0.23,A
- 000300,20101002,0.15,A
- 000300,20101003,0.03,A
- 000300,20101004,0.40,A
- 000301,20101001,0.05,B
- 000301,20101002,0.19,B
- 000301,20101003,0.11,B
- 000301,20101004,0.26,B
- 000302,20101001,0.31,C
- 000302,20101002,0.03,C
- 000302,20101003,0.01,C
- 000302,20101004,0.27,C
- "
- library(dplyr)
- library(tidyr)
- df <- read.csv(text = inlineText) %>%
- select(-代码)%>%
- spread(名称,回报) %>%
- select(-日期)
- cor(df)
复制代码结果(Pearson): - A B C
- A 1.0000000 0.5562639 0.8011441
- B 0.5562639 1.0000000 -0.0474336
- C 0.8011441 -0.0474336 1.0000000
复制代码
|
|