how can i label only connected node in r circular plot

Question

I want to label the plot only if they have conection. My data is

df <- data.frame(col1 = c(2, 26, 26, 27, 27, 28, 28, 28),
             col2 = c(94, 146, 175, 213, 213, 55, 247, 263))

And code is

library(tidygraph)
library(ggraph)

df %>%
bind_rows(data.frame(col1 = 1:360, col2 = 1:360)) %>%
arrange(col1) %>%
as_tbl_graph() %>%
activate(edges) %>%
mutate(diff = as.character(abs(from - to))) %>%
ggraph(layout = "linear", circular = TRUE) +
geom_edge_arc(aes(colour = diff), lwd = 1) +
ggforce::geom_circle(aes(x0 = 0, y0 = 0, r = 1.024), size = 15, 
                   color = '#fff450') +
geom_node_text(aes(label = ifelse(as.numeric(name) %% 10 == 0, name, ""),
                 angle = -as.numeric(name) + 90)) +
coord_equal() +
theme_graph() +
theme(plot.background = element_rect(fill = 'black'),
    legend.position = 'none')

Allan Cameron · Answer 1 · 2022-12-16T09:09:56.230

1

If you want the numbers just at the nodes of your graph, then you can do:

library(tidyverse)
library(tidygraph)
library(ggraph)

df %>%
  bind_rows(data.frame(col1 = 1:360, col2 = 1:360)) %>%
  arrange(col1) %>%
  as_tbl_graph() %>%
  activate(edges) %>%
  mutate(diff = as.character(abs(from - to))) %>%
  ggraph(layout = "linear", circular = TRUE) +
  geom_edge_arc(aes(colour = diff), lwd = 1) +
  ggforce::geom_circle(aes(x0 = 0, y0 = 0, r = 1.024), size = 15, 
                       color = '#fff450') +
  geom_node_text(aes(label = ifelse(name %in% unlist(df), name, ""),
                     angle = ifelse((-as.numeric(name) + 90) < -90,
                     -as.numeric(name) - 90, -as.numeric(name) + 90))) +
  coord_equal() +
  theme_graph() +
  theme(plot.background = element_rect(fill = 'black'),
        legend.position = 'none')

Note though that where your numbers are close together, there will be an overlap of labels. This is not a trivial problem to solve.

edited Dec 16 '22 at 09:09

answered Dec 16 '22 at 09:06

Allan Cameron

147,086
7
49
87

node is over lapping – jhone aish Dec 16 '22 at 09:09
can i label node side by side – jhone aish Dec 16 '22 at 09:12
@jhoneaish you're welcome. The nodes are overlapping because the numbers are close together. Labelling the nodes side-by side is not really feasible. It _can_ be done, but it would require writing some fairly complex code to achieve it. – Allan Cameron Dec 16 '22 at 09:13
Thank you for your help. By the way, I have found a solution. We can add repel = TRUE to fix the issue. – jhone aish Dec 16 '22 at 13:02
@jhoneaish I tried the repel = TRUE, but I didn't think the results looked very good. – Allan Cameron Dec 16 '22 at 13:06

how can i label only connected node in r circular plot

1 Answers1