R - агрегирование данных в dataframe

Question

Я недавно работал с некоторым выходом, и я не могу представить его информативно. Выход выглядит следующим образом:

180,A,71 
180,C,61 
180,G,68 
180,U,78 
182,A,70 
182,C,34 
182,G,123 
182,U,51 

Я хотел бы построить эти данные так что я на оси х в первой колонке, а на оси стержней у, которые заполняются в соответствии с четырьмя различными типами (колонка 2) и их частоты (столбец 3). Таким образом, на оси y будет частота всех типов по одному значению из первого столбца, но этот бар будет разделен в зависимости от размера типов.

Надеюсь, что вопрос был ясен и спасибо за любую помощь.

Answer 1

Как это?

df <- data.frame(X=rep(c(180,182), each=4), Group=rep(c("A","C","G","U"),2), 
      Y=c(71,61,68,78,70,34,123,51)) 

# Calculating percentages (just using base) 
groupSum <- tapply(df$X, df$Group, sum) 
df$Label <- paste0(round(100 * df$Y/groupSum[df$Group], 1), "%") 

# Go for the plot 
library(ggplot2) 

ggplot(data=df, aes(x=X, y=Y,fill=Group)) + 
    geom_bar(position="dodge", stat="identity") + 
    scale_x_continuous(breaks=unique(df$X)) 

В последней части указаны только фактические значения х.

И это то, что @ сюжет Haroka был бы выглядеть (с процентами теперь добавлены по желанию - также see here):

ggplot(data=df, aes(x=X, y=Y,fill=Group)) + 
    geom_bar(position="stack", stat="identity") + 
    scale_x_continuous(breaks=unique(df$X)) + 
    geom_text(aes(label = Label), size=12, hjust=0.5, vjust=3, position="stack")