R学习 作图

plot(iris[,1],iris[,3],col = iris[,5]) #点图，指定横纵坐标、颜色
text(6.5,4, labels = 'hello')#在坐标(6.5,4)加一个标记'hello'

ggplot(data = iris) + 
  geom_point(mapping = aes(x = Sepal.Length, y = Petal.Length), 
             color="blue",#点的颜色
             size = 3,     # 点的大小5mm
             alpha = 0.5,  # 透明度 50%
             shape = 8)  # 点的形状

ggplot(data = iris)+
  geom_point(mapping = aes(x = Sepal.Length,
                           y = Petal.Length,
                           color = Species))+
  scale_color_manual(values = c("blue","grey","red"))#指定映射的颜色

library(RColorBrewer)
display.brewer.all(type = "all")

ggplot(data = iris)+
  geom_point(mapping = aes(x=Sepal.Length,
                           y=Petal.Length,
                           color=Species))+
  scale_color_brewer(palette = "Set2")

ggplot(data = iris)+
  geom_point(mapping = aes(x = Sepal.Length,
                           y = Petal.Length,
                           color = Species),
             shape = 24,
             fill = "black")+
  scale_color_brewer(palette = "Set2")

ggplot(data = iris,mapping = aes(x = Species, 
                                 y = Sepal.Width,
                                 fill = Species)) + #箱型图应用fill填充颜色
  geom_boxplot()+
  geom_jitter()+ #加入随机，使点在图中不重叠
  theme_bw()#改变主题(去除灰格背景)

pdf("iris_box_ggpubr.pdf")#保存的函数及文件名
boxplot(iris[,1]~iris[,5])
text(6.5,4, labels = 'hello')#作图代码
dev.off()#关闭画板

p <- ggboxplot(iris, x = "Species", 
               y = "Sepal.Length",
               color = "Species", 
               shape = "Species",
               add = "jitter")
ggsave(p,filename = "iris_box_ggpubr.png")
ggsave("iris_box_ggpubr.png")

library(eoffice)
topptx(p,"iris_box_ggpubr.pptx")