Это? Твиты это tweets
data.frame
, а sents
- sentiment_scores
.
library(tidyverse)
new_tweets<-tweets %>%
mutate(ID=as.factor(row_number()))
new_sents<-sents %>%
mutate(ID=as.factor(row_number()))
merged<-new_tweets %>%
left_join(new_sents,by="ID") %>%
select(-ID)
merged
Вы можете сначала объединить их с cbind
и изучить.
new_tweets<-new_tweets[,-ncol(new_tweets)]
combined<-cbind(new_tweets,new_sents)
as.tibble(combined)
MyText favorited favoritedCount Created element_id Sentance_id Word_Count Sentiment ID
<fct> <lgl> <int> <fct> <int> <int> <int> <dbl> <fct>
1 Starbucks TRUE 2 2019-0~ 1 1 2 0.186 1
2 starbucks~ FALSE 2 2019-0~ 2 1 5 0.186 2
3 starbucks~ FALSE 1 2019-0~ 3 1 2 0.186 3
4 Icedstarb~ FALSE 1 2019-0~ 4 1 1 0.186 4
5 Ilovestar~ TRUE 3 2019-0~ 5 1 3 0.186 5
Вы попробовали стандартные учетные записи оракула.. "sys" и "система"?