Hmisc包代理怪異數字=/=字符

Question

我想覆蓋barcharts頂部的錯誤條，這工作正常，除了錯誤欄自己計算，所以任何缺少的X值破壞情節。你可以在這裏看到： http://flyordie.sin.khk.be/r/asnumeric.PNG

當我改變我的xvalues字符（as.character（xvalues））會發生以下情況： http://flyordie.sin.khk.be/r/ascharacter.PNG

的X和Y軸變化的地方。我能做些什麼呢？因爲我想不出別的什麼。

要重現了類似的問題，這裏有2個腳本

正常

set.seed(1) 
x <- 1:10 
y <- x + rnorm(10) 
delta <- runif(10) 
errbar(x, y, y + delta, y - delta) 

字符

set.seed(1) 
x <- 1:10 
y <- x + rnorm(10) 
delta <- runif(10) 
errbar(as.character(x), y, y + delta, y - delta) 

親切的問候 爵士Ksilem

Answer 1

繪製水平誤差棒是預期行爲爲errbar()函數當參數x是因數或字符變量時，與數字相反。當你說缺少值x打破你的陰謀，我解釋你意味着打破連接點的線。要繪製錯誤條不破壞線，我會簡單地用失蹤x值刪除意見：

require(Hmisc) 

## Your example data 
set.seed(1) 
x <- 1:10 
y <- x + rnorm(10) 
delta <- runif(10) 

## Make some data vanish 
x[c(5,6)] <- NA 

## Create an index for non-missing observations in `x` 
i <- which(!is.na(x)) 

errbar(x[i], y[i], y[i] + delta[i], y[i] - delta[i], type = "b") 

編輯 每下方的評論，如果platenames只是意在你的x軸的刻度標籤，那麼以下情況如何？

require(Hmisc) 

## Your example data 
set.seed(1) 
# `x` should not contain missing values, and is not your platenames vector 
x <- 1:10 
y <- x + rnorm(10) 
delta <- runif(10) 
# xticks represents your platenames vector with missing values 
xticks <- c(1, 2, 3, 4, NA, NA, 7, 8, 9, 10) 

errbar(x, y, y + delta, y - delta, type = "b") 
axis(1, at = xticks, labels = xticks) 

但是，對於我來說，爲什麼你會觀察缺少x軸刻度標記的問題令人困惑。正如安德里所說，也許你可以澄清爲什麼一些platenames缺失，platenames是否應該是你的x值，或者它們是否只是標籤。如果他們只是標籤，也許你想要將標籤與mtext()添加到保證金：

errbar(x, y, y + delta, y - delta, type = "b") 
mtext(text = xticks, side = 3, line = 2, at = xticks) 

調整side和line每?mtext左右移動的標籤。