Barplot empilé dans UpSetR

J'ai eu un problème similaire et j'ai trouvé cette solution de contournement:

library("UpSetR")
m <- read.csv(system.file("extdata", "movies.csv", package = "UpSetR"), 
              header = T, sep = ";")
x<-c(rep("M", 2000), rep("Q", 1000), rep("C", 883))
m<-cbind(m, x)  

upset(m,
      queries = list(
        list(query = elements, 
             params = list("x", c("M","Q", "C")), color = "#e69f00", active = T),
        list(query = elements, 
             params = list("x", c("Q","C")), color = "#cc79a7", active = T),
        list(query = elements, 
             params = list("x", "C"), color = grey(0.7), active = T)))

Le problème dans l'exemple d'origine est que chaque requête se superpose séparément à la barre totale et commence à y = 0 . Ainsi, la partie noire restante de la barre a toujours exactement la même hauteur que la partie violette en bas. La solution de contournement consiste à ajouter systématiquement des requêtes de combinaisons des différentes valeurs que la variable peut prendre:

1. Commencez par une requête et une couleur respective pour la combinaison de toutes les valeurs possibles (ici c ("M", "Q", "C") comme deuxième paramètre de params = liste () ).
2. Oubliez successivement l'une des valeurs possibles (par exemple c ("Q", "C") dans la première étape ici). La valeur laissée de côté sera représentée par la couleur de la requête, la dernière qui l'a encore incluse ( "M" dans cet exemple).
3. Continuez à ajouter des requêtes jusqu'à ce qu'il ne vous reste plus qu'une seule valeur pour le deuxième paramètre de params = list () .

Il devrait être possible de le faire par programme pour un plus grand nombre de valeurs possibles et en fournissant une palette de couleurs. Mais cela reste une solution de contournement et une implémentation native de l'empilement des requêtes serait bien d'avoir - donc si vous souhaitez voir cette fonctionnalité, vous pouvez envisager de remplacer le problème respectif sur le dépôt Github .

Ci-dessous la belle réponse de @dlaehnemann mais un peu modifiée afin de créer cette liste de liste en utilisant une boucle et en y liant les couleurs voulues.

m <- read.csv(system.file("extdata", "movies.csv", package = "UpSetR"), header = T, sep = ";")
x<-c(rep("M", 2000), rep("Q", 1000), rep("C", 883))
m<-cbind(m, x)

i<-0
mylist<-list()
vectorUniqueValue <- unique(m$x)
colors = colorRampPalette(c("#332288",'#fdff00','#FF0000',"#CC6677","#88CCEE",'#36870c','#b786d2','#7c3c06',"#DDCC77",'#192194','#52cff4','#4f9c8b',"#4477AA",'#808080'))(length(vectorUniqueValue))
while ( length(vectorUniqueValue)>0 ){
  i<-i+1
  mylist[[i]]<-list(query = elements, params = list("x",as.character(vectorUniqueValue)), color = colors[i], active = T)
  vectorUniqueValue<-vectorUniqueValue[-1]
}
upset(m, queries = mylist)

J'espère que cela aidera un peu jusqu'à ce qu'un jour quelqu'un travaille sur le problème sur github!

Voici un moyen de créer un tracé bouleversé avec un barplot empilé, mais en utilisant mon ComplexUpset plutôt que UpSetR:

library(ComplexUpset)
movies = as.data.frame(ggplot2movies::movies)
genres = colnames(movies)[18:24]

# for simplicity of examples, only use the complete data points
movies[movies$mpaa == '', 'mpaa'] = NA
movies = na.omit(movies)


upset(
    movies,
    genres,
    base_annotations=list(
        'Intersection size'=intersection_size(
            counts=FALSE,
            aes=aes(fill=mpaa)
        )
    ),
    width_ratio=0.1
)