ggplot2作图遇到了问题

今天在使用ggplot2绘图的时候遇到了了如图所示的问题，请问有没有人可以帮忙解答一下=m=

img



```r

library(Rmisc)
library(reshape2)
library(ggplot2)
library(readxl)


df1= read_excel("C:/Users/chenp/Desktop/aus.xlsx") 
df2= read_excel("C:/Users/chenp/Desktop/aus2.xlsx") 

data1 <- melt(df1,id='WEEK',measure=c("AH1","AH1N12009","AH3","AH5","ANOTSUBTYPED","BVIC","BYAM","BNOTDETERMINED"))
data1
value <- data1[,c(3)]
data1[,c(3)] <- as.numeric(unlist(data1[,c(3)]))
p = ggplot(data1, aes(x=WEEK,y=value,fill=variable))+
  geom_bar(position="stack",stat="identity",width=0.9)+
  geom_text(aes(label=value,y=value+400))
colnames(data1)[seq(2,ncol(data1), 15)]
rownames(data1)[seq(2,nrow(data1), 15)]
p
p+theme(
  text = element_text(size=10),  
  axis.text.x =element_text(angle=90, vjust = 0.5), 
  panel.background = element_blank(),
  panel.grid =element_blank(),
  
)+

theme(axis.line = element_line(size=0.5, colour = "black"))

```

原因：绘图时数值显示的文字太大，彼此间隙太小，导致重叠。
解决方案：调小字号，或者去除x轴和图标的数值显示

横坐标标签，可以选择90° 翻转。
数字标签，要么选择调小。要么也可以90°翻转

ggplot(data = Alaska, mapping = aes(x = dep_delay, y = arr_delay)) + #建立画图区域

geom_point(alpha = 0.2) + #画图,alpha值为点的透明度（这里避免overplotted）

geom_jitter(width = 30, height = 30) + #或者使用geom_jitter避免overplotted

labs(x = "Departure delay (minutes)", y = "Arrival delay (minutes)",
title = "Alaska Airlines flights leaving NYC in 2013") #标签

img