Изменить прозрачность точек в легенде

Question

Я построил сетевой сюжет с помощью igraph.Непрозрачность вершин уменьшена до 0,5.

Теперь я бы хотел добавить легенду к графику вручную, где точки имеют тот же цвет / прозрачность, что и вершины на графике.

plot(g, vertex.color = adjustcolor(V(g)$color, alpha = 0.5))
legend('topleft',legend = names, pt.cex = 2, pch = 21, pt.bg = colors)

Как изменить прозрачность точек в легенде?

Answer 1

Так как вы не предоставляете данные, я составляю некоторые примерные данные.Кроме того, «имена» и «цвета» являются именами функций R, поэтому я изменил их на «Имена» и «Цвета».

Вы можете выполнить нужную настройку, просто используя adjustcolor еще раз.

library(igraph)

## Some sample data
set.seed(1234)
g = erdos.renyi.game(10, 0.3)
Colors = rainbow(4)
V(g)$color = sample(Colors,10, replace=TRUE)
Names = paste("N", 1:4, sep="")

## Your plot and adjusted legend
plot(g, vertex.color = adjustcolor(V(g)$color, alpha = 0.5))
legend('topleft', legend = Names, pt.cex = 2, pch = 21, 
    pt.bg = adjustcolor(Colors, alpha = 0.5))