Używam R z GGLOT i zmagam się z sortowaniem w żądanej kolejności zgrupowany Barchart.

Jak dotąd używany kod jest następujący:

levels(data.m$variable) <- c("% Worried about emigration", "% Worried both immigration and emigration", 
                             "% Worried about immigration", "% Neither / don't know")

require(forcats)

ggplot(data.m, aes(fill = variable, Countries, value))+
  geom_bar(position = 'stack', stat = 'identity')+
  expand_limits(x=c(0,0))+
  coord_flip()

To zwraca mnie ten wykres:

![Text](D:\nuovo\universita\tesi\immagini\worriedCountries.png)

Chciałbym jednak mieć osi Y tej wykresu posortowanego przez krajów, które są bardziej zmartwione o "emigracji".

Czy ktoś może mi z tym pomóc?

0
DaniB 21 marzec 2020, 16:54

1 odpowiedź

Najlepsza odpowiedź

Jedna wskazówka: Uważaj za pomocą levels(data.m$variable)<-..., czynniki są trudne, może zmienić wartości tej kolumny danych swoich danych. Sprawdź to Daj spojrzeć, jeśli ci to pomaga, sztuczka ma użyć scale_x_discrete(limits=...):

library(ggplot2)
library(dplyr)
#Dummy data
data.m = data.frame(Countries = c(rep("A",4),rep("B",4),rep("C",4)),
                    value = c(c(1,2,3,4),c(4,3,2,1),c(2,3,1,4))/10,
                    variable = factor(
                                  rep(c("% Worried about emigration", "% Worried both immigration and emigration", 
                                     "% Worried about immigration", "% Neither / don't know"),
                                   3), levels = c("% Worried about emigration", "% Worried both immigration and emigration", 
                                                  "% Worried about immigration", "% Neither / don't know"))
                    )

yticks = data.m %>% filter(variable=="% Worried about emigration") %>% arrange(value) %>% pull(Countries) %>% as.character()

## If you want it in descendant order use 'arrange(desc(value))'


ggplot(data.m,aes(fill = variable,Countries,value))+
  geom_bar(position = 'stack', stat = 'identity')+
  coord_flip()+
  scale_x_discrete(limits = yticks)

Wyjście: Image

1
vpz 21 marzec 2020, 15:11