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