如何使用ggplot2獲取帶有自由刻度和條形圖的facet_grid圖？

Question

我正在（重新）學習ggplot2並嘗試獲取此特殊繪圖，事實證明這很容易避免。

早些時候，我發現了這個問題 ， 該問題很有用，但並不是我需要的一切。 這或多或少是您使用該問題的公認答案所獲得的：

## Packages & data:
require(dplyr)
set.seed(0)
df <- data.frame(categ=c("A", "B", "C"), 
                 V1=rpois(3, 20), 
                 V2=rnorm(3, 100, 40), 
                 V2=runif(3)) %>% gather(Var, X, 2:4)
## Se below in "Example data" for how to get this example

p  <- ggplot(df, aes(categ, X, color=Var)) + geom_point()
p + facet_grid(Var ~ ., scale="free")

結果圖是這樣的：

但是，我需要這樣做，只用條形圖而不是點數即可。 有人需要幫助嗎？

在此先感謝Juan

示例數據

請注意，我使用了tidyr::ghather和magrittr的管道%>%來創建我的示例，但是使用reshape2::melt可以實現相同的效果：

require(reshape2)
set.seed(0)
df <- data.frame(categ=c("A", "B", "C"), 
                 V1=rpois(3, 20), 
                 V2=rnorm(3, 100, 40), 
                 V2=runif(3))
df <- melt(df, id="categ", variable.name="Var", value.name="X")

無論如何，結果data.frame看起來像這樣：

categ  Var           X
    A   V1  25.0000000
    B   V1  18.0000000
    C   V1  25.0000000
    A   V2 150.8971729
    B   V2 116.5856574
    C   V2  38.4019983
    A V2.1   0.1765568
    B V2.1   0.6870228
    C V2.1   0.3841037

Answer 1

好的，我想起來更簡單，我只需要在geom_bar調用上添加stat = "identity" ：

p  <- ggplot(df, aes(categ, X, color=Var)) + geom_bar(stat="identity")
p + facet_grid(Var ~ ., scale="free")