save(X,file="test.RData")这句代码如果报错object X not found，是为什么，应该怎么解决？
最有可能的原因是X的大小写错误，找到正确的对象名称替换即可。
今天的学习内容依然是ggplot绘图
条形图统计变换
ggplot(data=diamonds)+
geom_bar(mapping = aes(x=cut))
image.png
这里得到的count在原数据里并不存在，是geom_bar里stat参数默认给cut这一列不同种类计数得到的频数，如果不想做这种变换，就采用原始的数据，可以将stat改为stat="identity"
ggplot(data=demo)+
geom_bar(mapping=aes(x=a,y=b),stat="identity")
位置调整
ggplot(data=diamonds)+
geom_bar(mapping = aes(x=cut,fill=clarity))
image.png
这里默认是堆叠模式，还可以选择 identity、fill、dodge
ggplot(data=diamonds)+
geom_bar(mapping = aes(x=cut,fill=clarity),position = "fill")
image.png
当position=“dodge”
image.png
散点图位置调整
当散点图中点过多时，很多点会出现重叠，position=“jitter”通过为每个数据添加一个很小的抖动，可以将重叠的点分开。
ggplot(data=mpg)+
geom_point(mapping=aes(x=displ,y=hwy),position = "jitter")
ggplot(data=mpg)+
geom_jitter(mapping=aes(x=displ,y=hwy))
坐标系
coored_flip()可以交换x轴和y轴，非常适用于当x轴标签非常长时。
ggplot(data=mpg,mapping=aes(x=class,y=hwy))+
geom_boxplot()+
coord_flip()
image.png
bar <- ggplot(data=diamonds)+
geom_bar(mapping = aes(x=cut,fill=cut),show.legend = F,width = 1)+
theme(aspect.ratio = 1)+
labs(x=NULL,y=NULL)
bar+coord_polar()
image.png
总结
image.png
image.png
