ggplot2：插入图例后剪切的x轴极右刻度标签

Question

插入图例后，将剪切x轴极右刻度标签（“400”）。我发现剪辑的两个解决方案不起作用。

/usr/include/machine/

Answer 1

根据@ MikolajM的建议，简单的解决方案是：

library(ggplot2)
textsize=12
o2b <- colorRampPalette(c("brown", "orange"))(4)

p <- theme(panel.grid.major=element_blank(), panel.grid.minor=element_blank(), 
           panel.background=element_blank(), panel.border=element_blank(), 
           plot.title=element_blank(), plot.margin = unit(c(5.5,12,5.5,5.5), "pt"), 
           legend.background=element_blank(), legend.key=element_blank(), legend.position=c(1,1), 
           legend.justification=c(1,1), legend.text=element_text(size=textsize), legend.title=element_text(size=textsize), 
           axis.line=element_line(colour="black"), axis.text=element_text(size=textsize, colour="black"), 
           axis.title=element_text(size=textsize))

p1 <- ggplot(temp1, aes(x=rank, y=rhh, colour=factor(naics_level))) + p + geom_point(shape=1, size=2) + 
  scale_color_manual(values=o2b) + 
  guides(colour = guide_legend(title="Niveau de NAICS", title.position = "left", reverse=T)) +  
  labs(x="Rang des MSA", y="Diversité sectorielle basée sur l'emploi en 2015")

关闭剪辑变得无关紧要。