我有两个data.framework看起来像(不全长)。
第一个... AnalysisData
Stock Symbol.SEK TPDate TP PTP
<chr> <chr> <chr> <dbl> <dbl>
1 AAK AAK.ST 2018-08-23 197 62
2 ABB … ABB.ST 2016-09-30 11 188
3 Addt… ADDT-B.ST 2017-11-06 237 233
4 Ahls… AM1S.ST 2015-10-14 148 226
5 Alfa… ALFA.ST 2018-04-23 272 188
第二种---- master_df_tq
(编者名)
symbol[,1] date open high low close volume adjusted Delt.1.arithmetic
<chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 AAK.ST 2015-01-02 69.7 69.9 69.0 69.2 133860 49.8 NA
2 AAK.ST 2015-01-05 69.2 69.9 68.8 69.2 93168 49.7 -0.00670
3 AAK.ST 2015-01-07 68.3 69.1 67.7 68.4 308952 49.2 -0.0128
4 AAK.ST 2015-01-08 69.5 69.9 68.4 69.7 405258 50.1 0.0168
5 AAK.ST 2015-01-09 69.5 70.5 69.2 70 214548 50.3 -0.000239
6 AAK.ST 2015-01-12 70.4 70.8 69.4 70.0 300024 50.3 0.0142
7 AAK.ST 2015-01-13 70.1 70.5 69.5 70.0 770190 50.3 -0.00450
我的目标是在 Delt.1.arithmetic
中的一个新列。AnalysisData
符合相同日期和符号的标准,即 date
= TPDate
和 symbol
= Symbol.SEK
.
我已经尝试使用 join
功能从 dplyr
但我无法解决。我已经尝试了以下两种方法。
left_join(master_df_tq, AnalysisData, by = c("date" = "TPDate" , "Symbol.SEK" = "Symbol.SEK"))
master_df_tq %>% left_join(AnalysisData, by = c("date" = "TPDate" , "Symbol.SEK" = "Symbol.SEK"))
但它们都不起作用,我得到了下面的信息。
Warning message:
Column `symbol`/`Symbol.SEK` has different attributes on LHS and RHS of join
有谁有办法吗?merge
还是我遗漏了什么数据格式?
EDIT:我已经修改了 symbol
到 Symbol.SEK
并把它变成了一个字符,现在错误信息没有弹出,但我的数据没有发生任何变化。AnalysisData
.只是在控制台中显示以下内容
> master_df_tq %>% left_join(AnalysisData, by = c("date" = "TPDate" , "Symbol.SEK" = "Symbol.SEK"))
# A tibble: 146,685 x 26
# Groups: Symbol.SEK [131]
Symbol.SEK date open high low close volume adjusted Delt.1.arithmet… Stock TP PTP TP_Diff
<chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <chr> <dbl> <dbl> <dbl>
1 AAK.ST 2015… 69.7 69.9 69.0 69.2 133860 49.8 NA NA NA NA NA
2 AAK.ST 2015… 69.2 69.9 68.8 69.2 93168 49.7 -0.00670 NA NA NA NA
3 AAK.ST 2015… 68.3 69.1 67.7 68.4 308952 49.2 -0.0128 NA NA NA NA
4 AAK.ST 2015… 69.5 69.9 68.4 69.7 405258 50.1 0.0168 NA NA NA NA
5 AAK.ST 2015… 69.5 70.5 69.2 70 214548 50.3 -0.000239 NA NA NA NA
EDIT2.0:
这是dput输出的最后几条记录(master_df_tq中共有146684条记录):注意:名字是master_df_tq,而不是我先写的master_df_sq。
139149:140404, 138775:139148, 140405:141660, 141661:142916,
142917:144172, 144173:145428)), row.names = c(NA, -131L), class = c("tbl_df",
"tbl", "data.frame"), .drop = FALSE), class = c("grouped_df",
"tbl_df", "tbl", "data.frame"))
> dput(head(master_df_tq))
structure(list(Symbol.SEK = c("AAK.ST", "AAK.ST", "AAK.ST", "AAK.ST",
"AAK.ST", "AAK.ST"), date = c("2015-01-02", "2015-01-05", "2015-01-07",
"2015-01-08", "2015-01-09", "2015-01-12"), open = c(69.683296,
69.216698, 68.333298, 69.483299, 69.466698, 70.449997), high = c(69.866699,
69.916702, 69.083298, 69.916702, 70.483299, 70.75), low = c(69.033302,
68.849998, 67.716698, 68.433296, 69.150002, 69.433296), close = c(69.233299,
69.199997, 68.400002, 69.650002, 70, 70.033302), volume = c(133860,
93168, 308952, 405258, 214548, 300024), adjusted = c(49.755833,
49.731899, 49.156975, 50.055305, 50.306839, 50.330769), Delt.1.arithmetic = c(NA,
-0.00669598062640442, -0.0127628162788117, 0.0168292916288044,
-0.000238920722517966, 0.0141549696229983)), row.names = c(NA,
-6L), class = c("grouped_df", "tbl_df", "tbl", "data.frame"), groups = structure(list(
Symbol.SEK = "AAK.ST", .rows = list(1:6)), row.names = c(NA,
-1L), class = c("tbl_df", "tbl", "data.frame"), .drop = FALSE))
EDIT 3.0。
structure(list(Stock = c("AAK", "ABB Ltd", "Addtech B", "Ahlstrom-Munksjö Oyj",
"Alfa Laval", "Arion Banki SDB"), Symbol.SEK = c("AAK.ST", "ABB.ST",
"ADDT-B.ST", "AM1S.ST", "ALFA.ST", "ARION-SDB.ST"), TPDate = c("2019-10-10",
"2019-10-10", "2019-10-10", "2019-10-10", "2019-10-10", "2019-10-10"
), TP = c(197, 11, 237, 148, 272, 291), PTP = c(62, 188, 233,
226, 188, 201), TP_Diff = c(135, -177, 4, -78, 84, 90), AREC = c("Buy",
"Hold", "Hold", "Buy", "Buy", "Buy"), APREC = c("Sell", "Sell",
"Buy", "Sell", "Buy", "Buy"), RTP = c(2.17741935483871, -0.941489361702128,
0.0171673819742489, -0.345132743362832, 0.446808510638298, 0.447761194029851
), Analyst = c("SEB", "Nordea", "DBN", "Swedbank", "Avanza",
"SEB"), Bransch = c("Konsument", "Industri", "Industri", "Råvaror",
"Industri", "Finans"), return = c(0.00825375780488757, 0.00224086274509805,
-0.0242914979757085, 0, 0.0171685153116452, 0.00486223662884933
)), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"
))
这是否给你想要的输出?
result <- merge(AnalysisData, master_df_tq, by.x=c('TPDate', 'Symbol.SEK'), by.y=c('date', 'Symbol.SEK'), , all.x=TRUE)
result
另外,我不知道为什么这不是你要找的输出--从你的帖子中复制过来的。
> master_df_tq %>% left_join(AnalysisData, by = c("date" = "TPDate" , "Symbol.SEK" = "Symbol.SEK"))
# A tibble: 146,685 x 26
# Groups: Symbol.SEK [131]
Symbol.SEK date open high low close volume adjusted Delt.1.arithmet… Stock TP PTP TP_Diff
<chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <chr> <dbl> <dbl> <dbl>
1 AAK.ST 2015… 69.7 69.9 69.0 69.2 133860 49.8 NA NA NA NA NA
2 AAK.ST 2015… 69.2 69.9 68.8 69.2 93168 49.7 -0.00670 NA NA NA NA
3 AAK.ST 2015… 68.3 69.1 67.7 68.4 308952 49.2 -0.0128 NA NA NA NA
4 AAK.ST 2015… 69.5 69.9 68.4 69.7 405258 50.1 0.0168 NA NA NA NA
5 AAK.ST 2015… 69.5 70.5 69.2 70 214548 50.3 -0.000239 NA NA NA NA
我解决了这个问题,因为总是会有一个匹配,但如果值没有匹配到任何东西,就会出现integer(0)的问题。
for (i in 1:nrow(AnalysisData)) {
index <- which(AnalysisData$Symbol.SEK[i]==master_df_tq$Symbol.SEK & AnalysisData$TPDate[i]==master_df_tq$date)
AnalysisData$return[i] <- master_df_tq$Delt.1.arithmetic[index]
}