removing zeros from a part of a ggpaired plot using ggplot_build

Question

I want to remove zeros from only the violin part of this graph

I tried using the ggplot_build function but I don't get the desired outcome and somehow it removes the statistical test.

Am I doing something wrong? I attach code and picture of the problem

library(introdataviz)
library(ggpubr)
library(grid)

#set seed
set.seed(42)

#build dunny data
first <- sample(c(rep(0,100), rnorm(50,15,2)))
second <- sample(c(rep(0,100), rnorm(50,10,1)))
df <- data.frame(first, second)


# build plot
p1 <- ggpaired(df,cond1 = "first", cond2 = "second",line.color = "gray")+
   stat_compare_means(paired = TRUE)+
  introdataviz::geom_split_violin( trim = TRUE,alpha = .4) + ylim(0,22)
#create ggplot_build object
p1_build <- ggplot_build(p1)

#remove zeros from violin plot part
p1_build$data[[4]] <- subset(p1_build$data[[4]], first != 0 & second != 0)
p1_build$data[[5]] <- subset(p1_build$data[[5]], first != 0 & second != 0)

#produce new graph
p2 <- ggplot_gtable(p1_build)
grid.draw(p2)

stefan · Accepted Answer · 2023-01-13 14:40:45Z

1

If you want to exclude the zeros from the violin plot it's probably easier to use a filtered dataset for geom_split_violin:

library(introdataviz)
library(ggpubr)
library(grid)

ggpaired(df, cond1 = "first", cond2 = "second", line.color = "gray") +
  stat_compare_means(paired = TRUE) +
  introdataviz::geom_split_violin(
    data = ~ subset(.x, first != 0 & second != 0), 
    trim = TRUE, alpha = .4
  ) +
  ylim(0, 22)

answered Jan 13, 2023 at 14:40

stefan

130k6 gold badges42 silver badges84 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

removing zeros from a part of a ggpaired plot using ggplot_build

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related