Jak używać ggplot2's geom_dotplot() z wypełnieniem i grupą

Question

Bardzo podoba mi się sposób, w jaki ggplot2::geom_dotplot() może ładnie układać kropki w kierunku środka kategorii, ale nie mogę połączyć tego z kolorem wypełnienia.

Spójrzmy na przykład:

# test data 
tmpData <- data.frame(x=c(rep('x', 3),rep('y', 3)), y=c(1,1,2,1,2,2), fill=rep(c('A', 'B', 'B'), 2)) 

# Plot without fill color 
ggplot(tmpData, aes(x=x, y=y)) + 
    geom_dotplot(binaxis = "y", stackdir = "center", dotsize=4) 

skutkuje tym działki:

Ale kiedy dodać argument wypełnienia:

ggplot(tmpData, aes(x=x, y=y, fill=fill)) + 
    geom_dotplot(binaxis = "y", stackdir = "center", dotsize=4) 

wypełnienia wydaje się nadpisywać grupowanie wykonane na "x", powodując dwa punkty (x, 1) (x , 1) do zawalenia chciałbym, żeby miały różne kolory.

Kiedy próbuję określić grupę kolor wypełnienia jest ignorowany:

ggplot(tmpData, aes(x=x, y=y, group=x, fill=fill)) + 
    geom_dotplot(binaxis = "y", stackdir = "center", dotsize=4) 

Zawalenie wydaje się być możliwe do uniknięcia poprzez umożliwienie stackgroups:

ggplot(tmpData, aes(x=x, y=y, fill=fill)) + 
    geom_dotplot(binaxis = "y", stackgroups=TRUE, stackdir = "center", dotsize=4) 

Ale potem tracę centrowanie danych do "x" i "y", które znajdują się na pozostałych 3 działkach.

Czy istnieje sposób użycia geom_dotplot() dla obu grup i wypełnienia?

Answer 1

Jeśli jesteś otwarty na kawałku hacky roztworu po prostu, żeby go jak chcesz to patrzeć .. . można zastąpić polecenie wypełnienia po prostu dostarczanie go z wektorem nazw kolorów:

tmpData$colorname <- rep(c('red','blue','blue'),2) 

ggplot(tmpData, aes(x=x, y=y)) + 
    geom_dotplot(binaxis = "y", stackdir = "center", dotsize=4, fill=tmpData$colorname) 

Answer 2

Chyba trzeba dodać argument position = "dodge":

ggplot(tmpData, aes(x = x, y = y, fill = fill,)) + 
    geom_dotplot(binaxis = "y", stackdir = "center", dotsize = 4, position = "dodge")