library(RColorBrewer)
Paired4 = brewer.pal(4, "Paired")
color111 = c("#A6CEE3", "#1F78B4", "#CAB2D6", "#6A3D9A", "#FB9A99", "#E31A1C", "#B2DF8A", "#33A02C", "#FDBF6F", "#FF7F00")
mycolors2 <- colorRampPalette(c('tan1', Paired4))(5)
mycolors3 <- colorRampPalette(c(brewer.pal(7, 'Dark2'), 'slategrey', color111))(18)
library(ggplot2)
library(reshape2)
library(readxl)
MPs_Size <- read_excel("D:/plots for LYP/20220123/MPs_Size.xlsx")
View(MPs_Size)
t3 = MPs_Size
t4 <- melt(t3, id.vars = "type", variable.name = "name", value.name = "value")
ggplot(t4, aes(x = name, y = value, fill = reorder(type, value) )) + geom_bar(stat ="identity", width = 0.75, position = "fill") + theme_bw() + scale_fill_manual(values = mycolors2, breaks = rev(t3$type)) + theme(panel.border = element_blank()) + theme(axis.line = element_line(size=0.8, colour = "black")) + theme(panel.grid = element_blank()) + theme(axis.title = element_blank()) + theme(axis.text = element_text(colour = 'black', size = 10)) + theme(legend.text = element_text(size = 9)) + theme(legend.title = element_blank()) + theme(axis.ticks = element_line(size=0.5)) + theme(axis.ticks.length = unit(0.15, 'cm')) + guides(fill=guide_legend(ncol=1)) + theme(axis.text.x = element_text(size = 9, hjust = 0.05, angle = 320), axis.title.y = element_text(size = 12)) + ylab('Fraction') + theme(legend.position = 'right', legend.key.size = unit(5, 'mm'))
MPs_Type <- read_excel("D:/plots for LYP/20220123/MPs_Type.xlsx")
View(MPs_Type)
t5 = MPs_Type
t6 <- melt(t5, id.vars = "type", variable.name = "name", value.name = "value")
ggplot(t6, aes(x = name, y = value, fill = type )) + geom_bar(stat ="identity", width = 0.75, position = "fill") + theme_bw() + scale_fill_manual(values = mycolors3) + theme(panel.border = element_blank()) + theme(axis.line = element_line(size=0.8, colour = "black")) + theme(panel.grid = element_blank()) + theme(axis.title = element_blank()) + theme(axis.text = element_text(colour = 'black', size = 9)) + theme(legend.text = element_text(size = 9)) + theme(legend.title = element_blank()) + theme(axis.ticks = element_line(size=0.5)) + theme(axis.ticks.length = unit(0.15, 'cm')) + guides(fill=guide_legend(ncol=1)) + theme(axis.text.x = element_text(size = 9, hjust = 0.05, angle = 320), axis.title.y = element_text(size = 12)) + ylab('Fraction') + theme(legend.position = 'right', legend.key.size = unit(4, 'mm'))
MPs_Depth_Type_transposed <- read_excel("D:/plots for LYP/20220123/MPs_Depth_Type_transposed.xlsx")
View(MPs_Depth_Type_transposed)
t7 = MPs_Depth_Type_transposed
t8 <- melt(t7, id.vars = "type", variable.name = "name", value.name = "value")
ggplot(t8, aes(x = name, y = value, fill = reorder(type, value) )) + geom_bar(stat ="identity", width = 0.75, position = "fill") + theme_bw() + scale_fill_manual(values = mycolors3) + theme(panel.border = element_blank()) + theme(axis.line = element_line(size=0.8, colour = "black")) + theme(panel.grid = element_blank()) + theme(axis.title = element_blank()) + theme(axis.text = element_text(colour = 'black', size = 9)) + theme(legend.text = element_text(size = 9)) + theme(legend.title = element_blank()) + theme(axis.ticks = element_line(size=0.5)) + theme(axis.ticks.length = unit(0.15, 'cm')) + guides(fill=guide_legend(ncol=1)) + theme(axis.text.x = element_text(size = 9, hjust = 0.05, angle = 320), axis.title.y = element_text(size = 12)) + ylab('Fraction') + theme(legend.position = 'right', legend.key.size = unit(3, 'mm'))
