Bar_charts_grouped

Bar_charts_grouped.png

  library(ggplot2)
  rm(list = ls())
  options(stringsAsFactors = F)
  
  setwd('D:\\Rscript')
  
  #myData2 = read.table('input.txt',header = T,sep='\t',check.names=F)
  #facet_grid(. ~ City, switch = 'x',scales = "free_x")  #加了个 ,scales = "free_x" x轴根据分页组拆分(x轴确实可拆分的情况下)
  # https://www.5axxw.com/questions/content/b5y5qz
  myData<-structure(list(Name = c("Rick", "Rick", "Rick", "Rick", "Rick", 
                                  "Rick", "Rick", "Rick", "Jane", "Jane", "Jane", "Jane", "Jane", 
                                  "Jane", "Jane", "Jane", "Ellen", "Ellen", "Ellen", "Ellen", "Ellen", 
                                  "Ellen", "Ellen", "Ellen"), 
                         City = c("Boston", "Boston", "Boston", 
                                  "Boston", "Seattle", "Seattle", "Seattle", "Seattle", "Boston", 
                                  "Boston", "Boston", "Boston", "Seattle", "Seattle", "Seattle", 
                                  "Seattle", "Boston", "Boston", "Boston", "Boston", "Seattle", 
                                  "Seattle", "Seattle", "Seattle"), 
                         Transport = c("Car", "Train", 
                                       "Bus ", "Plane", "Car", "Train", "Bus ", "Plane", "Car", "Train", 
                                       "Bus ", "Plane", "Car", "Train", "Bus ", "Plane", "Car", "Train", 
                                       "Bus ", "Plane", "Car", "Train", "Bus ", "Plane"), 
                         Time = c(0L, 
                                  1L, 0L, 9L, 0L, 0L, 3L, 7L, 1L, 3L, 2L, 0L, 0L, 2L, 3L, 0L, 1L, 
                                  3L, 3L, 4L, 8L, 4L, 7L, 7L)), 
                    class = "data.frame", row.names = c(NA, -24L))                                                                                                                                          
  
 P<-ggplot(myData, aes(Name, Time, fill = Transport)) +
    geom_col(position = "dodge") +  # stack # dodge
    scale_fill_viridis_d() +
    scale_y_continuous(limits = c(0, 10), breaks = 0:10) +
    labs(x = "City", y = "Time", title = "People") + 
    facet_grid(. ~ City, switch = 'x',scales = "free_x") +
    #scale_fill_manual(values = c("#8ecfc9","#ffbe7a","#fa7f6f","#82b0d2",
    #                             "#beb8dc","#e7dad2","#63e398","#a9b8c6")) +#"#9BB5CE", "#F78282",
    #theme_minimal(base_size = 14) +
    theme_classic(base_size = 14)+
    #theme_test()+ #全框
    #theme_light()+ #全框浅线
    #theme_bw()+
    theme(strip.placement = 'outside',
          strip.background = element_blank(),
          strip.text = element_text(size = 15, face = 'bold'),
          axis.ticks = element_blank(),
          axis.title = element_text(size = 18, face = "bold"),
          panel.grid.major = element_blank(), 
          panel.grid.minor = element_blank(),
          plot.title = element_text(size = 18, hjust = 0.5, face = 'bold')
          )
  
  ggsave('Bar_charts_grouped.png',plot=P, height=12, width=12, units="in",dpi=600)
  ggsave('Bar_charts_grouped.pdf',plot=P, height=12, width=12, units="in",dpi=600)
  

翻转

plot_zoom2.png

if(FALSE){
  
  library(ggplot2)
  rm(list = ls())
  options(stringsAsFactors = F)
  
  setwd('D:\\Rscript')
  
  #myData2 = read.table('input.txt',header = T,sep='\t',check.names=F)
  #facet_grid(City~., switch = 'x',scales = "free_y")  #加了个 ,scales = "free_y" y轴根据分页组拆分(y轴确实可拆分的情况下)
  # https://www.5axxw.com/questions/content/b5y5qz
  myData<-structure(list(Name = c("Rick", "Rick", "Rick", "Rick", "Rick", 
                                  "Rick", "Rick", "Rick", "Jane", "Jane", "Jane", "Jane", "Jane", 
                                  "Jane", "Jane", "Jane", "Ellen", "Ellen", "Ellen", "Ellen", "Ellen", 
                                  "Ellen", "Ellen", "Ellen"), 
                         City = c("Boston", "Boston", "Boston", 
                                  "Boston", "Seattle", "Seattle", "Seattle", "Seattle", "Boston", 
                                  "Boston", "Boston", "Boston", "Seattle", "Seattle", "Seattle", 
                                  "Seattle", "Boston", "Boston", "Boston", "Boston", "Seattle", 
                                  "Seattle", "Seattle", "Seattle"), 
                         Transport = c("Car", "Train", 
                                       "Bus ", "Plane", "Car", "Train", "Bus ", "Plane", "Car", "Train", 
                                       "Bus ", "Plane", "Car", "Train", "Bus ", "Plane", "Car", "Train", 
                                       "Bus ", "Plane", "Car", "Train", "Bus ", "Plane"), 
                         Time = c(0L, 
                                  1L, 0L, 9L, 0L, 0L, 3L, 7L, 1L, 3L, 2L, 0L, 0L, 2L, 3L, 0L, 1L, 
                                  3L, 3L, 4L, 8L, 4L, 7L, 7L)), 
                    class = "data.frame", row.names = c(NA, -24L))                                                                                                                                          
  
  P<-ggplot(myData, aes( Time,Name, fill = Transport)) +
    geom_col(position = "dodge") + #  stack # dodge
    scale_fill_viridis_d() +
    scale_x_continuous(limits = c(0, 10), breaks = 0:10) +
    labs(x = "Time", y = "City", title = "People") + 
    facet_grid(City ~ ., switch = 'y',scales = "free_y") +
    #theme_minimal(base_size = 14) +
    theme_classic(base_size = 14)+
    theme(strip.placement = 'outside',
          strip.background = element_blank(),
          strip.text = element_text(size = 15, face = 'bold'),
          
          axis.ticks = element_blank(),
          axis.title = element_text(size = 18, face = "bold"),
          panel.grid.major = element_blank(), 
          panel.grid.minor = element_blank(),
          plot.title = element_text(size = 18, hjust = 0.5, face = 'bold'))
  
  ggsave('gene_fpkm_bar_grouped.png',plot=P, height=12, width=12, units="in",dpi=600)
  ggsave('gene_fpkm_bar_stacked.pdf',plot=P, height=12, width=12, units="in",dpi=600)
  
}

补充：分页标签背景，angle 文字倾斜

  theme(
    strip.background = element_blank(), #element_rect( fill="#F8F8FF"), # 
    strip.text.y.left = element_text(size=10, angle = 0), #facet_grid 文字标签角度 # strip.text.x
  #strip.text.x.bottom,
  #strip.text.x.top,
  #strip.text.y,
  #strip.text.y.left,
  #strip.text.y.right,
    axis.text.y=element_text(angle=70,vjust=1,hjust=1,face="bold",size=8),
  )+guides(fill=guide_legend(title=""))