guitogram 上的数据签名

Question

下午好，亲爱的职业选手。我请你对一些我无法理解的问题提出建议。有如下一组数据：

df<-data.frame(num = c(1:20),
         gender=unlist(strsplit("MFFMMMFMFMMMMMFFFMFM","")),
         age= sample(1:100, 20, replace=T),
         entrance=sample(1:4, 20, replace=T))

数据已排序和分组。

df <- group_by(df, df$entrance, df$gender)

其实是根据资料建了个图

ggplot(df, aes(x= df$entrance)) +
 geom_bar(aes(fill=df$gender), position = "dodge")+
 scale_fill_discrete(name = "Title", labels = c("F", "M"))+
 xlab("Distribution of residents by entrances, taking into account gender")+
 ylab("Number of residents")

实际上，这是结果：

我不喜欢什么？我希望如果类别中没有数据，则不会绘制该列，但会指示 0。我也想有如下图所示的数据标签。好吧，我也想要放置这些值的选项：

底部（如图所示）；
在地带的中心；
在地带的顶部。

Answer 1

试试这个。您可以使用切面并更改一些美学元素来获得与您期望的类似的东西：

library(ggplot2)
library(dplyr)
#Plot
df %>% group_by(entrance,gender) %>%
  summarise(N=n()) %>%
  mutate(gender=factor(gender,levels = c('F','M'))) %>%
  complete(gender,fill = list(M=0,F=0)) %>%
  replace(is.na(.),0) %>%
  ggplot(aes(x= factor(gender),y=N,fill=gender)) +
  geom_bar(stat='identity', position = position_dodge2(0.9))+
  geom_text(aes(label=N,y=0),vjust=-0.5,position = position_dodge2(0.9))+
  scale_fill_discrete(name = "Title", labels = c("F", "M"))+
  facet_wrap(.~entrance,nrow = 1,strip.position = 'bottom')+
  xlab("Distribution of residents by entrances, taking into account gender")+
  ylab("Number of residents")+
  theme(strip.placement = 'outside',
        strip.background = element_blank(),
        axis.text.x = element_blank(),
        axis.ticks.x = element_blank())

输出：

guitogram 上的数据签名

Data signatures on a guitogram

r

histogram

digital-signature

ggplot2