是否可以使用GGPLOT制作列图，其中列填充由第三个变量控制？

Question

我有一个具有三个连续变量（x，y，z）的数据框架。我想要一个列图，其中x定义列的x轴位置，y定义列的长度，列颜色（y的函数）由z定义。下面的测试代码显示了设置。

`require(ggplot2)
 require(viridis)

 #  Create a dummy data frame

 x <- c(rep(0.0, 5),rep(0.5,10),rep(1.0,15))
 y <- c(seq(0.0,-5,length.out=5),
        seq(0.0,-10,length.out=10),
        seq(0.0,-15,length.out=15))
 z <- c(seq(10,0,length.out=5),
        seq(8,0,length.out=10),
        seq(6,0,length.out=15))

 df <- data.frame(x=x, y=y, z=z)

 pbase <- ggplot(df, aes(x=x, y=y, fill=z))
 ptest <- pbase + geom_col(width=0.5, position="identity") +
                  scale_fill_viridis(option="turbo",
                  limits = c(0,10),
                  breaks=seq(0,10,2.5),
                  labels=c("0","2.5","5.0","7.5","10.0"))
                   
  print(ptest)`

传说具有正确的颜色，但列没有。也许这不是执行此类情节的正确方法。我尝试使用geom_bar（）创建具有正确颜色的条形的条，但y值不正确。

Answer 1

看起来您有3个X值，每个值出现5、10或15次。您是否希望像现在一样，将条形覆盖在彼此的顶部？如果将alpha = 0.5添加到GEOM_COL调用中，您会看到重叠的条。

另外，您可能会使用躲避来显示彼此相邻的条形，而不是彼此之间。

ggplot(df, aes(x=x, y=y, fill=z, group = z)) + 
  geom_col(width=0.5, position=position_dodge()) +
  scale_fill_viridis_c(option="turbo", # added with ggplot 3.x in 2018
                     limits = c(0,10),
                     breaks=seq(0,10,2.5),
                     labels=c("0","2.5","5.0","7.5","10.0"))

或者您可以按y的顺序绘制数据，以便较小的条出现在顶部，明显：

ggplot(dplyr::arrange(df,y), aes(x=x, y=y, fill=z))+ 
  geom_col(width=0.5, position="identity") +
  scale_fill_viridis_c(option="turbo",
                     limits = c(0,10),
                     breaks=seq(0,10,2.5),
                     labels=c("0","2.5","5.0","7.5","10.0"))

Answer 2

我通过使用geom_tile（）代替geom_col（）解决了此问题。