X Achse Tick Label passt nicht mit Ggplot2 in Rstudio

Question

Ich versuche, ein Diagramm mit einem Log-Maßstab mit Ggplot2 in Rstudio machen und die letzte X-Achse Teilbeschriftung passt nicht in die Grafik.

Hier ist mein Plotten Code

ggplot(data=user.counts, aes(x=counter, y=Number_obs)) + 
geom_line()+ 
scale_y_log10(breaks=c(1,10,100,1000,10000),labels=c(1,10,100,1000,10000))+ 
scale_x_log10(breaks=c(1,10,100,1000,10000),labels=c(1,10,100,1000,10000))+ 
labs(x="No. observers",y="No. observations",title="")+ 
theme_bw(base_size = 20) 

und dies ist ein Screenshot von meinem Diagramm:

Ich habe versucht, die Handlung Scheibe größer in RStudio machen und die Handlung knallend aus Bereich und beide Methoden keinen Unterschied machen.

Vielen Dank

Answer 1

Option 1. Rechtsbündig X-Achsen-Labels:

ggplot(data=user.counts, aes(x=counter, y=Number_obs)) + 
    geom_line()+ 
    scale_y_log10(breaks=c(1,10,100,1000,10000), labels=c(1,10,100,1000,10000))+ 
    scale_x_log10(breaks=c(1,10,100,1000,10000), labels=c(1,10,100,1000,10000))+ 
    labs(x="No. observers",y="No. observations",title="")+ 
    theme_bw(base_size = 20) + 
    theme(axis.text.x = element_text(hjust = 1)) # default is hjust = 0.5 

Option 2. Expansion konstant erhöhen:

ggplot(data=user.counts, aes(x=counter, y=Number_obs)) + 
    geom_line()+ 
    scale_y_log10(breaks=c(1,10,100,1000,10000), labels=c(1,10,100,1000,10000))+ 
    scale_x_log10(breaks=c(1,10,100,1000,10000), labels=c(1,10,100,1000,10000), 
       expand = c(0.1, 0))+ # default is c(0.05, 0) for continuous variable 
    labs(x="No. observers", y="No. observations", title="")+ 
    theme_bw(base_size = 20) 

Beispieldaten verwendet:

set.seed(1) 
user.counts <- data.frame(
    counter = seq(1, 1000), 
    Number_obs = seq(1000, 1) * 10 + rnorm(1000) 
)