CHART

坐标轴名称等

标题,副标题,caption,tag,坐标轴名称

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

mtcars

ggplot(mtcars,aes(mpg,disp))+
  geom_point()+
  labs(title = 'title',subtitle = 'subtitle',caption = 'caption',tag = 'A',x='X',y='Y')

主题风格-theme_bw

theme_bw

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

mtcars

p<-ggplot(mtcars,aes(mpg,disp))+
geom_point()
p+theme_bw()

主题风格-theme_minimal

theme_minimal

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

mtcars

p<-ggplot(mtcars,aes(mpg,disp))+
geom_point()
p+theme_minimal()

主题风格-theme_classic()

theme_classic

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

mtcars

ggplot(mtcars,aes(mpg,disp))+
  geom_point()+
  theme_classic()

主题风格-theme_dark

theme_dark

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

mtcars

ggplot(mtcars,aes(mpg,disp))+
geom_point()+
theme_dark()

主题风格-theme_light

theme_light

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

mtcars

ggplot(mtcars,aes(mpg,disp))+
geom_point()+
theme_light()

主题风格-theme_void

theme_void

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

mtcars

ggplot(mtcars,aes(mpg,disp))+
geom_point()+
theme_void()

简单散点图

散点图,geom_point

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

mtcars

ggplot(mtcars,aes(mpg,disp))+
geom_point()+
theme_bw()

散点图-线性回归

geom_point,geom_smooth,线性回归,曲线拟合

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

mtcars

ggplot(mtcars,aes(mpg,disp))+
  geom_point()+
  geom_smooth(method = 'lm',color='blue',fill='skyblue')+
  theme_bw()

散点图-loess拟合

geom_point,geom_smooth,loess拟合

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

mtcars[,c('mpg','disp')]

ggplot(mtcars,aes(mpg,disp))+
  geom_point()+
  geom_smooth(method = 'loess')+
  theme_bw()

棒棒糖图

棒棒糖图,geom_segment,geom_point

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

df<-count(diamonds,cut)
df

ggplot(df,aes(cut,n,color=factor(cut)))+
  geom_point(size=5)+
  geom_segment(aes(x=cut,xend=cut,y=0,yend=n),size=2,alpha=.5)+
  theme_bw()

棒棒糖图

geom_point,geom_segment,size

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

df<-count(diamonds,cut)
df

ggplot(df,aes(cut,n,label=n))+
  geom_point(aes(size=n),color="red")+
  geom_text(nudge_y = 1000,color='black')+
  geom_segment(aes(x=cut,xend=cut,y=0,yend=n),color="red")+
  theme_bw()+
  labs(size='number')

棒棒糖图

geom_point,geom_segment,geom_text

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

df<-count(diamonds,cut)
df

ggplot(df,aes(cut,n,label=n,color=cut))+
  geom_point(aes(size=n))+
  geom_text(nudge_y = 1000)+
  geom_segment(aes(x=cut,xend=cut,y=0,yend=n))+
  theme_bw()+
  theme(legend.position = 'null')

分组柱状图

柱状图,geom_col

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

df<-tribble(~category,~group,~value,
            'A','g1',10,
             'A','g2',20,
             'B','g1',10,
             'B','g2',20)
df

ggplot(df,aes(category,value,fill=group,label=value))+
  geom_col(width=0.4,position = position_dodge(width=0.5))+
  geom_text(width=0.4,aes(y=value+1),position = position_dodge(width=0.5))+
  theme_bw()+
  scale_y_continuous(expand = expansion(c(0,0.1),c(0,0)))+
  labs(x='X',y='Y',fill='legend')+
  scale_fill_manual(values = c('skyblue','pink'))+
  theme(legend.position = 'top')

简单森林图

geom_text,geom_linerange,误差线,文本

R数据分析与可视化

#install.packages('tidyverse')
library(tidyverse)

df<-mtcars %>%
  group_by(cyl) %>%
  summarise(mean=mean(mpg),sd=sd(mpg)) %>%
  round(2) %>%
  mutate(str=paste0(mean,'(',mean-sd,',',mean-sd,')'))
df

ggplot(df,aes(factor(cyl),mean)) +
  geom_point(aes(shape=factor(cyl)),size=5)+
  geom_linerange(aes(ymin=mean-sd,ymax=mean+sd))+
  coord_flip()+
  theme(legend.position = 'NULL')+
  geom_text(aes(label=str,y=40))+
  theme_minimal()+
  theme(axis.line = element_line(),
        #panel.grid = element_blank(),
        legend.position = 'NULL',
        axis.ticks.x = element_line())+
  scale_y_continuous(limits = c(0,50),expand = expansion(add = 0))