Столбцы в гистограмме на самом деле не имеют фактической высоты по оси Y - PullRequest
Новая
       5

Столбцы в гистограмме на самом деле не имеют фактической высоты по оси Y

0 голосов
/ 06 января 2020

Я пытаюсь построить совместный барплот для следующих образцов данных, барплот приближается, но высота столбцов не совпадает с количеством. например, в контроле считается, что возраст, приходящийся на возрастную группу 70-90 лет, составляет 18 лет, но высота бара превышает 75, как мне это исправить? enter image description here

   Trial_Control  Group variable value
  Trial  70-90      Age    71
  Trial  70-90      Age    83
  Trial 91-110      Age    94
  Trial  70-90      Age    73
  Trial  70-90      Age    87
  Trial  70-90      Age    76
  Trial  70-90      Age    73
  Trial 91-110      Age    93
  Trial 91-110      Age    97
  Trial  70-90      Age    81
  Trial 91-110      Age    90
  Trial  70-90      Age    72
  Trial  70-90      Age    81
  Trial  70-90      Age    78
  Trial 91-110      Age    95
  Trial  70-90      Age    83
  Trial 91-110      Age    95
  Trial 91-110      Age    95
  Trial 91-110      Age    94
  Trial  70-90      Age    83
  Trial 91-110      Age    93
  Trial  70-90      Age    89
  Trial 91-110      Age    92
  Trial  70-90      Age    70
Control  70-90      Age    84
Control  70-90      Age    76
Control  70-90      Age    81
Control  70-90      Age    88
Control  70-90      Age    80
Control  70-90      Age    73
Control  70-90      Age    77
Control 91-110      Age    90
Control  70-90      Age    82
Control 91-110      Age    94
Control  70-90      Age    73
Control  70-90      Age    83
Control 91-110      Age   100
Control 91-110      Age    97
Control 91-110      Age    97
Control  70-90      Age    75
Control  70-90      Age    74
Control 91-110      Age    90
Control  70-90      Age    80
Control 91-110      Age    90
Control  70-90      Age    79
Control  70-90      Age    75
Control 91-110      Age    94
Control  70-90      Age    72
Control  70-90      Age    84
Control  70-90      Age    85

Вот мой код: 

 graph2 <- ggplot(df,aes(Group,value,fill=Trial_Control))+
   geom_bar(position="dodge",stat="identity")+
   stat_count(aes(label=paste0(sprintf("%1.1f", ..count../sum(..count..)*100),
   "%\n", ..count..), y=..count..,vjust=-.5), geom="text", colour="Black", size=4, position=position_dodge(width=1))+
   labs(fill = "Group (Trial / Control)", title = paste0("Bar plot for ", names(extractData)[i])) +
   ylab("count")+
   theme_bw()+
   theme(plot.title = element_text(hjust = 0.5))

   print(graph2)

Спасибо!

...