!stacked plot

library(ggplot2)
library(ggthemr)
library(hrbrthemes)

## NOTE: Either Arial Narrow or Roboto Condensed fonts are required to use these themes.

##       Please use hrbrthemes::import_roboto_condensed() to install Roboto Condensed and

##       if Arial Narrow is not on your system, please see https://bit.ly/arialnarrow

t1 <- read.csv("D:\\R files\\CFY-R-code\\26.stacked plot\\t1.csv", )

t1

##           cp sample1 sample2 sample3 sample4 sample5
## 1 component1    0.10    0.20   0.300    0.20    0.15
## 2 component2    0.20    0.20   0.200    0.19    0.25
## 3 component3    0.30    0.30   0.100    0.30    0.30
## 4 component4    0.15    0.01   0.200    0.01    0.01
## 5 component5    0.05    0.01   0.005    0.01    0.01
## 6 component6    0.01    0.01   0.005    0.02    0.01
## 7 component7    0.03    0.08   0.090    0.08    0.06
## 8 component8    0.16    0.19   0.100    0.19    0.21

library(reshape2)

t2 <- melt(t1, id.vars = "cp", variable.name = "name", value.name = "value")

t2

##            cp    name value
## 1  component1 sample1 0.100
## 2  component2 sample1 0.200
## 3  component3 sample1 0.300
## 4  component4 sample1 0.150
## 5  component5 sample1 0.050
## 6  component6 sample1 0.010
## 7  component7 sample1 0.030
## 8  component8 sample1 0.160
## 9  component1 sample2 0.200
## 10 component2 sample2 0.200
## 11 component3 sample2 0.300
## 12 component4 sample2 0.010
## 13 component5 sample2 0.010
## 14 component6 sample2 0.010
## 15 component7 sample2 0.080
## 16 component8 sample2 0.190
## 17 component1 sample3 0.300
## 18 component2 sample3 0.200
## 19 component3 sample3 0.100
## 20 component4 sample3 0.200
## 21 component5 sample3 0.005
## 22 component6 sample3 0.005
## 23 component7 sample3 0.090
## 24 component8 sample3 0.100
## 25 component1 sample4 0.200
## 26 component2 sample4 0.190
## 27 component3 sample4 0.300
## 28 component4 sample4 0.010
## 29 component5 sample4 0.010
## 30 component6 sample4 0.020
## 31 component7 sample4 0.080
## 32 component8 sample4 0.190
## 33 component1 sample5 0.150
## 34 component2 sample5 0.250
## 35 component3 sample5 0.300
## 36 component4 sample5 0.010
## 37 component5 sample5 0.010
## 38 component6 sample5 0.010
## 39 component7 sample5 0.060
## 40 component8 sample5 0.210

p <- ggplot(t2, aes(x = name,y = value, fill = cp))+
     ####position="stack"堆叠状
     geom_bar(stat ="identity",width = 0.6,position ="stack")
p

p <- ggplot(t2, aes(x = name,y = value, fill = cp))+
     ####position="stack"堆叠状
     geom_bar(stat ="identity",width = 0.8,position ="stack", colour="white")
p

#改个颜色看看
ggthemr("flat")
p <- ggplot(t2, aes(x = name,y = value, fill = cp))+
     ####position="stack"堆叠状
     geom_bar(stat ="identity",width = 0.8,position ="stack", colour="white")
p

#再改个颜色看看
ggthemr('dust', layout = 'scientific')
p <- ggplot(t2, aes(x = name,y = value, fill = cp))+
     ####position="stack"堆叠状
     geom_bar(stat ="identity",width = 0.8,position ="stack", colour="white")
p

#横过来
ggthemr("flat", layout = "scientific")
p <- ggplot(t2, aes(x = name,y = value, fill = cp))+
     ####position="stack"堆叠状
     geom_bar(stat ="identity",width = 0.8,position ="stack", colour="white")+coord_flip()
p

#转为极坐标
ggthemr("flat", layout = "scientific")
p <- ggplot(t2, aes(x = name,y = value, fill = cp))+
     ####position="stack"堆叠状
     geom_bar(stat ="identity",width = 0.95,position ="stack", colour="white")+coord_polar(theta = 'x', start = 0) + theme(axis.title = element_blank())+guides(fill=guide_legend(reverse=TRUE))
p

print("此图片的超高清版本下载链接: https://pan.baidu.com/s/1aKjs4aH2FhFeETjgOhX9mA 提取码：6688")

## [1] "此图片的超高清版本下载链接: https://pan.baidu.com/s/1aKjs4aH2FhFeETjgOhX9mA 提取码：6688"

ggsave("D:\\R files\\CFY-R-code\\26.stacked plot\\xx.tiff", dpi = 1200, width = 10, height = 10)

library(magick)

## Linking to ImageMagick 6.9.9.14
## Enabled features: cairo, freetype, fftw, ghostscript, lcms, pango, rsvg, webp
## Disabled features: fontconfig, x11

xh <- image_read('D:\\360Downloads\\xuhuo.jpg')
xh1 <- image_negate(xh)
xh2 <- image_implode(xh)
xh_animate <- image_animate(c(xh,xh1,xh2), fps = 2)
xh_animate