对称直方图

Question

我想制作一些对称的直方图来显示蝴蝶丰富度。这是一个显示我要创建的图表形式的网站：http://thebirdguide.com/pelagics/bar_chart.htm

为方便起见，我将使用虹膜数据集。

library(ggplot2)

g <- ggplot(iris, aes(Sepal.Width)) + geom_histogram(binwidth=.5) 
g + coord_fixed(ratio = .003)

基本上，我想将此直方图镜像在x轴下方。另一种思考问题的方法是创建一个带有不同分档的水平小提琴图。我已经查看了plotrix包和ggplot2文档，但是在这两个地方都找不到解决方案。我更喜欢使用ggplot2，但基本R，格子或其他包中的其他解决方案都可以。

Answer 1

如果没有您的确切数据，我只能提供近似的编码解决方案，但它是您的开始（如果您添加更多详细信息，我将很乐意帮助您调整情节）。这是代码：

library(ggplot2)
noSpp <- 3
nTime <- 10
d <- data.frame(
    JulianDate = rep(1:nTime , times = noSpp),
    sppAbundance    = c(c(1:5, 5:1),
                c(3:5, 5:1, 1:2),
                c(5:1, 1:5)),
    yDummy = 1,
    sppName = rep(letters[1:noSpp], each = nTime))

ggplot(data = d, aes(x = JulianDate, y = yDummy, size = sppAbundance)) +
    geom_line() + facet_grid( sppName ~ . ) + ylab("Species") +
    xlab("Julian Date")

这就是数字。