Hi everybody,
I would like to ask for help with the function filter.
I have data like that
data1<-data.frame(
closed_price = c(49900L, 46600L, 46900L, 45200L, 45100L, 45600L,
46500L, 46100L, 46100L, 45800L),
opened_price = c(51000L, 49500L, 49500L, 48000L, 45200L, 45100L,
47500L, 46100L, 46500L, 46900L),
adjust_closed_price = c(12951L, 12095L, 12173L, 11731L, 11705L, 11835L,
12069L, 11965L, 11965L, 11887L),
stock = as.factor(c("AAA", "AAA", "AAA", "AAA", "AAA", "AAA",
"AAC", "AAC", "AAC", "AAC")),
date3 = as.factor(c("2010-07-15", "2010-07-16", "2011-07-19",
"2011-07-20", "2012-07-21", "2012-07-22",
"2011-07-23", "2011-07-26", "2012-07-27",
"2012-07-28")),
code = as.factor(c("AAA2010", "AAA2010", "AAA2011",
"AAA2011", "AAA2012", "AAA2012",
"AAC2011", "AAC2011", "AAC2012", "AAC2012"))
)
data2<-data.frame(
code = as.factor(c("AAA2010", "AAC2011", "ABT2006", "ACC2009",
"ACL2007", "ACM2015", "ADC2010", "ADS2016",
"AGF2002", "AGM2012")),
ticker = as.factor(c("AAA", "AAM", "ABT", "ACC", "ACL", "ACM", "ADC",
"ADS", "AGF", "AGM"))
)
I would like to filter from data1 to data2 by the same variable "code".
I used this code but it turns no results.
price_code<-data1%>%
filter(code %in% data2)
I appreciate any help.
Thank you in advance.