Aby narysować strzałki w ggplot, używam geom_segment i strzałka = strzałka(). Chciałbym, aby rozmiar głowy strzałki pasował do szerokości (lub rozmiaru) segmentu. Jednak strzałka nie rozpoznaje zmiennych bezpośrednio z argumentu danych w ggplot i należy podać dane.frame zawierające zmienną za pomocą operatora $. Powoduje to rozbieżność pomiędzy wartościami użytymi do narysowania linii a tymi używanymi do wykreślania strzałki (największa głowa może znajdować się na najcieńszym segmencie).Tworzenie rozmiaru dopasowanej głowy strzałki (lub lwd) w ggplot2
Przykład:
d <- structure(list(Process = structure(c(2L, 1L, 1L, 1L, 2L, 2L,
1L, 1L, 2L, 1L, 2L), .Label = c("First", "Second"), class = "factor"),
x.sink = c(1, 3, 1, 2, 2, 3, 3, 2, 2, 2, 2), y.sink = c(1,
1, 1, 2, 2, 1, 1, 1, 1, 2, 2), x.source = c(2, 2, 2, 2, 2,
2, 2, 1, 1, 1, 3), y.source = c(2, 2, 2, 1, 1, 1, 1, 1, 1,
2, 1), offset = c(1, 1, 1, -1, -1, -1, -1, -1, -1, 1, -1),
Std.Flux = c(0.179487179487179, 0.170940170940171, 0.944444444444444,
0.0854700854700855, 0.726495726495726, 0.128205128205128,
0.213675213675214, 0.213675213675214, 0.128205128205128,
0.106837606837607, 1)), .Names = c("Process", "x.sink", "y.sink",
"x.source", "y.source", "offset", "Std.Flux"), class = "data.frame", row.names = c(NA,
-11L))
p <- qplot(data=d,
#alpha=I(0.4),
colour=Process,
size=Std.Flux,
xlim=c(0,4),
ylim=c(0,3),
x=x.source+as.numeric(Process)/10,
y=y.source+as.numeric(Process)/10,
xend=x.sink+as.numeric(Process)/10,
yend=y.sink+as.numeric(Process)/10,
geom="segment",
arrow = arrow(type="closed",
length = unit(d$Std.Flux,"cm")))
print(p)
Wszelkie sugestie?
Sądzę, że to niedopatrzenie; warto opublikować prośbę o dodanie funkcji na github – baptiste