Мы можем создать новый геом, geom_arrowbar, который мы можем использовать, как и любой другой геом, поэтому в вашем случае он даст желаемый график, просто выполнив:
tibble(y = c(10, 20, 30), n = c(300, 100, 200), transparency = c(10, 2, 4)) %>%
ggplot() +
geom_arrowbar(aes(x = n, y = y, alpha = transparency), fill = "red") +
scale_y_continuous(limits = c(5, 35)) +
scale_x_continuous(limits = c(0, 350))
И содержит 3 параметра: column_width, head_width и head_length, которые позволяют изменять форму стрелки, если вам не нравятся значения по умолчанию. При необходимости мы также можем указать цвет заливки и другую эстетику:
tibble(y = c(10, 20, 30), n = c(300, 100, 200), transparency = c(10, 2, 4)) %>%
ggplot() +
geom_arrowbar(aes(x = n, y = y, alpha = transparency, fill = as.factor(n)),
column_width = 1.8, head_width = 1.8, colour = "black") +
scale_y_continuous(limits = c(5, 35)) +
scale_x_continuous(limits = c(0, 350))
Единственное препятствие заключается в том, что мы должны сначала написать это!
Следуя примерам в расширяющей виньетке ggplot2 , мы можем определить наш geom_arrowbar так же, как и другие геомы, за исключением того, что мы хотим иметь возможность передавать наши 3 параметра, которые контролировать форму стрелки. Они добавляются в список params результирующего объекта layer, который будет использоваться для создания слоя со стрелками:
library(tidyverse)
geom_arrowbar <- function(mapping = NULL, data = NULL, stat = "identity",
position = "identity", na.rm = FALSE, show.legend = NA,
inherit.aes = TRUE, head_width = 1, column_width = 1,
head_length = 1, ...)
{
layer(geom = GeomArrowBar, mapping = mapping, data = data, stat = stat,
position = position, show.legend = show.legend, inherit.aes = inherit.aes,
params = list(na.rm = na.rm, head_width = head_width,
column_width = column_width, head_length = head_length, ...))
}
Теперь «все», что остается, - это определить, что GeomArrowBar является. Это фактически определение класса ggproto. Наиболее важной его частью является функция-член draw_panel, которая берет каждую строку нашего информационного кадра и преобразует ее в формы стрелок. После некоторых базовых математических вычислений, вычисленных по координатам x и y, а также наших различных параметров формы, какой должна быть форма стрелки, она генерирует один grid::polygonGrob для каждой строки наших данных и сохраняет ее в gTree. Это формирует графический компонент слоя.
GeomArrowBar <- ggproto("GeomArrowBar", Geom,
required_aes = c("x", "y"),
default_aes = aes(colour = NA, fill = "grey20", size = 0.5, linetype = 1, alpha = 1),
extra_params = c("na.rm", "head_width", "column_width", "head_length"),
draw_key = draw_key_polygon,
draw_panel = function(data, panel_params, coord, head_width = 1,
column_width = 1, head_length = 1) {
hwidth <- head_width / 5
wid <- column_width / 10
len <- head_length / 10
data2 <- data
data2$x[1] <- data2$y[1] <- 0
zero <- coord$transform(data2, panel_params)$x[1]
coords <- coord$transform(data, panel_params)
make_arrow_y <- function(y, wid, hwidth) {
c(y - wid/2, y - wid/2, y - hwidth/2, y, y + hwidth/2, y + wid/2, y + wid/2)
}
make_arrow_x <- function(x, len){
if(x < zero) len <- -len
return(c(zero, x - len, x - len , x, x - len, x - len, zero))
}
my_tree <- grid::gTree()
for(i in seq(nrow(coords))){
my_tree <- grid::addGrob(my_tree, grid::polygonGrob(
make_arrow_x(coords$x[i], len),
make_arrow_y(coords$y[i], wid, hwidth),
default.units = "native",
gp = grid::gpar(
col = coords$colour[i],
fill = scales::alpha(coords$fill[i], coords$alpha[i]),
lwd = coords$size[i] * .pt,
lty = coords$linetype[i]))) }
my_tree}
)
Эта реализация далека от совершенства. В нем отсутствуют некоторые важные функции, такие как разумные ограничения осей по умолчанию и возможность coord_flip, и он будет давать неэстетичные c результаты, если головки стрелок длиннее всего столбца (хотя вы, возможно, не захотите использовать такой сюжет в такой ситуации все равно). Однако стрелка, указывающая налево, будет иметь смысл, если у вас отрицательное значение. В лучшей реализации также можно добавить опцию для пустых наконечников стрелок.
Короче говоря, потребуется много настроек, чтобы сгладить эти (и другие) ошибки и сделать их готовыми к работе, но этого достаточно, чтобы пока что создайте несколько хороших графиков без особых усилий.
Создано в 2020-03-08 пакетом Представить (v0.3.0)