ggplot2：カスタムyの制限を持つgeom_bar

Question

ggplot2の棒グラフをカスタムyの制限とともに描画したいとします。

Type <- LETTERS[1:5] 
Y <- c(99, 99.5, 99.0, 98.8, 98.5) 

df <- data.frame(Type, Y) 

次のコードでは、棒グラフのために正常に動作します：

library(ggplot2) 
ggplot(data = df, mapping = aes(x = Type, y = Y, fill = Type)) + 
    geom_bar(stat = "identity") + 
    theme_bw() 

はしかし、私は、y制限を設定することはできませんよ。以下のコードを参照してください。

ggplot(data = df, mapping = aes(x = Type, y = Y, fill = Type)) + 
    geom_bar(stat = "identity") + 
    scale_y_continuous(limits = c(90, 100)) + 
    theme_bw() 

ggplot(data = df, mapping = aes(x = Type, y = Y, fill = Type)) + 
    geom_bar(stat = "identity") + 
    ylim(90, 100) + 
    theme_bw() 

編集は

私は、この動作がstat = "identity"によるものであると思います。

は

Answer 1

geom_rect()代わりgeom_bar()を用いて溶液：

# Generate data 
Type <- LETTERS[1:5] 
Y <- c(99, 99.5, 99.0, 98.8, 98.5) 
df <- data.frame(Type, Y) 

# Plot data 
library(ggplot2) 
ggplot() + 
    geom_rect(data = df, 
       aes(xmin = as.numeric(Type) - 0.3, 
        xmax = as.numeric(Type) + 0.3, 
        ymin = 90, ymax = Y, 
        fill = Type)) + 
    scale_x_continuous(label = df$Type, breaks = 1:nrow(df)) 

geom_rect()においては、xは指定as.numeric(X) -/+ valueとして座標。 yminは望ましい下限値として、ymaxは実際のY値として調整されます。

Answer 2

coord_cartesianを使用して代替、：

ggplot(data = df, mapping = aes(x = Type, y = Y, fill = Type)) + 
    geom_bar(stat = "identity") + 
    coord_cartesian(ylim = c(90, 100)) + 
    theme_bw() 

はあなたを与える：