R：barpot、ggplot、plotlyの積み重なった棒グラフ

Question

私は解決策を探していましたが、既に存在する問題のどれも私の問題に合致しません。 まず：私は2つの変更を必要とする

barplot(as.matrix(df[,4:6]) , 
    main="tobefound", horiz = FALSE,width = 1, 
    names.arg=colnames(df[,4:6]), 
    las=2, 
    col = c("blue", "red"), 
    legend = df[,3], 
    args.legend = list(x="topleft"), 
    beside= FALSE) 

BARPLOT

に：私はプロットしようとしています

Pat <- c(1,1,1,1,1,1,2,2,2,2,2,2) 
V_ID <- c(1,1,6,6,9,9,1,1,6,6,9,9) 
T_ID <- c("A","B","A","B","A","B","A","B","A","B", "A","B") 
apples <- c(1,1,1,1,1,1,1,1,1,1,1,1) 
bananas <- c(2,2,2,2,2,2,2,2,2,2,2,2) 
cranberries <- c(3,3,3,3,3,3,3,3,3,3,3,3) 

df <- data.frame(Pat,V_ID, T_ID, apples, bananas, cranberries) 

：

私はdata.frameを持っています私のすべてのすべての "B"（すべてのスタックの赤い部分）が一緒に積み重ねられ、次に青い部分が上に積まれるようにします。第二：私もplotly使用したソリューションやggplotを探しています

legend = df[1:2,3], 

を経由して、これを対処する以外にも一度だけAとBに凡例を減少させる方法があります。

おかげで、

Answer 1

まずリシェイプ：

df_long <- tidyr::gather(df, 'key', 'value', apples:cranberries) 

次にプロット：国境のない

ggplot(df_long, aes(key, value, fill = T_ID)) + geom_col(col = 'black') 

それとも：

あなたが最初 T_IDで dfをソートするために必要な基本グラフィックスを使用し

Answer 2

。

df = df[order(df$T_ID), ] 

barplot(as.matrix(df[,4:6]) , 
     main="tobefound", horiz = FALSE,width = 1, 
     names.arg=colnames(df[,4:6]), 
     las=2, 
     ylim = c(0,40), 
     col = 1+as.numeric(as.factor(df$T_ID)), 
     border = NA, 
     beside= FALSE) 

box() 
legend('topleft', fill = 1+as.numeric(as.factor(levels(df$T_ID))), legend = levels(as.factor(df$T_ID)))