library(ggplot2)
set.seed(1);x=seq(length=1000,from = 0.725,to=0.885);y=dbeta(x,10.5,2.9);Group=rep(1,1000);data1=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.725,to=0.886);y=dbeta(x,10.2,2.9);Group=rep(1,1000);data2=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.725,to=0.887);y=dbeta(x,10.0,2.9);Group=rep(1,1000);data3=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.74,to=0.888);y=dbeta(x,9.9,2.9)-0.05;Group=rep(1,1000);data4=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.73,to=0.875);y=dbeta(x,9.9,2.9)-0.2;Group=rep(2,1000);data4=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.73,to=0.876);y=dbeta(x,9.7,2.9)-0.2;Group=rep(2,1000);data5=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.73,to=0.877);y=dbeta(x,9.6,2.9)-0.2;Group=rep(2,1000);data6=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.73,to=0.878);y=dbeta(x,9.5,2.9)-0.2;Group=rep(2,1000);data7=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.735,to=0.870);y=dbeta(x,9.3,2.9)-0.3;Group=rep(3,1000);data8=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.735,to=0.871);y=dbeta(x,9.15,2.9)-0.3;Group=rep(3,1000);data9=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.735,to=0.872);y=dbeta(x,9.0,2.9)-0.3;Group=rep(3,1000);data10=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.735,to=0.873);y=dbeta(x,8.8,2.9)-0.3;Group=rep(3,1000);data11=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.74,to=0.845);y=dbeta(x,8.7,3)-0.4;Group=rep(4,1000);data12=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.74,to=0.847);y=dbeta(x,8.5,3)-0.4;Group=rep(4,1000);data13=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.745,to=0.849);y=dbeta(x,8.3,3)-0.4;Group=rep(4,1000);data14=data.frame(x,y,Group)
set.seed(1);x=seq(length=1000,from = 0.745,to=0.853);y=dbeta(x,8.2,3)-0.4;Group=rep(4,1000);data15=data.frame(x,y,Group)
data=rbind(data1,data2,data3,data4,data5,data6,data7,data8,data9,data10,data11,data12,data13,data14,data15)
windows(6,4)
p=ggplot(data,aes(x=x,y=y,colour=Group))+geom_point(cex=2,alpha=0.8)+scale_y_continuous(expand=c(0,0), breaks=0:10*1,limits=c(0,5))+
scale_x_continuous(expand=c(0,0), breaks=0:1.2*0.1,limits=c(0,1))
p1=p+annotate("text",x=min(data15$x-0.08),y=min(data15$y-0.21),label="7",size=42,fontface=9,colour="dodgerblue4")+
annotate("text",x=min(data15$x-0.145),y=min(data15$y-1.0),label="1",size=42,fontface=9,colour="brown4",alpha=0.8)+
annotate("text",x=min(data15$x-0.18),y=min(data15$y-0.1),label="0",size=35,fontface=9,colour="dodgerblue1",alpha=0.8)+
scale_colour_gradient(limits=c(1, 4), low="red")+
theme_classic()+
theme(axis.line.x = element_line(colour = "white"),
axis.line.y = element_line(colour = "white"))+
theme(legend.position="none",
axis.title.x=element_blank(),
axis.text.x=element_blank(),
axis.ticks.x=element_blank(),
axis.title.y=element_blank(),
axis.text.y=element_blank(),
axis.ticks.y=element_blank())
p2=p1+annotate("text",x=0.52,y=3.85,label=".",size=28,fontface=9,colour="red",alpha=0.8)+
annotate("text",x=0.545,y=4.05,label=".",size=35,fontface=9,colour="red",alpha=0.8)+
annotate("text",x=0.563,y=4.11,label=".",size=35,fontface=9,colour="red",alpha=0.8)+
annotate("text",x=0.5,y=3.22,label="<",size=12,fontface=6,colour="darkgoldenrod1")+
annotate("text",x=0.51,y=3.5,label=".",size=20,fontface=9,colour="darkgoldenrod1")+
annotate("text",x=0.53,y=3.55,label=".",size=21,fontface=9,colour="red",alpha=0.8)+
annotate("text",x=0.54,y=3.53,label=".",size=26,fontface=9,colour="red",alpha=0.8)+
annotate("text",x=0.3,y=4.3,label="Happy",size=18,fontface=9,colour="red",alpha=0.8)+
annotate("text",x=0.3,y=3.3,label="New",size=18,fontface=9,colour="red",alpha=0.8)+
annotate("text",x=0.3,y=2.3,label="Year",size=18,fontface=9,colour="red",alpha=0.8)+
# For flower
annotate("text",x=0.025,y=4.7,label="*",size=18,fontface=9,colour="yellow",alpha=0.5)+
annotate("text",x=0.13,y=4.3,label="*",size=18,fontface=9,colour="yellow",alpha=0.5)+
annotate("text",x=0.015,y=4.0,label="*",size=18,fontface=9,colour="yellow",alpha=0.5)+
annotate("text",x=0.09,y=3.6,label="*",size=18,fontface=9,colour="yellow",alpha=0.5)+
annotate("text",x=0.25,y=3.3,label="*",size=18,fontface=9,colour="yellow",alpha=0.5)+
annotate("text",x=0.06,y=3.0,label="*",size=18,fontface=9,colour="yellow",alpha=0.5)+
annotate("text",x=0.095,y=3.2,label="*",size=18,fontface=9,colour="yellow",alpha=0.5)+
annotate("text",x=0.12,y=2.6,label="*",size=18,fontface=9,colour="yellow",alpha=0.5)+
annotate("text",x=0.02,y=2.4,label="*",size=18,fontface=9,colour="yellow",alpha=0.5)+
#For firecraker
annotate("text",x=0.035,y=3.6,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=-5)+
annotate("text",x=0.08,y=3.6,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=5)+
annotate("text",x=0.0355,y=3.4,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=-5)+
annotate("text",x=0.0805,y=3.4,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=5)+
annotate("text",x=0.0365,y=3.2,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=-5)+
annotate("text",x=0.0815,y=3.2,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=5)+
annotate("text",x=0.0365,y=3.0,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=-4)+
annotate("text",x=0.0815,y=3.0,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=6)+
annotate("text",x=0.0365,y=2.8,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=3)+
annotate("text",x=0.0815,y=2.8,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=-4)+
annotate("text",x=0.0335,y=2.6,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=6)+
annotate("text",x=0.0805,y=2.6,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=-6)+
annotate("text",x=0.028,y=2.4,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=6)+
annotate("text",x=0.075,y=2.4,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=-6)+
annotate("text",x=0.024,y=2.2,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=6)+
annotate("text",x=0.071,y=2.2,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=-6)+
annotate("text",x=0.024,y=2.0,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=9)+
annotate("text",x=0.075,y=2.0,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=-9)+
annotate("text",x=0.026,y=1.8,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=9)+
annotate("text",x=0.077,y=1.8,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=-10)+
annotate("text",x=0.026,y=1.6,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=15)+
annotate("text",x=0.077,y=1.6,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=-17)+
annotate("text",x=0.028,y=1.4,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=22)+
annotate("text",x=0.081,y=1.4,label="-",size=22,fontface=4,colour="deeppink3",alpha=0.6,angle=-25)+
#Day ngoi phao
annotate("text",x=0.055,y=3.6,label="~",size=15,fontface=5,colour="darkgrey",alpha=0.6,angle=90)+
annotate("text",x=0.055,y=3.3,label="~",size=15,fontface=5,colour="darkgrey",alpha=0.6,angle=90)+
annotate("text",x=0.055,y=3.0,label="~",size=15,fontface=5,colour="darkgrey",alpha=0.6,angle=90)+
annotate("text",x=0.055,y=2.7,label="~",size=15,fontface=5,colour="darkgrey",alpha=0.6,angle=70)+
annotate("text",x=0.047,y=2.4,label="~",size=15,fontface=5,colour="darkgrey",alpha=0.6,angle=75)+
annotate("text",x=0.045,y=2.0,label="~",size=15,fontface=5,colour="darkgrey",alpha=0.6,angle=100)+
annotate("text",x=0.045,y=1.6,label="~",size=15,fontface=5,colour="darkgrey",alpha=0.6,angle=100)+
annotate("text",x=0.045,y=1.25,label="~",size=15,fontface=5,colour="darkgrey",alpha=0.6,angle=90)+
annotate("text",x=0.045,y=0.9,label="*",size=15,fontface=3,colour="goldenrod1",alpha=0.6)
x=c(0.955,0.96,0.97,0.98,0.985)
y=c(4.93,4.8,5.0,4.8,4.93)
x1=0.952
y1=4.31
#Canh hoa dao
p2+annotate("text",x=x,y=y,label=".",size=35,fontface=9,colour="pink",alpha=0.2)+
annotate("text",x=x-0.07,y=y-0.5,label=".",size=35,fontface=9,colour="pink",alpha=0.2)+
annotate("text",x=x-0.2,y=y-0.3,label=".",size=35,fontface=9,colour="pink",alpha=0.2)+
annotate("text",x=x-0.02,y=y-1,label=".",size=35,fontface=9,colour="pink",alpha=0.2)+
annotate("text",x=x,y=y-1.8,label=".",size=35,fontface=9,colour="pink",alpha=0.2)+
annotate("text",x=x-0.04,y=y-2.4,label=".",size=35,fontface=9,colour="pink",alpha=0.2)+
annotate("text",x=x,y=y-3,label=".",size=35,fontface=9,colour="pink",alpha=0.2)+
annotate("text",x=x-0.28,y=y,label=".",size=35,fontface=9,colour="pink",alpha=0.2)+
annotate("text",x=x-0.12,y=y-0.05,label=".",size=35,fontface=9,colour="pink",alpha=0.2)+
#Vietnamese + Korean
annotate("text",x=0.27,y=0.7,label="Chuc m?ng n?m m?i",size=7,fontface=2,colour="goldenrod2",alpha=0.5)+
annotate("text",x=0.355,y=0.82,label="^",size=5,fontface=2,colour="goldenrod2",alpha=0.5,angle=180)+
annotate("text",x=0.7,y=0.2,label="?????? ??? ?????? ????????????",size=8,fontface=9,colour="pink",alpha=0.6)+
annotate("text",x=min(data15$x-0.215),y=min(data15$y+0.65),label="2",size=35,fontface=9,colour="darkblue",alpha=0.9)
