Составление надписей и легенд на интерактивном сюжете с игрой? (Р)

Question

У меня проблемы с добавлением заголовка и легенды внутри моего графика. Это невозможно с tkplot ИЛИ заговор?

    dff <- data.frame(a = c(0,1,2,3,4),b = c(3,4,5,6,7))
    nod <- data.frame(node = c(0:7),wt = c(1:8))
    pg <- graph_from_data_frame(d = dff, vertices = nod,directed = F)

    # plot function with edge.label added
    tkplot(pg, edge.label = nod$wt, main = "this is my graph")
    legend('topleft',legend= degree(pg)*5,pt.cex=20,col='white',
    pch=21, pt.bg='white')

Кажется, он не хочет работать так, как я хочу. Я просто хочу, чтобы легенда показывала вершины, настроенные так, чтобы они были больше для более высокой степени.

Мне также было интересно, если есть способ построить только некоторые вершины из графа? Например, вы выбираете одну вершину и строите только те вершины, которые образуют путь к ней?

Answer 1

На основании помощи для tkplotВот пример того, как добавить заголовок к интерактивному сюжету:

library(tcltk)

id = tkplot(pg, edge.label = nod$wt, main = "this is my graph")
canvas = tk_canvas(id)

width = as.numeric(tkcget(canvas, "-width"))
height = as.numeric(tkcget(canvas, "-height"))
tkcreate(canvas, "text", width/2, 25, text="My title",
         justify="center", 
         font=tkfont.create(family="helvetica", size=20, weight="bold"))

Для стандартного базового графика R ваш код работает следующим образом:

plot(pg, edge.label = nod$wt, main = "this is my graph")
legend('topleft',legend= degree(pg)*5,pt.cex=20,col='white',
       pch=21, pt.bg='white')