Твиттер ретвитит сеть в R - PullRequest
Новая
       13

Твиттер ретвитит сеть в R

0 голосов
/ 05 января 2019

Я хочу создать сеть ретвитов - кто кого ретвитит мой код: 

library(rtweet)
library(igraph)
library(hrbrthemes)
library(ggraph)
library(tidyverse)
library(ggplo2)
library(dplyr)


brexit.tweets.rt <- search_tweets(
  "#brexit", n = 5000
)
filter(brexit.tweets.rt, retweet_count > 0) %>%
  dplyr::select(screen_name, mentions_screen_name) %>%
  unnest(mentions_screen_name) %>%
  filter(!is.na(mentions_screen_name)) %>%
  graph_from_data_frame() -> rt_g

V(rt_g)$node_label <- unname(ifelse(degree(rt_g)[V(rt_g)] > 20, names(V(rt_g)), "")) 
V(rt_g)$node_size <- unname(ifelse(degree(rt_g)[V(rt_g)] > 20, degree(rt_g), 0)) 
quartz()
ggraph(rt_g, layout = 'linear', circular = TRUE) + 
  geom_edge_arc(edge_width=0.125, aes(alpha=..index..)) +
  geom_node_label(aes(label=node_label, size=node_size),
                  label.size=0, fill="#ffffff66", segment.colour="springgreen",
                  color="slateblue", repel=TRUE, family=font_rc, fontface="bold") +
  coord_fixed() +
  scale_size_area(trans="sqrt") +
  labs(title="Retweet Relationships", subtitle="Most retweeted screen names labeled. Darkers edges == more retweets. Node size == larger degree") +
  theme_graph(base_family=font_rc) +
  theme(legend.position="none")

Однако, когда я запускаю его, я получаю количество ошибок: Ошибка в grid.Call (C_textBounds, as.graphicsAnnot (метка x $), x $ x, x $ y,: край полигона не найден Дополнительно: Предупреждающие сообщения:

1: В grid.Call (C_textBounds, as.graphicsAnnot (x $ label), x $ x,
x $ y,: не удалось найти шрифт для семейства "Roboto Condensed" 2: In grid.Call (C_textBounds, as.graphicsAnnot (метка x $), x $ x, x $ y,: нет шрифт можно найти для семейства "Roboto Condensed" 3: In grid.Call (C_textBounds, as.graphicsAnnot (метка x $), x $ x, x $ y,: нет шрифт можно найти для семейства "Roboto Condensed" 4: In grid.Call (C_textBounds, as.graphicsAnnot (метка x $), x $ x, x $ y,: нет шрифт можно найти для семейства "Roboto Condensed" 5: In grid.Call (C_textBounds, as.graphicsAnnot (метка x $), x $ x, x $ y,: нет шрифт можно найти для семейства "Roboto Condensed"

Возможно, это проблема со шрифтом Arial, но мой шрифт установлен и работает. Каковы другие возможные причины?

Как это исправить? Как насчет этой ошибки с "Roboto Condensed"? Я использую Mac OS, может быть, это связано с ОС?

Есть идеи?

...