Как не отображать значение 0 в столбчатой гистограмме с помощью ggplot2

мне удалось создать столбчатую гистограмму с помощью ggplot2, но одно из значений данных равно 0. Есть ли способ показать все другие значения данных, кроме 0?

dat <- data.frame(matrix(NA, ncol=3, nrow=21))
names(dat) <- c("Var1", "Var2", "Freq")

dat$Var1 <- c(1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7)
dat$Var2 <- rep(letters[1:7],3)
dat$Freq <- c(3,11,1,5,9,4,1,5,4,0,7,2,5,2,3,11,11,15,5,10,10)
dat <- ddply(dat, .(Var1), transform, pos = cumsum(Freq)-0.5*Freq) ## pos is to place data values at the mid point.


ggplot(dat, aes(x=factor(Var1), y=Freq)) + 
    geom_bar(stat="identity", aes(fill = Var2)) + 
    geom_text(aes(label=Freq, y = pos), size=3)

Edit: воспроизводимые данные предоставлены.

6
ggplot2 r

1 ответов

Если вы не хотите изменять исходный фрейм данных, чтобы заменить 0 на NA, вы можете использовать подмножество внутри geom_text() использовать только значения, которые не равны 0.

ggplot(dat, aes(x=factor(Var1), y=Freq)) + 
  geom_bar(stat="identity", aes(fill = Var2)) + 
  geom_text(data=subset(dat,Freq != 0),aes(label=Freq, y = pos), size=3)

enter image description here

8