2012-04-13 5 views
-1

私はRコーディングで新しく、助けやアドバイスが必要です。 私は座標に基づいてプロットを作成しています(もともと、これは目の追跡データです)。軸やテキストのないドットだけをエクスポートしています。後で、私はこの点を人が見ていたImageと比較する必要があります。Rプロットと実際のサイズ

私の目的は、1)非常に特定のサイズ(元の画像と同じ)で、ひずみのない画像をエクスポートしたことです(エクスポートダイアログウィンドウで手動でサイズを入力した後に表示されるようです)。 2)このプロットを余分なものなしにエクスポートするには、それは明らかにあらゆる面でアピールします。

は、画像の下の角を左にゼロのポイントを移動するにはどのような方法があるかどうか、今考えて、事前に

UPDのi`mをありがとう!私はマージンを切って問題を解決しようとしていた:par(mar = c(0、0、0、0)、xaxs = 'i'、yaxs = 'i')、しかしそれは画像。そして、私は潜在的に働く部品を安全に保ち、サイズと比率を維持したい。 '拡張子= 0' の規模を修正する場合

であるというのが私のソースコード

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

? – user1332627

+0

私はあなたが何を意味するか分かりません。あなたの質問を明確にしてください – baptiste

+0

申し訳ありませんが、私は、コードのどの部分が軸をカットしたのか把握しようとしました。私の悪い、気にしないでください。私のアップデートをメッセージでお読みください。 – user1332627