barplotと同じグラフ上のプロット - x軸の移動

Question

私は最初にバープロットをプロットし、その累積を取って同じ図（グラフ）にプロットしようとしています。問題は、プロットコマンドの場合、結果がバープロット値の中央にならないことです。

vec1 <- 1:10 
vec2 <- vec1 

for (ii in 2:length(vec1)) { 
    vec2[ii] = vec2[ii-1] + vec1[ii] 
} 

p1 <- barplot(vec1) 
par(new=TRUE) 
plot(p1,vec2, axes=FALSE) 

Answer 1

問題がbarplotはx軸上の整数値を使用しないことです。それは独自のx値を計算します、私はスケーリングのために推測します。使用している点のベクトルを取得して他のものと整列させるには、barplotの呼び出しで返されたオブジェクトからそれらを引き出す必要があります。ここでは例です：私はポイント（またはライン）の余地があったことを確認するbarplotへの最初の呼び出しでylimを設定する必要がありました

# make some toy data 
set.seed(1) 
df <- data.frame(cat = LETTERS[1:3], 
       val = seq(3), 
       val2 = rpois(3, lambda = 5), 
       stringsAsFactors = FALSE) 

# now try adding val2 as points to a barplot of val1; as you found, the 
# points aren't centered 
# over the bars like we want 
barplot(df$val, ylim = c(0,7)) 
points(x = seq(3), y = df$val2, pch = 20, col = "red") 

# try again, this time capturing the x values from a call to barplot and then 
# using them in the call to points; this works 
p <- barplot(df$val, ylim = c(0,7)) 
points(x = p, y = df$val2, pch = 20, col = "red") 

注意。