края igraph исчезают при указании размера вершины - PullRequest
Новая
       17

края igraph исчезают при указании размера вершины

1 голос
/ 04 июля 2019

Новичок в R здесь.Я пытаюсь построить диаграмму сети с кодом, показанным ниже.Но когда я указываю размер вершины, края исчезают.Спецификация вершин с и без, и результирующий график показаны ниже.

Без размера вершины: 

#NSW
clean_nsw <- clean %>% 
  filter(State=="NSW") 
clean_nsw$CountryID.Origin <- str_to_title(clean_nsw$CountryID.Origin)

nsw_plot <- graph.data.frame(d=clean_nsw, directed=T)



plot.igraph(nsw_plot,
            edge.color='grey23',
            vertex.color='deepskyblue2',
            edge.width=1,
            vertex.label.color='gray0',
            vertex.label.cex=0.75,
            vertex.label.family="Helvetica",
            vertex.label.font=2,
            arrow.width=(clean_nsw$s_count*1),
            layout= layout_nicely)

без размера вершины С указанным размером вершины 

#NSW
    clean_nsw <- clean %>% 
      filter(State=="NSW") 
    clean_nsw$CountryID.Origin <- str_to_title(clean_nsw$CountryID.Origin)

    nsw_plot <- graph.data.frame(d=clean_nsw, directed=T)



    plot.igraph(nsw_plot,
                edge.color='grey23',
                vertex.color='deepskyblue2',
                edge.width=1,
                vertex.size= clean_nsw$s_count*0.5,
                vertex.label.color='gray0',
                vertex.label.cex=0.75,
                vertex.label.family="Helvetica",
                vertex.label.font=2,
                arrow.width=(clean_nsw$s_count*1),
                layout= layout_nicely)

[image] https://i.stack.imgur.com/jH1oN.png

Я не уверен, почему, когда я вставляю размер вершины, края исчезают.Но вот предупреждающее сообщение: 

2: In layout[, 1] + label.dist * cos(-label.degree) * (vertex.size +  :
  longer object length is not a multiple of shorter object length
3: In layout[, 2] + label.dist * sin(-label.degree) * (vertex.size +  :
  longer object length is not a multiple of shorter object length

Кроме того, здесь clean_nsw 

# A tibble: 6 x 3
# Groups:   State [1]
  CountryID.Origin State s_count
  <chr>            <chr>   <int>
1 Thailand         NSW        67
2 China            NSW        51
3 Singapore        NSW        43
4 Indonesia        NSW        36
5 Fiji             NSW        32
6 Malaysia         NSW        32

Есть предложения, пожалуйста?

1 Ответ

0 голосов
/ 04 июля 2019

Мы можем сопоставить с именами атрибутов вершины и создать именованный вектор для vertex.size

library(igraph)
nm1 <- setNames(clean_nsw$s_count, clean_nsw$CountryID.Origin)

nm2 <-  nm1[attr(V(nsw_plot), "names")]
names(nm2)[is.na(nm2)] <- "NSW"
nm2[is.na(nm2)] <-  10 # some value
 plot.igraph(nsw_plot,
                edge.color='grey23',
                vertex.color='deepskyblue2',
                edge.width=1,
                vertex.size= nm2 * 0.5,
                        vertex.label = V(g)$names,
                vertex.label.color='gray0',
                vertex.label.cex=0.75,
                vertex.label.family="Helvetica",
                vertex.label.font=2,
                arrow.width=nm2 * 1,
                layout= layout_nicely)

-plot

enter image description here

данные 

clean_nsw <- structure(list(CountryID.Origin = c("Thailand", "China", "Singapore", 
"Indonesia", "Fiji", "Malaysia"), State = c("NSW", "NSW", "NSW", 
"NSW", "NSW", "NSW"), s_count = c(67L, 51L, 43L, 36L, 32L, 32L
)), class = "data.frame", row.names = c("1", "2", "3", "4", "5", 
"6"))
...