Как создать двустороннюю диаграмму с помощью ggplot2

Question

Я хотел бы создать двустороннюю диаграмму, где «целевая» переменная находится на оси х, «птицы» и «волки» находятся в левой части y топор, каждый со своими пропорциями.

df<- read.table(text = "target birds wolfs  
           1  0.3  0.5 
           0  0.9  0.2 ",header = TRUE) 

Я пытался следовать коду в this link, чтобы удовлетворить свою цель, но без успеха. Как я могу решить эту проблему?

Update: прилагается эскиз

Answer 1

df<- read.table(text = "target birds wolfs  
           1  0.3  0.5 
           0  0.9  0.2 ",header = TRUE) 

df[df$target==0,] <- -df[df$target==0,] 
df <- tidyr::gather(df,animal,value,c(birds,wolfs)) 

ggplot(df, aes(x = animal, y = value, fill = target)) + 
    geom_bar(stat = "identity") + 
    coord_flip() 

Попробуйте вышеуказанное?

Answer 2

Вам нужно немного перепрофилирование для этого, и ifelse быть немного на стороне ленивых:

df2 <- tidyr::gather(df, 'var', 'val', -target) 
ggplot(df2, aes(var)) + 
    geom_col(aes(y = ifelse(target == 0, -val, val), fill = factor(target))) + 
    coord_flip()