gpt4 book ai didi

r - 在ggplot2中的两个位置之间绘制曲线

转载 作者:行者123 更新时间:2023-12-04 23:02:21 24 4
gpt4 key购买 nike

我正在制作一张关于从美洲到荷兰的导出的 map 。为了可视化我的数据,我想制作一张带有从美洲国家到荷兰的箭头的 map 。我使用 cshapes 世界地图和 ggplot2。

data = data.frame("Country.name" = c("Brazil","USA","Canada","Paraguay","Uruguay"), "lng" =    
c(14.23,37,56.13,-23.44,-32.52), "lat" = c(-51.92,-95.71,-106.34,-58.44,-55.77))

require(cshapes)
cshp.data = cshp(date=as.Date("2012-1-1"), useGW=TRUE)
region.data.frame = fortify(cshp.data, region = "ISO1AL3")

ggplot(region.data.frame) + geom_polygon(aes(long,lat,group=group)) +
geom_segment(data = data, aes(x = lat, y = lng, xend= (5.29 - 0.1 * (5.29 - lat)), yend= (52.13 - 0.1 * (52.13 - lng))),
arrow=arrow(length=unit(0.5,"cm"), angle = 45, type = "closed"))

我发现直线绘制时线条重叠。这很丑陋。因此, 我正在寻找一种在ggplot2中的坐标之间绘制曲线的方法,这样它们就不会重叠。

最佳答案

我无法运行 cshapes出于某种原因,但这里有一个如何使用 curveGrob() 构建曲线的示例来自 grid包和ggplot2annotation_custom()功能。它为您提供了很大的灵 active 。 PS:大多数参数只是默认值。编辑 - 更新为显示 2 条曲线。

require(grid)
g<-qplot(c(0,10),c(0,10))
myCurve<-curveGrob(0, 0, 1, 1, default.units = "npc",
curvature = 0.3, angle = 90, ncp = 20, shape = 1,
square = FALSE, squareShape = 1,
inflect = FALSE, arrow = arrow(), open = TRUE,
debug = FALSE,
name = NULL, gp = gpar(), vp = NULL)

myCurve2<-curveGrob(0, 0, 1, 1, default.units = "npc",
curvature = -0.3, angle = 60, ncp = 10, shape = 1,
square = FALSE, squareShape = 1,
inflect = FALSE, arrow = arrow(), open = TRUE,
debug = FALSE,
name = NULL, gp = gpar(), vp = NULL)

g +
annotation_custom(grob=myCurve,0,10,0,10) + # plot from 0,0 to 10,10
annotation_custom(grob=myCurve2,2.5,6,2.5,6) # plot from 2.5,2.5 to 6,6

#REFERENCE>>http://stat.ethz.ch/R-manual/R-devel/library/grid/html/grid.curve.html

enter image description here

关于r - 在ggplot2中的两个位置之间绘制曲线,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/20216179/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com