11月3号发布了一期 恰饭内容， 为了回馈各位的支持，遂决定每接一次恰饭内容都会送出一定数量的小礼物作为回馈。这次是一本R语言学习的参考书 R数据科学。
经过3天的激烈角逐，恭喜10位读者杀出重围，获得了参加抽奖的机会。明天（11月7号）下午8点我将会在B站直播抽奖。欢迎大家关注我的 B站账号 小明的数据分析笔记本 围观直播哈。这是自己的第一次直播，到时候可能会车祸频发。
这次活动总共收到了38条留言。总共的点赞数量是166个
用柱形图展示一下这次活动的数据
df<-read.table("clipboard",header=T)
df$x<-1:38
df$group<-ifelse(df$x<=10,"A","B")
df$x<-factor(df$x)
library(ggplot2)
ggplot(df,aes(x=x,y=public_approval))+
geom_col(aes(fill=group),show.legend = F)+
theme_bw()+labs(x=NULL,y=NULL)+
scale_y_continuous(expand = c(0,0),limits = c(0,30))+
geom_rect(aes(xmin=0, xmax=10.5, ymin=-Inf, ymax=25),
fill="#00C19B", alpha=0.1, show.legend=FALSE)+
geom_rect(aes(xmin=10.5, xmax=39, ymin=-Inf, ymax=25),
fill= "#894FC6", alpha=0.1, show.legend=FALSE)+
geom_col(aes(fill=group),show.legend = F)+
scale_fill_manual(values=c("white","white"))+
annotate(geom="segment",x=0,xend=10,y=25.2,yend=25.2,size=1.5,
color="red")+
annotate(geom="text",x=5,y=26.5,label="Congratulation!",size=6)
由于大家的昵称有的包含特殊字符，暂时还想不到如何在R语言里展现出这些字符。上面的图也就未能体现出获得抽奖机会的人的昵称，下面就直接用截图来展示吧！
恭喜以上10位读者获得抽奖的机会，明天下午八点直播抽奖哈！
大奖究竟花落谁家，然我们拭目以待！
欢迎大家关注我的公众号
小明的数据分析笔记本
