如何解决当某些日期为 NA
我有两个数据框;
df.tweets <- data.frame(Date = c(as.Date("2020-12-26"),as.Date="2020-12-15",as.Date="2021-01-12"),Tweet = c("abs","ksk","sks"),Ticker = c("NFLX","GOOGL","FB"))
Date Tweet Ticker
1 2020-12-26 abs NFLX
2 2020-12-15 ksk GOOGL
3 2021-01-12 sks FB
df.finance <- data.frame(Date = c(as.Date("2020-12-25"),as.Date="2020-12-27",AR = c("0.23","0.34","0.44","0.91"),"NFLX","FB"))
Date AR Ticker
1 2020-12-25 0.23 NFLX
2 2020-12-27 0.34 NFLX
3 2020-12-15 0.44 GOOGL
4 2021-01-12 0.91 FB
我想将这两个数据帧合并成这样的;
df.output <- data.frame(Date = c(as.Date("2020-12-27"),"FB"),AR = c("0.34","0.91"))
Date Tweet Ticker AR
1 2020-12-27 abs NFLX 0.34
2 2020-12-15 ksk GOOGL 0.44
3 2021-01-12 sks FB 0.91
最初使用此代码;
df.new_analysis <- merge(df.new,df.finance,by = c("Date","Ticker"),all.x = TRUE)
但是,由于有些推文是在周末发布的,因此没有与该日期相对应的股票数据。我找到了周六和周日的推文,并将日期更改为下周一(在合并数据框之前)以查找下一个交易日。
df.tweets$weekday <- weekdays(df.tweets$Date)
df.tweets$Date <- as.Date(df.tweets$Date)
for (row in 1:nrow(df.tweets)){
if (df.tweets[row,4] == "Saturday") { # 4 = Weekday column
df.tweets[row,1] <- df.tweets[row,1] + 2 # 1 = Date column
}
else if (df.tweets[row,4] == "Sunday"){
df.tweets[row,1] + 1
}
}
然而,现在我遇到的问题是,有些交易日期是工作日(不是周末),但由于公共假期(例如复活节星期一),证券交易所关闭。
是否有比在日列中添加天数直到没有 NA 更简单的方法来解决这个问题?例如。合并数据框以在df.finance中查找第二天时,如果没有对应日期。
我真的不在乎数据栏是推文的日期还是AR(异常回报),只要AR来自下一个交易日而不是前一个交易日。
解决方法
使用 dplyr
的一种方式:
library(dplyr)
df.tweets %>%
#Join the two dataframes
full_join(df.finance,by = 'Ticker') %>%
#Arrange the data by date
arrange(Ticker,Date.x) %>%
#Get the difference between the dates
mutate(diff = Date.y - Date.x) %>%
#For each ticker and date
group_by(Ticker,Date.x) %>%
#Select the first row where the
#difference is greater than equal to 0
slice(which.max(diff >= 0)) %>%
ungroup %>%
#Select and rename columns.
select(Date = Date.y,everything(),-diff,-Date.x)
# Date Tweet Ticker AR
# <date> <chr> <chr> <chr>
#1 2021-01-12 sks FB 0.91
#2 2020-12-15 ksk GOOGL 0.44
#3 2020-12-27 abs NFLX 0.34
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。