2012-04-13 35 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