2つのデータフレーム（1つは正、もう1つはR）にヒストグラムを格納

Question

2つのデータフレームがある場合、どのようにプロットすればよいですか？私はyスケールを逆転できるが、このように正しいプロットを得ることができないと理解する。

#Create dataframe 1 
patientA <- c("treatment1", "treatment2", "treatment3", "treatment4", "treatment5", "treatment6", "treatment7") 
x1.value <- as.numeric(c(1, 34, 48, 24, 10, 9, 18)) 
df.1 <- data.frame(patientA, x1.value) 

#Create dataframe 2 
patientB <- c("treatment1", "treatment2", "treatment3", "treatment4", "treatment5", "treatment6", "treatment7") 
x2.value <- as.numeric(c(1, 34, 48, 24, 10, 9, 18)) 
df.2 <- data.frame(patientA, x2.value) 

私の現在のスクリプトは、以下の方法

bp_1 <- ggplot(new.df.1, aes(x=Treatment ,y=Number,fill=substring(Factors,1)))+ 
    geom_histogram(stat="identity",position="dodge") + scale_y_continuous(labels = scales::comma) 
bp_2 <- ggplot(new.df.2, aes(x=Treatment ,y=Number,fill=substring(Factors,1)))+ 
    geom_histogram(stat="identity",position="dodge") + scale_y_continuous(labels = scales::comma) 

に使用しかし、私は、ここに一人の個人のプロットを行うことができます。希望する画像を下に示します。どんな助けでも大歓迎です。

Answer 1

あなたはこのような何かを行うことができ... `new.df.1`と` new.df.2`は

df <- merge(df.1,df.2,by.x = "patientA",by.y = "patientB") 
bp_1 <- ggplot(df) + 
     geom_bar(aes(x=patientA,y=x1.value),fill="blue",stat="identity",position="dodge") + 
     geom_bar(aes(x=patientA,y=-x2.value),fill="red",stat="identity",position="dodge")