2012-02-28 73 views
2

我在這裏看到了一些關於使用R來繪製圖像的問題(其中一個甚至是我)。設置參考點將數據覆蓋到R的圖像上

這裏的區別是我需要爲我的圖像設置參考座標以匹配我想要在圖像頂部繪製的數據。

更具體地說,我需要R瞭解背景圖像的座標是x = (-100,100)y = (40,-40)

我已經能夠讀取圖像文件並使用ReadImages包進行繪圖,但是當我使用points()覆蓋我的數據時,數據顯然沒有適當地排列。

任何幫助,非常感謝。

編輯:這裏有一些例子,數據和我附有影像enter image description here

structure(list(teamid = c("6", "6", "6", "6", "6", "6", "2", 
"6", "6", "6", "2", "6", "10", "10", "10", "10", "20", "20", 
"10", "10", "10", "20", "20", "20", "10", "10"), xcoord = c("79", 
"81", "33", "34", "75", "52", "-67", "80", "44", "79", "-53", 
"54", "-55", "-81", "-66", "-66", "45", "81", "-78", "-70", "-59", 
"50", "53", "63", "-79", "-78"), ycoord = c("0", "0", "-18", 
"-20", "6", "-11", "-7", "7", "-28", "-10", "35", "22", "25", 
"-5", "25", "23", "-11", "13", "22", "16", "13", "23", "7", "16", 
"8", "8")), .Names = c("teamid", "xcoord", "ycoord"), class = "data.frame", row.names = c(74328L, 
74331L, 74332L, 74334L, 74336L, 74338L, 74340L, 74341L, 74346L, 
74347L, 74348L, 74349L, 100136L, 100137L, 100138L, 100139L, 100147L, 
100148L, 100151L, 100154L, 100156L, 100158L, 100159L, 100161L, 
100163L, 100167L)) 
+0

你可以舉一個你做過什麼的例子,它看起來像什麼,你實際想要達到什麼目的。我不明白。 – Henrik 2012-02-28 16:16:12

+0

您可以使用'rasterimage'工具來設置圖像座標,但我懷疑有一種更簡單的方法可以找到繪圖的「背景圖像」。我會去看看。 – 2012-02-28 16:52:04

+0

這不是'rasterImage'的作用嗎?查看將圖像放置在特定座標的示例。 – Charles 2012-02-28 18:14:30

回答

3

您可以創建正確的尺寸空圖,然後用rasterImage功能繪製圖像,然後加點應該工作正常。

另一種方法是在繪製圖像後使用TeachingDemos包中的updateusr函數,以確保在添加線條或點之前,座標符合您的要求。

我救了你的圖形上面ice.png跑到下面的代碼:

library(EBImage) 
ice <- readImage('My Pictures/ice.png') 
pos <- structure(list(teamid = c("6", "6", "6", "6", "6", "6", "2", 
    "6", "6", "6", "2", "6", "10", "10", "10", "10", "20", "20", 
    "10", "10", "10", "20", "20", "20", "10", "10"), xcoord = c("79", 
    "81", "33", "34", "75", "52", "-67", "80", "44", "79", "-53", 
    "54", "-55", "-81", "-66", "-66", "45", "81", "-78", "-70", "-59", 
    "50", "53", "63", "-79", "-78"), ycoord = c("0", "0", "-18", 
    "-20", "6", "-11", "-7", "7", "-28", "-10", "35", "22", "25", 
    "-5", "25", "23", "-11", "13", "22", "16", "13", "23", "7", "16", 
    "8", "8")), .Names = c("teamid", "xcoord", "ycoord"), 
class = "data.frame", row.names = c(74328L, 
    74331L, 74332L, 74334L, 74336L, 74338L, 74340L, 74341L, 74346L, 
    74347L, 74348L, 74349L, 100136L, 100137L, 100138L, 100139L, 100147L, 
    100148L, 100151L, 100154L, 100156L, 100158L, 100159L, 100161L, 
    100163L, 100167L)) 
pos$xcoord <- as.numeric(pos$xcoord) 
pos$ycoord <- as.numeric(pos$ycoord) 

ice2 <- as.raster(ice) 

pin <- par('pin') 
plot(c(-100,100), c(-40,40), type='n', xlab='', ylab='', 
    asp=pin[1]/pin[2], axes=FALSE, xaxs='i', yaxs='i') 
rasterImage(ice2, -100, -40, 100, 40, interpolate=FALSE) 
with(pos, text(xcoord, ycoord, teamid, col='green', cex=1.2)) 

這是不是你想要做什麼?

+0

我沒有意識到rasterImage,並且在您的代碼示例中,我能夠使其工作。非常感謝! – Btibert3 2012-03-02 01:49:05