1

我正在寻找一些额外的情节符号。这是我的代码：

library(maps)
map('state', 'north carolina')
x <- c(-81.18668,-78.38062)
y <- c(35.7767,35.7767)
points(x=x, y=y)

我正在寻找的是类似于谷歌地图上使用的绘图符号，最好是方向图中使用的那些（即点 A 和点 B）。

有没有内置这些​​符号的软件包，或者有没有人有快速破解的想法？谢谢！

编辑：寻找像这里显示两点的绘图符号：

http://goo.gl/maps/xjxqn

基本上，带有标签（A 和 B）的泪滴形。

4

2 回答 2

1

你的问题有点含糊，但这里有一些图标： http ://www.bestpsdfreebies.com/freebie/map-marker-icons/

另一个图书馆：http ://abeliantechnologies.com/google_map_marker.php

于 2012-10-23T14:33:54.357 回答
1

这是使用my.symbolsTeachingDemos 包中的函数的一种方法：

library(TeachingDemos)
ms.mappoint <- function(letter='', col='blue', txtcol='white', cex=1, ...) {
    tmp <- seq( -3*pi/8, 11*pi/8, length.out=200 )
    tmp.x <- cos(tmp)/3
    tmp.y <- sin(tmp)/3 + 2/3

    tmp.x <- c(tmp.x, 0, tmp.x[1])
    tmp.y <- c(tmp.y, 0, tmp.y[1])

    polygon(tmp.x, tmp.y, col=col)
    text( 0, 2/3, letter, col=txtcol, cex=1, font=2 )
}

myx <- runif(10)
myy <- rnorm(10)
plot(myx,myy, ylim=c( min(myy)-.1, max(myy)+1) )
my.symbols(myx,myy, ms.mappoint, inches=1,
    col=rainbow(10), letter=LETTERS[1:10], symb.plots=TRUE )

整体形状可能需要一些改进，但这只是创建一个 x 和 y 值矩阵来表示形状的问题。

于 2012-10-23T16:25:07.097 回答