我无法在图表内部添加标题和图例。tkplot OR plot 不可能吗？
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')
它似乎不想按照我想要的方式工作。我只想让图例显示调整为更大程度的顶点。
我还想知道是否有办法只从图中绘制某些顶点？例如，您选择一个顶点并仅绘制形成返回它的路径的顶点？
根据 的帮助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')
