двойной столбик для сравнения столбцов

Question

Я создал фрейм данных с данными:

data <- </p>

          element      ova.x   testes.x       ova.y    testes.y
1         Dong-1  0.34000000 1.1200000   0.06694795 2.89051799  

Моя цель - создать гистограмму, которая сравнивает значения ova.x, ova.y testes.x, testes.y для данного элемента, получая что-то вроде этого: в предположении, что разновидности A - это ova.x, testes.x, а виды B - это ova.y, testes.y, а Gene1 - это Ova, ген 2это яички. Я не знаю, как построить эти данные

Я пытался использовать plotly, но это не дает ожидаемого результата:

library(plotly)

Tissues <- c("ova", "testes")
TE <- c("0.34000000", "1.1200000")
geni <- c("0.06694795", "2.89051799")
dati <- data.frame(Tissues, TE, geni)

p <- plot_ly(dati, x = ~Tissues, y = ~TE, type = 'bar', name = 'TE') %>%
    add_trace(y = ~geni, name = 'GENES') %>%
    layout(yaxis = list(title = 'Count'), barmode = 'group')

Answer 1

Вы имели в виду что-то подобное? Вы можете использовать функцию collect () из пакета tidyr

library(tidyr)
dati2 <- dati %>% gather(key = "variable",value =  "value", c(TE,geni))
ggplot(dati2, aes(Tissues, value, fill =variable))+
geom_col(position = "dodge")