Jak używać hjust i po prostu przesuwać elementy w ggplot2

Możesz użyć argumentów hjust i vjust , aby przesuwać elementy odpowiednio w poziomie i w pionie w ggplot2.

Poniższe przykłady pokazują, jak używać hjust i vjust w różnych scenariuszach.

Przykład 1: Przesuń pozycję tytułu w ggplot2

Poniższy kod pokazuje, jak utworzyć wykres rozrzutu w ggplot2 z tytułem w pozycji domyślnej (wyrównany do lewej):

 library (ggplot2)

#create scatter plot with title in default position
ggplot(data=mtcars, aes(x=mpg, y=wt)) +
  geom_point() +
  ggtitle(" Plot Title ") 

Poniższy kod pokazuje, jak wyśrodkować tytuł za pomocą hjust=0.5 :

 library (ggplot2)

#create scatter plot with title center-aligned
ggplot(data=mtcars, aes(x=mpg, y=wt)) +
  geom_point() +
  ggtitle(" Plot Title ") +
  theme(plot. title = element_text(hjust= .5 )) 

Uwaga : możesz także użyć hjust=1, aby wyrównać tytuł do prawej.

Przykład 2: Przesuń pozycję etykiety osi w ggplot2

Poniższy kod pokazuje, jak utworzyć wykres słupkowy w ggplot2, w którym etykiety osi X są obracane o 90 stopni, aby były łatwiejsze do odczytania:

 library (ggplot2)

#create data frame
df = data. frame (team=c('The Amazing Amazon Anteaters',
                       'The Rowdy Racing Raccoons',
                       'The Crazy Camping Cobras'),
                dots=c(14, 22, 11))

#create bar plot to visualize points scored by each team
ggplot(data=df, aes(x=team, y=points)) +
  geom_bar(stat=' identity ') +
  theme(axis. text . x = element_text(angle= 90 )) 

Możemy użyć argumentów hjust i vjust , aby dostosować etykiety osi x, tak aby były one bardziej wyrównane ze znacznikami osi x:

 library (ggplot2)

#create data frame
df = data. frame (team=c('The Amazing Amazon Anteaters',
                       'The Rowdy Racing Raccoons',
                       'The Crazy Camping Cobras'),
                dots=c(14, 22, 11))

#create bar plot to visualize points scored by each team
ggplot(data=df, aes(x=team, y=points)) +
  geom_bar(stat=' identity ') +
  theme(axis. text . x = element_text(angle= 90 , vjust= .5 , hjust= 1 ) 

Przykład 3: Przesuń pozycję tekstu w ggplot2

Poniższy kod pokazuje, jak utworzyć wykres rozrzutu w ggplot2 z tekstem z adnotacjami dla każdego punktu na wykresie:

 library (ggplot2)

#create data frame
df <- data. frame (player=c('Brad', 'Ty', 'Spencer', 'Luke', 'Max'),
                 dots=c(17, 5, 12, 20, 22),
                 assists=c(4, 3, 7, 7, 5))

#create scatter plot with annotated labels
ggplot(df) +
  geom_point(aes(x=points, y=assists)) + 
  geom_text(aes(x=points, y=assists, label=player)) 

Możemy użyć argumentu vjust , aby przesunąć elementy tekstowe w pionie, aby były łatwiejsze do odczytania:

 library (ggplot2)

#create data frame
df <- data. frame (player=c('Brad', 'Ty', 'Spencer', 'Luke', 'Max'),
                 dots=c(17, 5, 12, 20, 22),
                 assists=c(4, 3, 7, 7, 5))

#create scatter plot with annotated labels
ggplot(df) +
  geom_point(aes(x=points, y=assists)) + 
  geom_text(aes(x=points, y=assists, label=player), vjust= -.6 ) 

Możemy również użyć wartości dodatniej dla vjust , aby przesunąć elementy tekstowe w pionie w dół:

 library (ggplot2)

#create data frame
df <- data. frame (player=c('Brad', 'Ty', 'Spencer', 'Luke', 'Max'),
                 dots=c(17, 5, 12, 20, 22),
                 assists=c(4, 3, 7, 7, 5))

#create scatter plot with annotated labels
ggplot(df) +
  geom_point(aes(x=points, y=assists)) + 
  geom_text(aes(x=points, y=assists, label=player), vjust= 1.2 ) 

Tekst z adnotacjami znajduje się teraz pod każdym punktem wykresu.

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w ggplot2:

Jak zmienić tytuł legendy w ggplot2
Jak obracać etykiety osi w ggplot2
Jak naprawić w R: Nie można znaleźć funkcji „ggplot”