2012-04-13 56 views
-1

我是新的R編碼,所以我需要幫助或建議。 我正在建立基於座標的陰謀(最初是眼動追蹤數據)。我只是輸出沒有任何軸或文本的點。稍後,我將不得不將這些點與人物正在看的圖像進行比較。R地塊與實際大小

所以我的目標是1)導出具有非常特定尺寸(與原始圖像相同)並且沒有任何失真的圖像(它在出口對話框窗口中手動輸入尺寸後似乎出現)。 2)讓這個地塊無需外場出口,這顯然在每一方都有。

預先感謝您

UPD我真的現在想,如果有什麼辦法可以移動的零點到圖像的左下角?我試圖用削減邊際解決我的問題:par(mar = c(0,0,0,0),xaxs ='i',yaxs ='i'),但它似乎削減了所有空白部分圖片。我希望保留潛在的工作部件安全並保持尺寸和比例。

這是我的源代碼

card1 <- "D:/01_experiment/02.04/p02/card1.txt" 
    table01 <- read.table(card1, strip.white = TRUE, sep="\t", header = TRUE) 

    jpeg('card81.jpg', 
     width = 842, 
     height = 595) 

    par(mar=c(0, 0, 0, 0), xaxs='i', yaxs='i') 

    plot(x = table01[,10], 
     y = table01[,11], 

     pch=20, 
     type="o", 

     #xaxt='n', 
     yaxt='n', 
     ann=FALSE, 

     bty="n", 
     xlab = "desity.x", 
     ylab = "desity.y" 
     ) 
    dev.off() 

回答

0

試試這個,

library(grid) 

pdf("points.pdf", width=5, height=3) 
grid.points(x <- runif(10), y <- runif(10), vp=dataViewport(x, y, extension = 0)) 
dev.off() 

enter image description here

+0

如果 '擴展= 0' 修復規模有多大? – user1332627 2012-04-13 23:51:51

+0

我不知道你的意思;請澄清你的問題 – baptiste 2012-04-13 23:53:23

+0

對不起,我試圖找出哪些代碼切割軸的部分,然後意識到,你使用了網格,而不是情節。我的壞,不要記住。你能否在消息中閱讀我的更新? – user1332627 2012-04-13 23:59:44