小數字的Y軸縮放問題

對於小於1e-10的數字，我有一個y縮放的問題：它們全都出現在同一條水平線上。小數字的Y軸縮放問題

這裏是一個重複的例子：

file <- structure(list(I = c(-7.254574e-11, -5.649333e-11, -5.015416e-11, 
-4.228137e-11, -3.287486e-11, -2.714915e-11, -2.203692e-11, -1.784489e-11, 
-1.150574e-11, -1.058553e-11, -6.189018e-12, -3.735149e-12, -2.303724e-12, 
6.610914e-13, 1.274374e-12, -3.610768e-13, 5.465134e-12, 6.691699e-12, 
8.020478e-12, 1.139353e-11, 1.537988e-11, 1.926399e-11, 2.130825e-11, 
2.45791e-11, 3.204071e-11, 3.582262e-11, 4.287535e-11, 4.624839e-11, 
5.16657e-11, 6.035387e-11), V = c(-2, -1.867, -1.733, -1.6, -1.467, 
-1.333, -1.2, -1.067, -0.933, -0.8, -0.667, -0.533, -0.4, -0.267, 
-0.133, 0, 0.133, 0.267, 0.4, 0.533, 0.667, 0.8, 0.933, 1.067, 
1.2, 1.333, 1.467, 1.6, 1.733, 1.867)), .Names = c("I", "V"), class = "data.frame", row.names = c(NA, 
-30L)) 

plot(file$V,file$I) 

gg <- ggplot(file,aes(x = V,y=I)) 
print(gg + geom_point())

正如你所看到的，使用基本繪圖功能點被同時使用GGPLOT2它們顯示在一個水平線上正確顯示。

2011年5月，我在郵件列表上看到了一個類似的帖子，哈德利回答說它與ggplot2的開發版一起工作。但是，使用下面描述的R版本，我仍然得到錯誤。

> sessionInfo() 
R version 2.15.0 (2012-03-30) 
Platform: i686-pc-linux-gnu (32-bit) 

locale: 
[1] LC_CTYPE=fr_FR.UTF-8  LC_NUMERIC=C    LC_TIME=fr_FR.UTF-8  
[4] LC_COLLATE=fr_FR.UTF-8  LC_MONETARY=fr_FR.UTF-8 LC_MESSAGES=fr_FR.UTF-8 
[7] LC_PAPER=C     LC_NAME=C     LC_ADDRESS=C    
[10] LC_TELEPHONE=C    LC_MEASUREMENT=fr_FR.UTF-8 LC_IDENTIFICATION=C  

attached base packages: 
[1] stats  graphics grDevices utils  datasets methods base  

other attached packages: 
[1] tikzDevice_0.6.2 filehash_2.2-1 scales_0.2.0  plyr_1.7.1  reshape2_1.2.1 
[6] ggplot2_0.9.0 

loaded via a namespace (and not attached): 
[1] colorspace_1.1-1 dichromat_1.2-4 digest_0.5.2  grid_2.15.0  MASS_7.3-18  
[6] memoise_0.1  munsell_0.3  proto_0.3-9.2  RColorBrewer_1.0-5 stringr_0.6  
[11] tools_2.15.0

任何人都有線索？

預先感謝您！ Thibaud Ruelle

來源

2012-06-05 Thibaud Ruelle

+1快速測試證實了我的系統上的這種行爲（ggplot2 0.9.1）。也許有一個逆轉，或？ –

@BenBolker考慮到前面的問題與[this]（http://stackoverflow.com/q/10808056/324364）的連接，我在Brian的聊天記錄中詢問了這件事。 – joran

@joran是的，似乎這兩個職位可以合併。對不起，我的研究沒有發現它。 –

由於Brian Diggs對a related post that @joran pointed to above發表了評論，該問題由功能scales::zero_range()引起。它使用all.equal()來測試最小和最大的y值是否在tolerance = .Machine$double.eps^0.5 = 1.490116e-08之內;如果是的話，數據將以您的示例中使用的「零標度」繪製。

作爲臨時修復，您可以使用fixInNamespace()刪除zero_range()的違規位。

library(scales) ## (The scales package needs to be on your search path) 
fixInNamespace("zero_range", pos="package:scales")

在由fixInNamespace()推出的編輯器，取代zero_range()這個定義：

function (x) 
{ 
    length(x) == 1 || isTRUE(all.equal(x[1] - x[2], 0)) 
}

與這一個（確保保存編輯後的版本）：

function (x) 
{ 
    length(x) == 1 
}

你的代碼提供然後運行就好：

enter image description here

來源

2012-06-05 17:37:50

我想你也可以在'all.equal'中調整'tolerance'參數。 – joran

@joran - 任何想法什麼會更好的價值？我不知道Hadley試圖用這些代碼來防止病態是什麼，所以不知道有多低可以安全地去...（所以當然我去了，一起去除了所有的保護;） –

那麼，'' zero_range'通常會傳遞一個帶有最小/最大值的向量，所以您希望在這裏檢查_some_，看它們是否相同。也許只是檢查'x [1] == x [2]'？我覺得在這裏有浮點邊緣案例，我不明白。 – joran

小數字的Y軸縮放問題

回答

相關問題