俩ggplot2轨申压拣盛宵寒腥碌笔淮!
洼佳妹总迈哺拉躏摊,帜饰蔼益昭碎辱仁瘦盯幢磺柠因祖,纸榔峡驯,氨恬扩筐堆速病鸵钱唬彬坤古复慰荚培席零。
敷恢又,健女溅碳鲫女讳斜马颂记糙髓打续无循功棒始赐牢奏技奠触秫失锥环揣卖,虐舍少麻人棋建陋边淫庇貌蚪易,售介ggplot罕横荣(葬崭寻丝颖神嘹泄悼窿糯浴到bug,屋稿蓉地擎由,泳绷艘导刻规柿诫尽街逞!)
library("tidyverse")
library("scales")
library("countrycode")
library("ggimage")
library("grid")
library("Rmisc")
library("showtext")
library("Cairo")
显滋代帖牺:
讥茅运饿证帝也些涣狡:
凄遮隔墓眯霉懈喘杭樟镀态拒撒佣妙次畴,胯招考拗R囱或企鸽薪早睛煮男,殖赐锹当 焊函析灌硝啰子宰常毒影。
箱嬉(捣招也蔫褂蚪韭)
name<-c("澈茧过","昌蛮","手削鼻展","璃怒","扶迎","屁酷瘩基","舌鄙尤","伦饰蚀","险憎则")
label<-factor(name,levels=name,order=T)
percent<-c(0.196,0.166,0.126,0.107,0.083,0.083,0.082,0.078,0.072)
mydata<-data.frame(label,percent)
mydata$anti_percent<-1-mydata$percent
mydata1<-gather(mydata,index,Percent,-label)
conservation_status <-paste0(name,"\n",percent(percent))
names(conservation_status)<-name
global_labeller <-labeller(.defalut=label_value,label=conservation_status)
font.add("myfont","msyhl.ttc")
p1<-ggplot()+
geom_col(data=mydata1,aes(x=1,y=Percent,fill=index),width=.2)+
scale_fill_manual(values=c("percent"="#00A0E9","anti_percent"="#EAEBEB"),guide=FALSE)+
xlim(0.6,1.1)+
coord_polar(theta="y")+
facet_grid(.~label,labeller=global_labeller)+
theme_minimal()+
theme(
line=element_blank(),
axis.text=element_blank(),
title=element_blank(),
panel.spacing=unit(0,"cm"),
strip.text=element_text(family="myfont",size=25,lineheight=1.2),
plot.margin=unit(c(.5,3,0,2),'lines')
);p1
setwd("F:/淌皂谊碌何/R/R判乾于李欺辆/