相关疑难解决方法(0)

我正在创建一个ggplot图表,我希望在两点之间有一些箭头.主要任务很容易完成geom_line(arrow = arrow()).但是,我想要一些"漂亮"的粗箭.调整箭头的大小size=没有用,因为它完全弄乱了箭头.我说明了我的问题:

创建一些示例数据和图:

 NAME <- c("A", "A", "B", "B", "C", "C")
 YEAR <- c(2016, 2011, 2016, 2011, 2016, 2011)
 YEAR <- as.factor(YEAR)
 VALUE <- c(1, 4, 1, 5, 2, 8)
 DATA <- data.frame(NAME, YEAR, VALUE)

ggplot(DATA, aes(x=VALUE, y=NAME)) + 
  geom_point(size=5, aes(colour=YEAR)) +
  geom_line(arrow = arrow(length=unit(0.30,"cm"), ends="first", type = "closed"))

结果图看起来像这样:

现在我试图"加厚"箭头......

ggplot(DATA, aes(x=VALUE, y=NAME)) + 
  geom_point(size=5, aes(colour=YEAR)) +
  geom_line(arrow = arrow(length=unit(0.30,"cm"), ends="first", type = "closed"), size = 3)

这是这里显示的结果:

我的问题:有没有办法绘制一些"美丽的"粗箭？

我知道当你使用时par( fig=c( ... ), new=T ),你可以创建插图.但是,我想知道是否可以使用ggplot2库来创建"插图"图形.

更新1:我尝试使用par()with ggplot2,但它不起作用.

更新2:我发现了一个工作液在GGPLOT2 Google网上论坛使用grid::viewport().