library(ggplot2)
p <- ggplot(diamonds,aes(color,fill=cut))
p + geom_bar(position = "stack") #堆积图
p + geom_bar(position = "fill") #比例堆积图
p + geom_bar(position = "dodge") #躲开
p + geom_bar(position = "identity") #同一位置

q <- ggplot(mpg, aes(displ, hwy))
q + geom_point()+xlim(0,8)
q + geom_point(position = "jitter")+xlim(0,8) #jitter表扰动
q + geom_point(position = position_jitter(width = 0.05, height = 0.05))+xlim(0,8) #给扰动限制范围
q + geom_point(position = position_nudge(x=1))+xlim(0,8) #nudge表示向右移动距离1

在位置参数常可写为position=position_****()

position_dodge()
position_dodge2()
position_fill()
position_identity()
position_jitter()
position_jitterdodge()
position_nudge()
position_stack()

p + geom_bar(position = position_dodge2(width = 1,padding=0.1,reverse = T)) #width调整重叠部分，padding调整间隔，reverse反向